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CZUDDBO UDASO DIAG DATA FILE 14-APR-82 
HEADER 


IDENIF ICATION 


PRODUCT CODE: AC-S8338-MC 

PRODUCT NAME: CZUDDBO UDASO DIAG DATA FILE 
PRODUCT DATE:  14=APR-82 

MAINTAINER: DIAGNOSTIC ENGINEERING 
AUTHOR: DALE KECK 


THE INFORMATION IN THIS Peete IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPOPNSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS “tort FOR THE USE OR RELIABILITY OF 
SOPTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1981,1982 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLWING ARE TRADMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS_ MASSBUS 
DEC DECUS DECTAPE 





CZUDDBO UDASO DIAG DATA FILE 14-APR-82 
These are the listings of the UDASO drive diagnostics. They are the diagnostics 
that are downline loaded by the diagnostic program CZUDCBO. Included is the 
listing for test 1, test 2, test 3, and test 4. 


For further information see the docimentation that is associated with CZUDCB0. 


SEQ 2 


wee D1 erat: ee Bee ae 


SEQ 3 
UDAT1 _UNIBUS ADDRESSING DMACR X04.01 13-APR=82 15:48:42 
TABLE OF CONTENTS 
2- 41 UDA_DM PROGRAM PARAMETERS 
6- 1 TEST 4 SPECIFIC INFORMATION 
8 1 MACRO DEFINITIONS 
19- 1 START OF TEST CODE 
19= 10 RDSTAT = GET DRIVE'S REAL TIME DRIVE STATE 
20- i HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. 
2-1 FREE MEMORY CHECK 


SEQ 4 
UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 2 
DIAGNOSTIC MACHINE MACROS = OVERLAY VERSION WITH ‘RELOCATION’ 


\ .TITLE UDAT1 UNIBUS ADDRESSING 

? 3 

5 : COPYRIGHT (C) 1981 

§ > DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

8 : 

9 3 THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
10 3 SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
11 : COPYRIGHT NOTICE. $ sO Y OTHER 
12 : COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
13 ; ANY OTHER PERSON EXCEPT FOR SUCH S$ ONE 
14 : WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
15 : THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 

17 : THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 

18 : NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
19 : EQUIPMENT CORPORATION. 

21 : DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
32 ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

24 : 

25 3 

26 3 

27 3 

28 3 

% 

31 [THIS PROGRAM SHALL BE ASSEMBLED WITH THE PROGRAM DMACRO 

32 ZUSING A COMMAND LINE SIMILAR TO: 

34 3 UDAT1.B1N,UDAT1/C=[1,2]DMACRO,UDAT1T, UDATP,UDATIM, UDATR,UDAT1S 
36 ; VERSION 1.0 FOR RELEASE 

38 000000 Testé = 0 : THIS IS NOT TEST4 

39 : .ENABLE ABS 

40 000000 DMCODE UDADM1,0,714,3,0,1000 

41 .SBTTL UDA DM PROGRAM PARAMETERS 

43 .LIST MEB 

4h ; 

4 : EQUATES 

47 000001 BIT00 = 1 

48 000002 BITO1 = 2 

30 ; HIGHEST USABLE LOCATION OF UDA MEMORY + 1 

52 010000 HIMEM = 10000 3 HIGH MEMORY+1 

33 007774 OVSTRT = 777% > OVERLAY ADDRESS LOCATION 
55 DUP PACKET VALUE 


57 010000 bu.oue = 10000 QUESTION 





he 


RUN=SSRIRAR 





UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 2-1 
A DM PROGRAM PARAMETERS 


OFFSETS FOR FORMAT TRACK TABLE 


0. 


OFFSETS FOR FORMAT TRACK BUFFER 


= 0. 


256. 


me a + ee ee + - 


qe QUESTION 
2 INFORMATION 


; TERMINATOR 
FATAL ERROR 
SPECIAL 


BUFFER POINTER OFFSET 


sHI ORDER HEADER OFFSET 
LOW ORDER HEADER OFFSET 


FIRST DATA WORD OFFSET 
EDC WORD OFFSET 


OFFSETS FOR READ/WRITE 1/0 CHAIN TABLES 


sSTATUS AND NEXT BUFFER POINTER OFFSET 
POINTER TO DATA BUFFER 

HI ORDER EXPECTED HEADER 

LOW ORDER EXPECTED HEADER 

:SDI_ COMMAND AND HEAD ADDRESS 

sDUMMY SDI CONTROL BLOCK POINTER 
THETA FROM INDEX 


CONSTANTS FOR READ AND WRITE XFC°S 


x 
8 
po) 
g 


OFFSETS FOR DATA BUFFERS 


LAST ENTRY IN CHAIN FOR WRITE 
WRITE CONT 

LAST ENTRY IN CHAIN FOR READ 
READ CONTINUE 

LAST ENTRY IN CHAIN FOR FORMAT 
WRITE REAL TIME ECOMMAND 

READ REAL TIME COMMAND 

ECC ERROR IN BUFFER BIT 

END OF CHAIN 

BUFFER FULL OR EMPTY FLAG 


3G PERHAPS UNUSED 
EREVECTORED LBN 


BLOCK 
:PRIMARY REVECTORED BLOCK 
XBN BLOCK 


2DBN BLOCK 


DATA 
ERROR DETECTION CODE 





el 


— 





G 1 


SEQ 6 
UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 2-2 
UDA DM PROGRAM PARAMETERS 


3 000401 BF.ECC = 257. sLAST 17 ECC RESIDUES 
AE 4 : BUFFER AND READ/WRITE CHAIN LINK SIZES 

119 01 WBUFLN = 257. : WRITE BUFFER SIZE 
120 000415 RBUFLN = WBUFLN+12, ; READ BUFFER SIZE 
121 7 LINKLN = ?. : LINK SIZE 


i 2 al 


4 1 
SEQ 7 
| UDAT1_UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 3 
UDA DM PROGRAM PARAMETERS 
} : XFC DEFINITION EQUATES 
3 000000 BREAK. = 0. spe rg oad XFC CODE 
4 000001 FORMAT = 1. sFORMAT TRACK XFC CODE 
5 000002 EAD = ¢: READ _N SECTOR ; XFC CODE 
6 0000035 XWRITE = . 3WRITE N SECTORS XFC CODE 
7 000004 SEND = a, SDI COMMAND XFC rae 
8 000005 RCV = 5. SRECEIVE SDI At FCC 
9 000006 OMP, = 6. ;COMPARE DATA PATTERN, TO BUFFER 
10 000007 STATUS = ?. sRETURN DRIVE STATUS XFC CODE 
11 000010 CHO = 8. : DATA_TO DRIVE XFC CODE 
12 000011 DINIT = 9. sDRIVE INITIALIZE XFC CODE 
13 000012 WAITSI = 10. : SECTOR OR INDEX PULSE 
14 000013 UREAD = 11. ; UNIBUS MEMORY XFC CODE 
15 000014 UWRITE = 12. sWRITE UNIBUS MEMORY XFC CODE 
16 000015 ECC = 13. 2D0 ECC ON BUFFER XFC CODE 
17 000016 MRD = 14. SEND BUFFER TO MAINTENANCE R OMMAND 
18 000017 = 15. :GET BUFFER FROM MAINTENANCE WRITE COMMAND 
19 000020 v = 16. sCONVERT TO PHYSICAL ADDRESS XFC CODE 
? 000021 EXIT = 17. zs TERMINATE DM PROGRAM XFC CODE 
$$ : GET STATUS OFFSETS 
cs 000000 ST.UNT = 0. UNIT NUMBER 
25 000000 ST.MSK = 0. : IT MAS 
26 000001 ST.STA = 1. sSTATUS BYTE 
27 000001 ST.MOD = 1. sMODE BY 
28 000002 ST.ERR = 2. sERROR BYTE 
29 000002 ST.CON = 2. CONTROLLER BYTE 
30 006902 C = 2. 
3 000003 ST.RTY = 3. SRETRY COUNT/FAILURE CODE 
$7 : STATUS BIT DEFINITIONS 
35 000200 ST.OA = 200 3 ONLINE TO ae (SET IF ORIVE UNAVAILABLE) 
000100 ST.RR = 100 3 READJUSTMENT BIT (SET IF RECALIBRATION REQUIRED) 
37 000040 ST.DR = 40 3 DIAGNOSTIC REQUEST (SET IF tery REQUESTED) 
000020 ST.SR = 20 3 SPINDLE READY (SET IF LE READY) 
39 000002 ST.PS = 2 : T SWITCH (SET IF PORT SWITCH IN) 
40 000001 ST.RU = 1 2 “IN/STOP SWITCH (SET STOP SWITCH IN) 
41 000200 ST.FE = 200 : (SET IF FAT. 
4 000100 ST.RE = 100 3 RETRIABLE ERROR (SET IF RETRIABLE ERROR OCCURRED) 
& 000040 ST.PE = 40 : PROTOCOL ERROR (ser If TOCOL ERROR OCCURRED) 
000020 ST.DF = 20 : Pay ee FAILURE oy i ce INIT FAILED) 
45 000010 ST.WE = 10 : ai ates SET IF WRT ATTEMPTED ON PROT DISK) 
46 002000 ST.FO = 2000 : Speed (SET IF FORMATT ING ENABLED) 
47 001000 ST.0B = 1000 3 DIAGNOSTIC CYLS (SET IF DIAG CYL ACCESS ENABLED) 
000400 ST.S? = 400 2 SECTOR SIZE (SET FOR 576 BYTE SECTORS) 





a. 2 oe 





UDAT1 UNIBUS ADDRESSING — X04.01 13-APR=82 15:48:42 PAGE 4 
UDA DM PROGRAM PARAMETERS 


OND ed sk ed et es ed et et 
WN =O OBNAULSWN $0 OONOUSWN— 


nN 


SYSANENS BURY 


aes 
| 
| 
: 
| 
| 
2 
2 


177400 
000377 
007777 
170377 


GET COMMON CHARACTERISTICS OFFSETS 


NNW | OOO 


sSHORT TIMEOUT = — 


C 
IMICROCODE REVISION NUMBER <7:0> 
HARDWARE REVISION NUMBER <15:8> 


SUNIQUE DRIVE 1D <47:0> 
DRIVE TYPE IDENTIFIER <7:0> 


sREVS/SECOND <15:8> 


GET SUBUNIT CHARACTERISTICS OFFSETS 
OFFSETS ARE CURRENTLY GIVEN AS FOLLOWING THE COMMON CHARACTERISTICS 


sOFFSET TO PUT SUBUNIT AFTER COMMON; 
CYLIND ERS IN LON AREA <31: :0> 


BIT MASK DEFINITIONS 


11. 


3. 


= 3 § OQUDOuumkl & 


BGonNO: 


177400 
77 


77 
170377 


ZNUMBER OF 
sHI ORDER pay BIT 
: GROUPS NDE 


R <7:0 
1:8> 


Z 5 
ADER Tok att; SIZE IN WORDS <15:8> 


EneNrA Ty <31:0> 


N 
CYLS IN DBN AREA <15:8> 


sUNIT ZERO CODE 
sUNIT ONE CODE 
sUNIT TWO CODE 
sUNIT THREE CODE 


HIGH BYTE MASK 
i BY 


TE MASK 
I BYTE, HI NIBBLE MASK 
cH BYTE, LO NIGBLE MASK 


SEQ 8 


2c 


: SEQ 9 


| ypaT} UNIS'JS ADDRESSING oe X04.01 13-APR-82 15:48:42 PAGE 4-1 
UDA DM PROGRAM PARAMETERS 


58 177417 LBHINB = 177617 :LO BYTE, HI NIBBLE MASK 

8 177760 LBLONB = 177760 7LO BYTE, LO NIBBLE MASK 

61 000001 TIMEOUT = % :DRIVE TIMEOUT CODE 

62 000002 HEADER = 2. [HEADER COMPARE FAILURE CODE 

65 000004 REVECT = 4. SREVECTOR NEEDED CODE 

65 000002 WRONG = 2. ZFIRST WORD NOT START FRAME CODE 
66 FRAME = 4. ZFRAMING ERROR CODE 

67 000010 CHECK = 8. _ZCHECKSUM ERROR CODE 

69 000001 TOOBIG = ® R OF WORDS EXCEEDS 7064 

70 000002 LOW : 2. SOM BUFFER ADDRESS IS LESS THAN 714 
es : BIT MASK 

74, 000001 LARGE = & :BLOCK NUMBER TOO LARGE 

75 000002 OVERFL = 2. TSECTOR NUMBER LARGER THAN 16 BITS 


2a 


en 


SEQ 10 
_ UDAT1 UNIBUS ADDRESSING a X04.01 13-APR-82 15:48:42 PAGE 5 
Gone DM PROGRAM PARAMETERS 


\ :MAINTANENCE READ/WRITE REQUEST NUMBERS 
z 060000 TIMSIZ = 0. +DU. SPC ZGET FREE MEMORY PARAMETERS 

4 060001 T2DLL_ = 1. +DU. SPC [DOWNLINE LOAD E Dl TIC 

5 060002 T2C = g- #DU. SPC : INTERVENTION TEST 2 PROT 

é 060003 14 = . #DU. SPC ‘GET MASTER P ERS FROM SW QUESTIONS 
? 060004 14 = 4. +DU. SPC [GET UNIT P S$ FROM HW QUESTION 

8 060005 14881 = 5. DU. SPC 7GET BAD BLOCK THRU 

9 0006 = 6. +DU. SPC 2GET REST OF BAD BLOCKS (15 AND 16) 

10 060007 T4SOFT = 7.*DU. SPC [ADD TO SOFT AND 

11 060010 T4SEEK = 8.+DU. SPC SADD 1 TO SEEK T 

12 060011 TOMXFR = 9. *DU. SPC ZADD TO MEGABITS READ AND WRITTEN 

13 060012 UTOTST = 10. +DU. SPC ‘GET UNITS TO TEST 

14 060013 ERRMES = 11. +DU. SPC [PRINT ERROR MESSAGE 

15 060014 = 12. DU. SPC STEST 4 ERROR REPORTING 

16 060015 MESSAG = 13. +DU. SPC SINFORMATION MESSAGE 

7 16 D = 14. +DU. SPC ZMARK DM PROGRAM AS NO LONGER RUNNING 

19 ; OTHER BIT DEFINITIIONS 
21 000001 RCVRDY = 1 : RECIEVER READY 1 = READ 

22 000002 ATIN = 2 : ATTENTION BIT FOR RETURN DRIVE SIGNALS XFC 
23 000004 RCVERR = 4 : RECIE VER 

24 000100 AVAIL = 100 : AVAILABLE 1 = AVAILABLE | 
25 000400 XMTERR = 400 : TRANSMIT ERROR 

$6 100000 RWRDY = 100000 3: IF SET, UDA IS ABLE TO READ AND/OR WRITE TO DRIVE | 
28 3 SDI COMMANDS AND RESPONSES 

30 000204 DISCON = 204 : DISCONNECT DRIVE 

31 ERECOV = é : ERROR RECOVERY 

32 000201 CH = 201 : CHANGE MODE 

33 000213 DRVONL = 213 : DRIVE ONLINE 

34 000014 DRVRUN = 14 + DRIVE RUN 

35 5 DRVCLR = 5 + DRIVE CLEAR OPCODE 

36 000207 GETCHR = 307 : GET CHARACTERISTICS 

37 000210 GETSUB = 210 : GET SUBUNIT CHARACTERISTICS 

38 000011 GETSTA = 11 : GET STATUS 

39 000216 IRECLB = 216 > RECALIBRATE 

4 000012 INSEEK = 12 : INITIATE SEEK 

41 000176 COMPLT = 176 : SUCCESSFUL COMPLETI 

2 000175 UNSSUC = 175 > UNSUCCESSFUL COMPLETION 

43 000170 CHRRES = 170 3 GET CHARACTERISTICS RE SPONSE 

ba 000167 SBCRES = 167 > GET SUBUNIT CHARACTERISTICS RESPONSE 
45 000366 STSRES = 366 : GET STATUS RESPONSE 

46 000350 ECHOC = 350 3 DIAGNOSTIC ECHO COMMAND AND RESPONSE 
48 ; ERROR CODES 

50 000000 FILSYS = : SYSTEM FATAL ERROR 

51 040000 FILDEV = 40 : DEVICE FATAL 

52 100000 ERHARD = 100000 : HARD ERROR 

53 140000 ERSOFT = 1400 : SOFT ERROR 


Cea tet i dae a Ca ODE eile AN PA Fal SE es 


zc 


ee 


, UDAT1 UNIBUS ADDRESSING os X04.01 13-APR-82 15:48:42 PAGE 6 


TEST 4 SPECIFIC INFORMATI 


1 -SBTTL 
2 H 
3 8 
i 4 3 
5 : 
4 3 
| 8 000377 SCTWRD 
| 9 000105 INTEDC 
10 1 LEN.U 
| 13 007717 FIRSTU 
| 13 : 
14 5 
15 000000 U.NEXT 
16 000001 U. SUBP 
17 000005 U.TIMO 
18 000006 U.RWTO 
19 000007 U. SEEK 
20 000010 U.NFUN 
21 000011 U.PAT 
22 000012 U.CCNT 
23 000014 U.PCTG 
24 000015 U.CTRK 
25 000016 U. 
26 000017 U.MSEC 
27 000020 U. TSEC 
28 000021 U.CSEC 
000022 y 
000023 U.WRIT 
31 000024 U.ELEV 
32 000025 eRTRY 
33 000026 U.MLEV 
34 000027 U.ECCT 
35 000030 ¥ 
36 000031 " 
37 000032 s 
000033 U.PARM 
39 000034 U. SUBU 
40 000035 x 
41 000037 U.CBN 
42 000041 
43 000043 U.COPY 
44 000044 -CCOP 
45 000045 
46 000046 U.RVER 
47 000047 
48 000053 U.CCYL 
49 000055 
50 000056 U.LCYL 
51 00006 U. 
52 r 
53 5 
54 : 
55 000000 S.PARM 
56 000001 $.SDCL 
57 000003 S.PAT 


TEST 4 SPECIFIC INFORMATION 
TEST 4 SPECIFIC INFORMATION 


oO 
= 
17) 
4 
= 
“ 
n 


255. 
69 


U.LGRP+1 
HIMEM-TLEN.U 


UNIT PARAMETER OFFSETS 


U.LCYL42 
PARAMETER OFFSET 


“nw 10 08 08 08 8 OO Ob Oe Oe Ok 8 Ok Ob Ok Oe Ok 08 Ok Ob te Oe Ok Oe ae on te te te Oe oe ee oe te te te ee 
— 
— 
cc 
ee 
8 
+ + 
Rone 


0. 
S.PARM+1 
$.SDCL*2 





Be Se Ge Ge Ge Se Ge Ge Se Ge Ge Ge Ge Se Se Ge Se Ge Ge Se Be Ge Se Se Be Ge Be Be Be Be Be Se Se Se 


NUMBER OF WORDS IN SECTOR TO FILL 
melt pte EDC VALUE 


UNIT PARAMETER LENGTH 
LOCATION OF FIRST UNIT PARAMETER BLOCK 


POINTER TO NEXT UNIT (RING LINKED LIST) 
4 WORDS OF SUBUNIT PARAMETER POINTERS 
AREA TO Le VARIOUS TIMEOUT VALUES 
READ/WRITE TIMEOUT AREA 

NUMBER OF 


SEEKS ISSUED 
NEXT FUNCTION ADDRESS (FOR DEFERRED CALLS) 
PATTERN NUMBER WRI 


FOR GROUP 
‘NUMBER OF SECTORS R/W THIS TRY 
NUMBE SECTORS TO BE R/ 


ie 
NUMBER OF SECTORS TO BE co THIS OP 
COUNT OF SECTORS 8/W SO 
UNIT FOR XF BS ae (0001 = 1000) 


ONG TIMEOUT 
MASK TO WRITE PROTECT READ-ONLY DRIVES 
UNIT PARAMETER WORD 
SUBUNIT OFFSET (0 = 3) 
MASTER L/DBN 
CURRENT L/DBN FOR START OF CHAIN 
RBN L BE READ/WRITTEN IF LBN REVECTORED 
cop ON EACH SUBUNIT 


SEQ 11 


ST R/W 
ERROR THAT OCCURRED BEFOR THE REVECTOR OPERATION 
4 WORDS THAT HOLD THE SUBUNIT LOGICAL NUMBERS 


CURRENT CYLINDER 


: nt CYLINDER secxee TO 


T GROUP SEEKED T 


SUBUNIT PARAMETER WOR 
STARTING DIAGNOSTIC C 
USE FOR WR 


D 
D YLINDER 
PATTERN TO ITES 


zc 


UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15: 
TEST 4 SPECIFIC INFORMATION 


58 000004 S.TRKL = 
2 000005 .-e = 
61 000007 S.MEGW = 
62 000010 Ss. = 
63 000011 S.BESS = 
64 3 

65 s IF 
66 : FO. 
67 : 

68 000011 S.MCNT = 
69 000013 S.TGOF = 
70 000015 S.TGSS = 


48:42 PAGE 6-1 


$.PAT+1 


S.BADP+1 


NUMBER OF SECTORS IN ONE T 

POINTER TO wig CHARACTERISTICS 
SECTORS READ (UP TO 245) 

SECTORS ply (UP TO 245) 
POINTER T OCK AREA 

START OF BEGIN/END SETS 


TRACK/GROUP LIMITS ARE GIVEN, THE SUBUNIT PARAMETERS HAVE THE 


OLLOWING FIELDS ADDED TO THEM 


$.BESS 
S.MCNT+2 
S$. 1GOF +2 


3 MAXIMUM TRACK/GROUP COUNT 
z ORIGINAL TRACK/GROUP OFFSET 
3 START OF TRACK/GROUP SE*S 


SEQ 12 


zc 


Pietra 


| 


UDAT1 UNIBUS ADDRESSING son X04.01 13-APR-82 15:48:42 PAGE 7 


3a oe os os a 


mror 
WN DONOUSWN OC OONOUSWwh— 


Nm 


| TEST & SPECIFIC INFORMATI 


000001 
000002 


Be Se Sete Otc tee 
ee 
=} “wr 
“ 
x 
po) 


BEUSED 
TRACKS 
WCHE CK 


WCHKAL 
DATCMP 


DCMPAL 


SEQ 13 


DUMMY SDI CONTROL BLOCK OFFSETS 


1 
é 


DUMMY SDI SEARCH LIMIT 
DUMMY POINTER TO SUBUNIT CHAR-5 


UNIT PARAMETER BITS (U.PARM(RS)) 


SUBUNIT 


DROP BIT (SET IF UNIT OR SUBUNIT DROPPED) 

INITIAL WRITE (SET IF INITIAL WRITE IN PROG) 

IF 1, INDICATES THAT A -_— IS NECESSARY 
DIRECTION (SET IF ACCESSES DECREASING) 
SET IF AL SEEKS MOVED TO NEW SUBUNIT 
SEEK_IN PROGRESS ~ SET IF TRUE 

FIRST TIME FLAG = SET FOR INIT CODE 

REVECTOR BIT yt IF BLOCK REVECTORED) 

SEE IF WORKING ON RBN 

REDWRT (READ OR WRITE IN PROGRESS SET IF WRITE) 
REVECTORING OPERATION IN PROGRESS 

DATA ERROR IF SET 

IF CLEAR, START RETRIES AT ZERO 

RECALIBRATION BIT (SET IF RECALIGRATE JUST DONE) 


PARAMETER BITS (S.PARM(R4)) 


DIAGNOSTIC CYLINDER FLAG (SET IF DBNS) 
1 IF ECC CORRECTION yn MASTER BITS 
READ ONLY (SET IF READ ONLY) 


ALLOWED 
SET IF ONLY CYLINDERS SPECIFIED 
USED on SETUP ONLY 
SEEK (START UP West EMS ONLY) 
; BEGIN/END SETS wi IF SET) 
TRACKS OR GROUPS 


i (TRACK IF SET) 
WRITE CHECK BIT (IF SET, WRITE CHECK WILL BE DONE) 
WCHECK IS ALSO USED FOR THE UNIT PARAMETERS 
: SET IF WRITE CHECK ALWAYS TO BE DONE 
DATA COMPARE (SET IF DATA COMPARE TO BE DONE) 
DATCMP” IS ALSO USED FOR THE UNIT PARAMETERS 
: SET IF DATA COMPARE ALWAYS TO BE DONE 


2c 







UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 8 
MACRO DEFINITIONS 


«SBTTL MACRO DEFINITIONS 


; DIAGNOSTIC MACRO FOR TEST4 OVERLAYS 
; «MACRO DIAGSS 
TST 


NOD ONOUSWhH— 


Ss SSDIAG+$D1AGS 
BEQ +6 
MOV #60000,R0 
’ 4d RO, aS$SDIAG+$DIAGS 
+ 
1 SDIAGS = SDIAGS + 1 
1 ~ENDM 


SEQ 14 







C 2 


UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 9 
MACRO DEFINITIONS 


} : MESSAGE CONTROL TABLE MACRO 

3 «MACRO MSG CMDBUF ,CMDSZ,RPLBUF , we SUCCOM 

4 CMDBUF a OF COMMAND 

5 ;WORD CMDSZ tre 6 F COMMAND IN BYTES 

6 eWORD RPLBUF < ADDRESS OF REPLY 

7 «WORD RPLSZ sSIZE OF REPLY IN WORDS 

8 - IF NB NUMBER 

9 «WORD SUCCOM : SUCCESSFUL COMPLETION CODE 
" -ENDC 





SEQ 15 


D2 





SEQ 16 
UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR=82 15:48:42 PAGE 10 
MACRO DEFINITIONS 


1 -MACRO BCS LAB.. 
§ BCC -+2 
4 












UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR=82 15:48:42 PAGE 11 
MACRO DEFINITIONS 


: PUSH REGISTER MACRO 


«MACRO PUSH R9 
~IRP X,<R9> 


-ENDR 
-ENDM 


: POP REGISTER MACRO 


«MACRO POP R9 
eIRP X,<R9> 


-ENDR 
~ENDM 


VISWN =O DCONAUSWH— 


32S eS 


MOV X,=-(SP) 


MOV (SP)+,X 





22 





UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 12 


MACRO DEFINITIONS 


4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
“ 
5 
6 
7 
8 
9 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 


Oe a aed ad ed ed 


THE MACR 
BEING — + le TO REPORT 
; ARGUMENT (M 


sERROR MACROS 
: THESE Racns wines CALLED TO REPORT ERRORS TO THE HOST PROGRAM 


ERRSF, rhe cre’. ERRHRD, ERRSFT. EACH RESULTS IN THE HOST 
RESSAGE P TER 
ARAME 1 


WOONAULS WA — 
~ 
v 
& 4 
an hed 
~~ 
uv 
> 
se85 
~ 
m 
> °) 
= 


(P8$) PARAMETER #8 


THE MESSAGE POINTER MUST POINT TO AN ADDRESS IN THE wwe “MS** IMMEDIATELY 
ZFOLLOWING THE MAIN CODE. ANY ADDRESS MODE MAY USED (E.G. 4M 
THE 1 pa MUST CONTAIN AN ASCII FORMAT STRING TO DETERMINE THE MESSAGE 


ARGUMENTS ARE OPTIONAL. THEY SHOULD BE SUPPLIED ONLY WHEN 


2 THE PARAMETER 
3; THERE IS we TO BE PASSED TO THE HOST THAT WILL BE USED IN PRINTING THE 
SSAGE. THESE PARAMETER 


ARGUMENTS ARE THE ADDRESS OF DATA TO BE PASSED 


FUSING ANY TADDR ESSING MODE "ta IRED. 
zALL Afni on ARE RETURNED UNCHANGED. IT SHOULD BE NOTED THAT el Tp 


NING SOMETHING OTHER THAN A_REGISTER NAME (E. 


G. #100 OR MEMADR) 
ASSEMBLE TO INSTRUCTIONS THAT SAVE AND RESTORE A REGISTER ON THE STACK. 


-MACRO ERRSF MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S 
NARG ARGSS$ 


eRADIX 10 

— FTLSYS .MS$,P1$,P2$ ,P3$,P4$,P5$,P6$.P7$,P8$, \ERRN 
-MACRO ERRDF MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S 

eNARG ARGSS$ 

eRADIX 10 

— FTLDEV,.MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, \ERRN 


wet ERRHRD MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 
-NARG ae 
ERRORS ERHARD ,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,.P8S, \ERRN 


-MACRO ERRSFT MS$,P1$,P2$,P3$,.P4$,.P5$,P6$.P7$ PBS 
NARG ARGSS 


eRADIX 10 
— ERSOF T ,MS$,P1$,P2$,P3$,P4$,°5$ ,P6$,P7$, PBS, \ERRN 


SEQ 18 


zc 









UDAT1 UNIBUS ADDRESSING DMACR x04.01 
MACRO DEFINITIONS 


BUSGRGALSSRVEARAVASYSVETRUNVSSaVsaenrww=oowvounww— 


13-APR-82 15:48:42 PAGE 13 


sTHE FOLLOWING MACRO ACTUALLY PROCESSES THE ERROR CALL TO THE HOST PROGRAM 
-MACRO ee ETS, MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S,ERRNS 


$> 
. .ERROR:NOT ENOUGH ARGUMENTS IN ERROR CALL 
REGS$=-1 
-1IF GE,<PRMS-8.>,PARGS. ?8$ 
SIIF GE.<PRMS-7.>,PARGS. P7$ 
GE. <PR P6$ 


GE RE 
RSTRS \REGSS 
SRADIX 10 

ST 


CALL RERROR sERROR # ERRNS’. 


eNLIST 
eRADIX 
“LIST 
«WORD ETS+ERRN 
mist eWORD <PRMS*10000>+MS$ 
ERRN= ERRN+1 
NDM 


-MACRO PARGS. ,ADDRS 





-NTYPE PTYPES, ADDRS 
-IF EQ,<PTYPES&70> 
oft EQ,<PTYPES&7>=REGSS,.RSTR$ \REGSS 


MOV ADDRS,-(SP) 


.NLIST 
: IF a <PTYPES&7>=1 sPICK A REGISTER TO USE 
ht Gus=2 TSELECT R2 IF R1 IS USED IN PARAMETER FETCH 
eRe Guss1 SOTHERWISE USE R1 
$ ai f NE. <REGUS-REGSS> zIF REGISTER NOT ALREADY SAVED 
ensins \REGSS ZRESTORE CURRENT SAVED REGISTER 
SAVRS$ \REGUS ;THEN SAVE SELECTED REGISTER 


-ENDC 
GETP$ \REGSS,ADDRS 
ENDC 





SEQ 19 


zc 
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MACRO DEFINITIONS 





«MACRO _SAVRS$ REGN 
LIST 


eNLIST 
REGSS=REGN 
-ENDM 


«MACRO _RSTR$ REGN 
LIST 


«NLIST 
REGS$=-1 
-ENDM 


-MACRO GETP$ REGN,ADDRS 
LIST 


Beware 
WONAVSWN OO OONOU SW 


«NLIST 
DM 


SEQ 20 


MOV R°REGN, SAVREG 


MOV SAVREG,R*REGN 


MOV ADDRS,R°REGN 
MOV R°REGN,=(SP) 


=a 
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MACRO DEFINITIONS 82 15:48:42 PAGE 15 


2 
4 
5 
6 
? 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
35 
36 
37 
38 
39 
40 
re 
és 
44 
45 
46 
47 
48 
49 
50 
3) 
58 
54 
55 
56 
57 


PRIMARY ERROR REPORTING (TEST 4) 
eMACRO SOFTER NUM,ARGS 

ERROR #ERSOFT,NUM,<ARGS> 

- ENDM 

«MACRO REPSFT SFTFLG,ECCFG 

IF NB ,SFTFLG 


 IFF 
-ENDC 
IF NB,ECCFG 
 IFF 


-ENDC 


-MACRO HARDER NUM,ARGS 
ERROR #ERHARD,NUM,<ARGS> 


-MACRO DEVFTL NUM,ARGS 
ERROR #FTLDEV,NUM,<ARGS> 


-MACRO SYSFTL_ NUM,ARGS 
ERROR #FTLSYS,NUM,<ARGS> 


.ENDM 
-MACRO ERROR TYPE,NUM,ARGS 
~RADIX 10 
TR = 
MOVMSG #ER*NUM.4 
IF NB, <ARGS> 
.IRP =X, <ARGS> 
MOVMSG X,\NUMPTR 
TR = NUMPTR + 1 


MOV 
MOV 





— s, ake 
R2,0U 


#1,0UT.02 
OUT .02 


#1,0UT.03 
OuT.03 

RO 

noe RO 

U. SUBUCRS) .RO 
(RO) ,OUT.0i 


#T4SOF TRO 
HOSTRO 
RO 


#ERRMC ,R2 
R2,0UT.RQ 


#ERRMC ,R2 
R2,0UT.ROQ 


#ERRMC ,R2 
R2,0UT.RQ 


SEQ 21 


zc 


J2 


UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 15-1 


MACRO DEFINITIONS 


58 
59 


RUNASSKSLEARAVLSSSLESRAVLSSSEVSALATLS ISN 


ak ee a te a a 


NUMPTR 


NUMPTR 


NUMPTR 


eENDC 
eRADIX 
- ENDM 


-MACRO 
Ix 


<IRP 
hOVMSG 


-ENDR 
eRADIX 
NDM 


MOV 


_— STNUM, ARGS 


im ARGS 
X,<ARGS> 


X, \NUMPTR 
NUMPTR + 1 


MOVMSG ARG, INDX 


LT, INDX-10 
MOV 


MOV 
ENDERR POS 
NB.POS 
\NUMPTR 


NDERR POS 
NE ,POS 
BIS 


CLR 


REPORTING MACRO 
86 NUM, ARGS 


zc 


ARG, OUT .0* INDX | 
ARG, OUT. * INDX | 


#POS ,ERRPOS : SET THE POSITION 
ERRPOS ¢ CLEAR THE POSITION 


K 2 


AT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 15-2 

CRO DEFINITIONS 

115 IF NB, <ARGS> 

116 -IRP =X, <ARGS> 

117 MOVMSG X,\NUMPTR 

118 NUMPTR = NUMPTR + 1 

119 -ENDR 

120 -ENDC 

121 PUSH <RO,R1> 
122 MOV x y 
123 ADD RS,R 

124 ADD U. SUBUC(RS) .R1 
125 MOV (R1) ,OUT.01 
126 MOV #MESSAG,RO 
127 CALL HOSTRO 
128 PoP <R1,RO> 
129 eRADIX 

130 .ENDM 

131 ; 

132 3 

133 -MACRO MSSGE NUM,ARGS 

134 eRADIX 10 

135 NUMPTR = 

136 MOVMSG #'°NUM,2 

137 IF NB, <ARGS> 

138 .IRP  ~—- KX, <ARGS> 

139 MOVMSG X,\NUMPTR 

140 NUMPTR = NUMPTR + 1 

141 -ENDR 

142 -ENDC 

143 PUSH <RO,RI> 
144 MOV #MESSAG,RO 
145 CALL HOSTRO 
146 POP <R1,R0> 
147 «RADIX 





zc 
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MACRO DEFINITIONS 


sRETURN DRIVE STATUS MACRO WITH ERROR REPORTING 


MSO VBNAUSWN “OC 0ONOUSWN— 


TRODRDRY) tt ot ot st os es 


DSTAT,LABS,E1,E2 

MEB 

ME 

RDSTAT 3; GET ? Byte. 

#10000,R1 3; SEE IF ANY ERRORS 
3; IF NO ERR OR, BRANCH 

#4000,R1 3: SEE IF XMIT ERROR 

1$ 3; IF SO, BRANCH 

E1 é REPORT INVALID STATUS ERROR 

LABS 3; BRANCH 

E2 3: REPORT XMIT ERROR 

LABS 3 BRANCH TO DONE 

ME 

MEB 


zc 








SEQ 25 


zc 


UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 17 
MACRO DEFINITIONS 


XOR THE CONTENTS OF TWO REGISTERS 


-MACRO RXOR REG1 ,REG2 
MOV P) 


REG2,-(S ; SAVE y tte REG2 


BIC REG1,REG2 S CLEAR COORESPONDING BITS IN REG2 
BIC (SP)+,REG1 + CLEAR COORESPONDING BITS IN REGI 
BIS REG] ,REG2 + OR WHAT'S LEFT 
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MACRO DEFINITIONS 


tet tye te ree 
= "SVONAUSWN“ODOONOUSWwh— 








11$: 
12$: 


SDI INTERCHANGE WITH DRIVE WITH ERROR REPORTING 
eMACRO TALKX ERRLAB,E1,E2 
eNLIST MEB 
ME 
; INITIATE SDI INTERCHANGE 
; SEE IF ERROR OCCURRED 
; IF NOT, BRANCH 
; IF SO, BRANCH 


CALL TALKER 

R3 
BEQ iss 
ERRHRD Ayn COMMAND ERROR 
ERRHRD E2;RECEIVE COMMAND ERROR 
BR ERRLAB 


SDUmaSHe 
- Om ae 
Se Ge Ge & 


ME 
tite MEB 








000714 


AUSWN|OD0ONOUSWN— 


ed eed ed ed ed ed 


114007 


001373 
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START OF TEST CODE 01 13-APR=82 15:48:42 PAGE 19 


~SBTTL START OF TEST C 


ODE 
sTHE FOLLOWING IS FOR DEBUG PURPOSES ONLY. CAN BE NOP OR BREAKPOINT. 
:CHANGE TO BREAKPOINT FOR DEBUG 


CLR RO 

s INITIALIZE STACK 
MOV #STACK, 4 
8 TAR 


sSET UP STACK POINTER 


BRANCH OVER SUPPORT CODE 


RDSTAT: RDSTAT = GET DRIVE'S REAL TIME DRIVE STATE 


RETURN DRIVE STATUS 
sSTATUS RETURNED IN DM REGISTER 1 


g PUSH  <R3,RO> 


MOV #3,R3 
STATLP: XFC STATUS 
BIC #14000,R1 
BIT #XMTERR, R1 
BEQ STATOK 
DEC R 
E STA 


BN 
MOV #10000, R1 


BR STATEX 
STATOK: BIT #RCVERR,R1 

BNE STATEX 

DEC ates 

33 


MO 714000, R1 
STATEX: POP <R0,R3> 


SAVE R3 AND RO 
MOV R3,-(SP) 
MOV RO,-(SP) 
LLOW ONLY 3 E 
GET DRIVE'S STA Tus. 
CLEAR ERROR ae + a BITS 
en XMIT ERRORS 


IF NO ERRORS, BRANCH 

DECREMENT TRANSMIT ERROR COUNT 

IF ERROR COUNT oe hl BRANCH 
eB TRANSMIT ERR 


ANCH 
RECIEVER ERRORS 
IF VALID, BRANCH 
DECREMENT ERROR COUNT 
If ERROR 


COUN 
FLAG AS INVALD woTACUS 8 ERROR 


RESTORE R 
MOV (SP)+,RO 
MOV (SP)+.R3 


BRANCH 


; RETURN TO CALLING MODULE 





UDAT1 UNIBUS ADDRESSIN 


I 
HOSTRQ = HOST REQUEST 


000751 


NOV ONAUSWwN— 


oS 


DMACR X04.01 13-APR-82 15:48:42 PAGE 20 
= REPORT ERRORS, MEGABYTES TRANSFERRED, 


saettt HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. 


SEND REQUEST BUFFER TO HOST AND WAIT FOR RESPONSE. 
sCLEAR ARGUMENT AREA OF OUT BUFFER IN PREPARATION 
sFOR NEXT HOSTROQ CALL. 


: INPUTS 


SNDAGN: 


CLRBUF : 


"RO = HOST REQUEST NUMBER 
OUT BUFFER LOADED WITH DATA 


PUSH <RO,R1,R2> 


MOV RO,OUT.RO 
MOV #0UT.RO,RO 

MOV #BUFSIZ.R1 

XFC MRD 

TST RI 

BNE SNDAGN 

MOV #IN.RO,RO 

MOV #BUFSIZ,R1 

XFC MWR 

MOV #OUT.01,R0 

MOV #0UT.29-0UT.01,R1 
MOV R2,(RO)+ 

DEC R1 

BPL CLRBUF 

POP <R2,R1,RO0> 


RETURN 


MOV RO,-(SP) 

MOV R1,=(SP) 

MOV R2,-(SP) 
sSTORE REQUEST NUMBER IN BUFFER 
SEND BUFFER TO HOST 


CHECK FOR ERROR 
sIF ERROR, TRY AGAIN 
sWAIT FOR RESPONSE FROM HOST 


sCLEAR ARGUMENT WORDS IN BUFFER 


MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO0 


SEQ 28 | 


UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 21 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


\ :STORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 

? 3OUT BUFFER = DATA TO SEND TO HOST 

5 001006 000000 OUT.RQ: .WORD 0 sHOST REQUEST CODE 
6 001007 000000 -01: .WORD 0 sDATA ARGUMENT 1 
7 001010 000000 T.02: .WORD 0 3 ARGUMENT ; 
8 001011 000000 OUT.03: .WORD 0 ZDATA ARGUMENT 

9 901012 000000 OUT.04: .WORD 0 3 ARGUMENT 4 
10 001013 000000 OUT.05: .WORD 0 DATA ARGUMENT 5 
11 601014 000000 OUT.06: .WORD 0 3 ARGUMENT 6 
12 001015 000000 OUT.07: .WORD 0 sDATA ARGUMENT 7 
13 001016 000000 OUT.08: .WORD 0 ZDATA ARGUMENT 8 
14 001017 000000 OUT.09: .WORD 0 ZDATA ARGUMENT 9 
15 001020 000000 OUT.10: .WORD 0 ZDATA ARGUMENT 10 
16 001021 000000 OUT.11: .WORD 0 3DATA ARGUMENT 11 
17 001022 000000 OUT.12: .WORD 0 DATA ARGUMENT 12 
18 001023 000000 OUT.13: .WORD 0 ZDATA ARGUMENT 1 
19 001024 000000 OUT.14: .WORD 0 DATA ARGUMENT 14 
20 001025 000000 OUT.15: .WORD 0 ZDATA ARGUMENT 15 
21 001026 000000 OUT.16: .WORD 0 ZDATA ARGUMENT 16 
22 001027 000000 OUT.17: .WORD 0 ZDATA ARGUMENT 17 
23 001030 000000 OUT.18: .WORD 0 ZDATA ARGUMENT 18 
24 001031 000000 OUT.19: .WORD 0 ZDATA ARGUMENT 19 
25 001032 000000 OUT.20: .WORD 0 3DATA ARGUMENT 20 
26 001033 000000 OUT.21: .WORD 0 ZDATA ARGUMENT 21 
27 001034 000000 OUT.22: .WORD 0 DATA ARGUMENT 2 
28 001035 000000 OUT.23: .WORD 0 DATA ARGUMENT 2 
29 001036 000000 OUT.24: .WORD 0 ZDATA ARGUMENT 24 
30 001037 000000 OUT.25: .WORD 0 ZDATA ARGUMENT 25 
31 001040 000000 7.26: .WORD 0 DATA ARGUMENT 26 
32 001041 000000 T.27: .WORD 0 DATA ARGUMENT 27 
33 001068 000000 -28: .WORD 0 ZDATA ARGUMENT 28 
34 001043 000000 -29: .WORD 0 DATA ARGUMENT 

35 001044 000000 T.30: .WORD 0 DATA ARGUMENT 30 
36 001045 000000 .31: .WORD 0 3DATA ARGUMENT 31 
37 001046 000000 T.32: .WORD 0 DATA ARGUMENT 3 
38 001047 000000 7.33: .WORD 0 DATA ARGUMENT 
23 001050 000000 .34: .WORD 0 ZDATA ARGUMENT 34 
41 3IN BUFFER = DATA RECEIVED FROM HOST 
rk 001051 000000 IN.RQ: .WORD 0 HOST REQUEST CODE (ECHO) 
44 001052 000000 IN.01: .WORD 0 ZDATA ARGUMENT 1 
45 001053 000000 IN.02: .WORD DATA ARGUMENT ¢ 
46 001054 000000 IN.03: WORD ZDATA ARGUMENT 
47 001055 000000 IN.04: WORD DATA ARGUMENT 4 
48 001056 000000 IN.05: .WORD : ARGUMENT 5 
49 001057 000000 IN.06: .WORD : ARGUMENT § 
50 001060 000000 IN.07: .WORD DATA ARGUMENT 

51 001061 000000 IN.08: .WORD DATA ARGUMENT § 
2¢ 001062 000000 IN.09: WORD DATA ARGUMENT 

53 001063 000000 IN.10: WORD DATA ARGUMENT 10 
54 001064 000000 IN.11: WORD DATA ARGUMENT 11 
55 001065 000000 IN. 12: - WORD ZDATA ARGUMENT 12 
56 001066 000000 IN.13: .WORD 3DATA ARGUMENT 1 
57 001067 000000 IN.14: WORD DATA ARGUMENT 14 










E 3 
SEQ 30 
UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 21-1 ; 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, f 


58 001070 000000 IN.15: .WORD sDATA ARGUMENT 15 
59 001071 000000 IN.16: .WORD sDATA ARGUMENT 1g 
Ore 000000 IN.17: .WORD 0 sDATA ARGUMENT 1 
61 001073 000000 IN.18: .WORD 0 sDATA ARGUMENT 18 
62 001074 000000 IN.19: .WORD 0 sDATA ARGUMENT 19 
63 001075 000000 IN.20: .WORD 8 zDATA ARGUMENT 20 
o76 000000 IN.21: .WORD zDATA ARGUMENT 21 
65 001077 000000 iN.¢¢: ~WORD 0 sDATA ARGUMENT 2 
66 001100 000000 IN.25: .WORD 0 zDATA ARGUMENT 2 
67 001101 000000 IN.24: .WORD 0 sDATA ARGUMENT 24 
68 gots 000000 IN.25: .WORD 0 sDATA ARGUMENT 25 
69 001103 000000 IN.26: .WORD 0 sDATA ARGUMENT 26 
70 001104 000000 IN.27: .WORD 0 sDATA ARGUMENT 27 
71 001105 000000 IN.28: .WORD 0 sDATA ARGUMENT 28 
72 001106 000000 IN.29: .WORD 0 sDATA ARGUMENT 
73 001107 000000 IN.30: .WORD 0 sDATA ARGUMENT 
74 001110 000000 IN.31: .WORD 0 sDATA ARGUMENT 31 
75 001111 000000 ie -WORD 0 zDATA ARGUMENT 3 
76 001112 000000 IN.33: .WORD 0 sDATA ARGUMENT 3 
77 001113 000000 IN.34: .WORD 0 sDATA ARGUMENT 
78 000043 BUFSIZ = - > IN.RQ sSIZE OF BUFFER 





1 
e 
3 
4 
5 
6 
? 
8 
9 
10 
11 
12 001114 
001114 100461 
001115 100464 
13 001116 104237 
14 001117 104231 
15 001120 060004 
16 001121 115001 
17 ool ige 011126 
18 001123 104203 100001 
19 001125 001157 
20 001126 106203 001374 
21 001130 071134 
22 001131 104304 001162 
23 001133 001136 
24 001134 104304 001163 
25 001136 104137 
26 001137 104631 000001 
27 001141 060005 
28 oe tee 115001 
29 001143 011156 
30 001144 106201 000001 
31 001146 011151 
32 001147 104013 
33 001150 001157 
34 001151 117404 
35 gatas 051136 
36 001153 104203 000001 
37 001155 001157 
38 001156 114003 
39 001157 
001157 104 
001160 104261 
ra 001161 000000 
$$ cornes 000012 
43 001163 000024 


INPUTS: 


OUTPUTS: 


TALKER: 


TALKIA: 


1$: 
TALK1B: 


1$: 


TALK2A: 


TALK2B 


SDISTO: 
SDILTO: 


UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 22 


HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


TALKER SENDS AND RECEIVES AN SDI INTERCHANGE 


- SDI utente rae 


PUSH 


R = POINTER TO COMMAND TABLE CONTAINING APPROPRIATE C 
SDILTO/SDISTO SDI LONG AND SHORT TIMEOUTS, RESPECTIVELY 


RO = RETURN OP CODE yo UNIT 
R3 = ERROR CODE - 0 = 


<R1,R4> 


(R3)+,RO 
son”? R1 


ALK1A 
#100001,R3 
ALK2B 
#LONG ,R3 
SDISTO,R4 
TALK1B 
SDILTO,R4 


(R3) ,RO 
1(R3),R1 
RCV 


R1 
TALK2A 
#1,R1 


1$ 
R1,R3 | 
TALK2B “=. 
RG : 
TALK1B 
#1,R3 
TALK2B 


R 
<R4,R1> 


10. 


Be Se Se Se Se Se Se Ge Ge Ge Ge Se Ge Ge Ge Be Be Ge Se Se Se Se Se Se Se Fee 


NO ERROR, 1 = RECEIVE ERROR, 100001 = SEND ERROR 


SAVE REGISTERS 
MOV R1,-(SP) 
MOV R4,-(SP) 


; SET ADR OF SDI _— BUFFER 
: set BUFFER LENGTH 


ND COMMAND 
DID UNIT ACCEPT COMMAND 
FLAG AS SEND” ERROR 
BRANCH TO EXIT 
SEE IF LONG TIMEOUT TO BE USED 
SO, BRANCH 
SET up SHORT TIMEOUT 
BRANCH 
SET UP LONG TIMEOUT 
SET DATA BUFFER ADDRESS 
SET BUFFER LENGTH 
SEND RECEIVE Spt COMMAND 
D ERROR OC 
ty 
SEE wr “TIMEOUT 
F SO, BRANCH 
MOVE ERROR TYPE TO R3 FOR REPORTING 
DECREMENT TinEouT VALUE 
IF NOT T ANCH 
FLAG AS Recieve ERROR 
BRANCH TO EXI 
LAG AS WO ERRORS 
RESTORE R4, RI 


MOV (SP)+,R4 
MOV (SP)+,R1 


SDI SHORT TIMEOUT 
SDI LONG TIMEOUT 





SEQ 31 





SEQ 32 


UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 23 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


3 sMREAD 

: READ ONE WORD FROM UNIBUS MEMORY 

5 3 RS = ADDRESS OF WORD TO READ (LOW 16 BITS) 

& R4 = (HIGH 2 BITS) 

? ‘OUTPUTS: ; 

a : RO = DATA READ 

10 001164 MREAD: PUSH <R2,R3> ZSAVE SOME REGISTERS 
001164 1004 mov Ya: (SP) 
001165 10046 =(SP) 

11 001166 104057 MOV RS,RO zPUT UNIBUS ADDRESS IN RO AND 

12 001167 104041 MOV R4.R1 

13 001170 104202 000001 MOV #1.R2 Z TRANSFER ONE WORD 

14 001172 104203 001222 MOV #UDATA,R3 LOCATION TO PUT DATA 

15 001174 060013 XFC UREAD 0 THE READ 

16 001175 104307 001222 MOV UDATA,RO ‘CET D READ 

17 001177 POP <R3,R2> RESTORE A OTHER REGISTERS 
001177 104263 MOV (SP)+,R3 
001200 104262 MOV (SP)+.R2 

18 001201 000000 RETURN 


& 
5 
6 
7? 
8 
9 
10 001202 
Oot g0e 
00120 
001204 
11 001205 
12 001207 
13 001210 
14 gett 
15 001213 
16 001215 
17 001216 
001216 
001217 
001220 
| 001221 
20 001222 
21 





s3ne8ess 
SeEgenee 


SER 
So 


i 
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WOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


001222 


000001 
001222 


SEQ 33 


aa ae 


zMURITE 
EWRITE ONE WORD TO UNIBUS MEMORY 
; "RS = ~ ADDRESS OF WORD TO WRITE (LOW 16 BITS) 
3 HIGH 2 BITS) 
RO = DATA TO WRITE 
‘OUTPUTS: 
MWRITE: PUSH <RO,R2,R3> ZSAVE SOME REGISTERS 
MOV RO,=(SP) 
MOV v Re. * (SP) 
-(SP) 
MOV RO,UDATA :PUT DATA TO BE WRITTEN Turo BUFFER 
MOV RS.RO [PUT UNIBUS ADDRESS IN RO AND R 
MOV R4.R1 
MOV #1.R2 Z TRANSFER ONE WOR 
MOV #UDATA,R3 SADDRESS OF BATA WORD 
XFC UWRITE D0 


THE WRITE 
POP <R3,R2,R0> TRESTORE THE REGISTERS 
MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+,RO 
RETURN 
«WORD 0 


UDATA: zDATA BUFFER FOR TRANSFERS TO AND FROM 
UNIBUS MEMORY 


rc ee a + 






eo 


7c 


SEQ 34 
UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR=82 15:48:42 PAGE 25 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


1 37xOR 
5 oh ow XOR LOGIC FUNCTION ON TWO REGISTERS 
5 3 R1, R2 = DATA TO BE XOR'ED 
6 sOUTPUTS: 
7 3 R1 = UNCHANGED 
S 3 R2 = XOR OF TwO INPUTS 
10 001223 XOR: PUSH R3 sSAVE R3 
001223 100463 MOV R3,-(SP) 
11 001224 104013 MOV R1,R3 
12 001225 103023 BIC R2,R3 
13 001226 19015 BIC R1,R2 
14 001227 10103 BIS R3,R2 
15 001230 POP R3 sRESTORE R3 
001230 104263 MOV (SP)+,R3 
16 001231 115002 TST R2 sSET CONDITION CODES 
17 001232 000000 RETURN 





ee ee 





R 


or] $0 + oa 
io 


S8Ss88883ss 


et et st 


SEQ 35 


UDAT? UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 26 
HOSTRQ - HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


SAL CULATE THE TIMEOUT IN 9SEC INTERVALS (SDI RECEIVE XFC TAKES 


; SET UP LOG2 SHIFTER 


ROL 1 3 DOUBLE THE TIMEOUT VALUE 
BIC #1,R1 : CLEAR THE LOW BIT 

DEC RO : DECREMENT COUNT 

BNE 1$ : IF COUNT INCOMPLETE, BRANCH 
CLR RO : CLEAR 9SEC COUNT 

INC RO : INCREMENT 9 SEC COUNT 

SUB #9.,R1 : SUBTRACT 9 SEC FROM TIMEOUT 
BPL 2$ : IF MORE TIME TO GO, BRANCH 
RE TURN ; RETURN TO CALLING PROGRAM 


ee ee 


on aul 





WOSTRQ = HOST REQUE 


; 
4 
5 
6 001250 
7 001250 
001250 
8 001251 
9 001252 
poate 
ool 
001254 
001255 
+9 001256 
\¢ 001257 
i Bias 
Hea 
16 001264 
17 001265 
18 001266 
19 001267 
20 001271 
21 001272 
22 001273 
23 001275 
Se 001276 
26 001277 
27 001300 
28 001301 
29 001302 
30 001303 
31 001304 
% 001306 
33 001310 
34 001311 
35 potas 
36 00131 
37 001314 
38 001315 
39 001316 
40 001320 
41 001321 
18) 
1 
001324 
Oot 3s2 
42 001326 


SER 
ss 
Ww us 
= $s 


_ 
w 
MN & 
—o 
wo 


RRVINaN 
WWWIWw 


So 
& 
~ 
& 


R 
R 
ao 
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UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 27 
ST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


sRERROR 
REPORT ERROR TO HOST P 


ROG 
sTHIS ROUTINE IS CALLED BY 
sERRSF, ERRDF, ERRHRD AND ERRSFT 
RERROR: 


PUSH RO 


MOV SP,RO 
PUSH <R1,R2,R3,R4> 


INC RO 


MOV (RO)+,R1 
MOV #0uT.01,R2 


D 
MOV R1,(R2)+ 
INC R 


R3 
MOV R3,(R2)+ 
MOV (R1),R3 
BIC #*C007777,R3 
MOV R3, (R2)+ 
MOV (R1)+,R4 


MOV #E Ss 
CALL HOSTRO 
POP <R4,R3,R2,R1,R0> 


ADD #0,SP 
RETURN 
eWORD -1 


RAM 
THE ERROR MACROS: 


sSAVE ONE REGISTER 


sGET STACK POINTER 
sSAVE MORE REGISTERS 


MOV RO,-(SP) 


MOV R1,-(SP) 


MOV R4,-(S 
sCHANGE SAVED STACK POINTER TO POINT TO 
3 ADDRESS OF LOCATION AFTER CALL 
sGET RETURN PC 
sGET ADDRESS OF WHERE TO PUT DATA 
sREDUCE TO PC OF ERROR CALL 
sPUT PC_IN OUT BUFFER 
GET BACK TO RETURN PC 
2GET ERROR NUMBER AND TYPE 
sPUT IN BUFFER 
sPUT UNIT NUMBER IN BUFFER 


sGET MESSAGE POINTER 
CLEAR OTHER GITS 

sPUT IN OUT BUFFER 

:GET COUNT OF PARAMETERS 


R 
2R1 IS NOW POINTING TO INSTRUCTION AFTER ERROR CALL 
sEXTRACT NUMBER OF PARAMETERS FROM ERROR MACRO 


sSAVE FOR LATER ADJUSTMENT OF STACK POINTER 
° CH IF NO PARAMETERS 

GET PARAMETER 

sSTORE PARAMETER IN OUT BUFFER 

COUNT THE PARAMETERS 

GET NEXT IF MORE 

PUT RETURN ADDRESS ON STACK 

SEND ERROR PACKET TO HOST PROGRAM 


sRESTORE REGISTERS 


MOV ¢ 
sADJUST STACK OVER PARAMETERS 
sVALUE CHANGED ABOVE 


sLOGICAL UNIT NUMBER (-1 FOR NOT AVAILABLE) 
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HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 
48 001332 000000 SAVREG: .WORD 0 


L 3 


sSTORAGE FOR REGISTER AT CALL TIME 


ae 





UDAT1 UNIBUS ADDRESS 
HOSTRQ = HOST REQUES 


NG DMACR X04.01 135-APR-82 15:48:42 PAGE 28 
= REPORT ERRORS, MEGABYTES TRANSFERRED, 


dle 


1 sSTACK AREA 

: 001333 123456 ~WORD 123456 
4 001334 -BLKW 31. 

5 001373 123456 STACK: .WORD 123456 


EMAC MARKER FOR STACK 
‘MARKER FOR STACK UNDERFLOW 


SEQ 38 
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UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 29 
FREE MEMORY CHECK 


SEQ 39 


J .SBTTL FREE MEMORY CHECK 
: 001750 ERRN=1000. ZSTART ERROR NUMBERS FROM 1000. 
3 gASK HOST WHERE FREE MEMORY IS AND TO FILL IT WITH AN ADDRESS PATTERN 
7 001374 LONG: ZUNUSED LABEL THAT MUST BE DEFINED 
8 001374 104207 060000 START: MOV #T1MSIZ,RO 3GET REQUEST NUMBER 
9 001376 020751 CALL HOSTRO ASK HOST 
10 001377 104207 001052 MOV #1N.01,RO TRANSFER DATA FROM HOST 
11 001401 104201 002416 MOV #FWADR.R1 : TO STORAGE 
12 001403 104202 000010 MOV #8. ,R2 
13 001405 104273 FMEMFL: MOV (ROS+,R3 
14 001406 100213 MOV R3,(R1)+ 
15 001407 117402 DEC R2 
16 001410 051405 BNE FMEMFL 
18 gREAD ALL OF SPECIFIED MEMORY AND CHECK FOR DATA SAME AS ADDRESS 
20 001411 104305 002416 MOV FWADR,RS :GET STARTING ADDRESS 
21 001413 104304 002417 MOV FWADRH,R4 
22 001415 021164 ACHK1: CALL MREAD READ FROM UNIBUS MEMORY 
23 001416 115001 TST R IT OK? 
24 001417 011440 BEQ ACHK2 IF SO, CONTINUE 
25 001420 117401 DEC RI z1F R1 = 1, NON EXITENT MEMORY 
26 001421 051430 BNE 1$ : IF NOT, CONTINUE 
27 001422 ERRHRD MS1000,R5,R4 
001422 100464 MOV R4, ~($P) 
001423 100465 MOV RS.=( 
001424 021259 CALL RERROR. sERROR # 1000. 
001425 101750 .WORD ERHARD+ERRN 
001426 020000 “WORD <PRMS*10000>+MS1000 
28 001427 001451 BR ACHK3 CONTINUE 
001430 1$: ERRHRD MS1001,R5,R4,R5,RO 
001430 100467 MOV RO,-(SP) 
001431 100465 MOV RS.-(SP) 
145@ 100464 MOV R4.-(SP) 
N01433 100465 MOV RS.-(SP) 
1434 021250 CALL RERROR —: ERROR # 1001. 
001435 101751 <WORD ERHARD+ERRN 
001436 040063 “WORD <PRMS*=10000>+MS1001 
30 001437 001451 BR ACHK3 : CONTINUE 
32 :COMPARE DATA READ WITH EXPECTED 
34 001440 106075 ACHK2: (CMP RO,RS : COMPARE DATA READ WITH ADDRESS 
35 001441 011451 BEQ ACHK3 ‘BRANCH IF A MATCH 
36 001442 ERRHRD MS1002.R5.R4.R5,RO :UNIBUS ADDRESSING ERROR - INCORRECT DATA READ 
001448 100467 MOV RO,-(SP) 
001443 100465 MOV RS.-(SP) 
1444 100464 MOV R4.=(SP) 
001445 100465 MOV RS.-(SP) 
1446 021250 CALL RERROR aiErrOR # 1002. 
001447 101752 <WORD ERHARD+E 
001450 040170 ; WORD EPRMS*10000>+"S1002 


: INCREMENT TO NEXT LOCATION UNTIL ALL TESTED 
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FREE MEMORY CHEC 
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ACHK3: 


ACHK4: 





CMP LWADR,RS 





% 


sCHECK IF AT LAST ADDRESS 


GO TO NEXT TEST IF SO 
: INCREMENT TEST ADDRESS 


sCARRY TO HIGH BITS 
sLOOP IF STILL IN SPECIFIED MEMORY 


SEQ 40 


UDAT1 UNIBUS ADD 
FREE MEMORY CHEC 
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bosco7 
000002 
002416 
002426 





sCHECK EACH ADDRESS LINE BY LOOKING AT TWO LOCATIONS WITH ONLY THAT 
sADDRESS LINE DIFFERENT AND VERIFYING TWO LOCATIONS ARE ACTUALLY ACCESSED 


BCHK: MOV 8 yg pein sLOAD TEST ADDRESS HIGH BITS 


MOV RO, TADRH 

V #2,R3 sGET STARTING ADDRESS BIT TO TEST 

BCHK1: MOV RS,R2 sGET ADDRESS BIT TO TE 

MOV FWADR,R1 sGET FIRST ADDRESS OF FREE MEMORY 
CALL XOR sCHANGE JUST THE ONE BIT IN ADDRESS 
MOV R2,TADR sSTORE TEST ADDRESS 
CALL gc sTEST THE MEMORY ADDRESS 
ADD R3,R3 3GET NEW ADDRESS BIT TO TEST 


BNE BCHK1 sLOOP IF STILL AN ADDRESS BIT TO TEST 


MOV FWADR,RO NOW MOVE TO HIGH TWO BITS 
MOV RO,TADR COPY LOW BITS TO TEST ADDRESS 
MOV #1,R3 sSTART BIT 
BCHK2: MOV R3,R2 sGET TEST BIT 
MOV FWADRH,R1 3GET FIRST ADDRESS 
L Xx sCHANGE ONLY THE 
MOV R2,TADRH sSTORE AS TEST ADDRESS 
L gC sTEST THE MEMORY ADDRESS 
ADD R3,R3 sCHANGE TEST BIT 


; E 
BIT #4,R3 CHECK _IF PAST TWO ADDRESS BITS 
BEQ BCHK2 


REPEAT FOR OTHER BIT 





ES I — — 1 
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FREE MEMORY CHECK 








} ;TRANSFER LARGE BUFFERS OF DATA TO AND FROM THE HOST MEMORY. | 
3 TTHE HOST MEMORY WILL BE DIVIDED INTO SEVERAL BUFFERS. ALL BUFFERS WILL | 
7 3BE WRITTEN WITH PATTERN O THEN READ AND THE DATA COMPARED TO PATTERN O. | 
5 SEACH BUFFER WILL THEN BE WRITTEN TO PATTERN 1 WITH A READ OF ALL BUFFERS | 
6 ZAFTER EACH WRITE. WHEN ALL BUFFERS HAVE SEEN WRITTEN WITH PATTERN 1, THEN | 
? PEATS BY WRITING EACH BUFFER WITH PATTERN 2 AND THEN 
8 iwith PATTERN 3. 
10 {DATA PATTERNS: (EACH 1S A REPETITION OF THREE WORDS) 
11 70 = 1111 1 = 177400 5555 3 = 000377 
12 sO ahaaas 007760 133333 170017 | 
13 > 022222 000377 beeeee 177400 | 
15 ZBREAK THE HOST MEMORY INTO BUFFERS | 
17 001524 104202 007774 CCHK: MOV #7774,R2 COMPUTE SIZE OF DATA 
18 001526 107202 002460 SUB FREE *R2 : BUFFER IN M MEMORY | 
19 001530 105022 R2,R2° SCHANGE TO BYTE COUNT | 
20 tee FIND ‘out IF WRITABLE HOST SPACE IS LESS THAN AVAILABLE DM SPACE 
21 001531 104304 002420 LWADR,R4 :R4 = LAST WRITABLE HOST BUFFER WORD LOCATION 
22 001533 104303 002421 MOY LUADAA AS =R3 = EXTENDED ADDRESS BITS OF SAME 
23 001535 107304 002416 SUB ss FWADRR4 3R4 = WRITABLE BUFFER SIZ 
34 001537 041541 ecc—Os«éd18 IF DIDN'T CROSS PAGE BOUNDARY, CONTINUE 
35 001540 117403 DEC — «RB bse. ht DECREMENT EXTENDED ADDRESS BITS BY 1 
26 001541 107303 002417 1$: SUB _FUADRH,RS TENDED ADDRESS OF URITABLE BUFFER SIZE 
27 001543 105203 000000 aR i CARRY 
58 yp tee DIVIDE WRITABLE REGION SIZE BY HALF 
9 001545 110603 R3 ROTATE EXTENDED ADDRESS BITS INTO CARRY 
001546 110604 ROR OR ROTATE EXTENDED ADDRESS IN & GET AREA/2 
31 001547 102204 000001 BIT #BITOO,R4 MAKE SURE THE BYTE COUNT IS EVEN 
32 001551 011553 BEQStié«éDS;: IF IT 1S, CONT 
33 001952 117404 DEC — aR ELSE, FORCE BYTE COUNT TO BE EVEN 
3 001553 115003 2s: TST R3 :1S R$ = 0? 
5 001554 051560 BNE «38 IF NOT, WRITABLE AREA >>> AVAILABLE DM BUFFER SPACE. 
36 001555 106042 CMP R4,R2 [1S WRITABLE AREA < AVAILABLE DM BUFFER SPACE 
7 001556 041560 BCC :1F NOT 
38 001557 104042 MOV —s-R4, R2 ELSE, bm SPACE > HOST URITABLE SPACE 
40 001560 104205 002460 3S: MOV #FREE.RS 2GET ADDRESS OF FIRST TABLE ENTRY 
41 001562 104304 002416 MOV FWADR-RG 3GET ADDRESS OF FIRST | 
42 001564 104303 002617 MOV FWADRA.R3 BUFFER IN | 
43 001566 114001 CLR RI SINIT COUNT OF BUFFERS | 
44 001567 100256 48: MOV RG, (R5D¢ :STORE HOST BUFFER ADDRESS 
45 001570 100253 V R3.(R5)+ jac IN TABE ENTRY | 
46 001571 107202 000004 SUB a *R2 REDUCE BUFFER SIZE BY TABLE ENTRY 
47 001575 105024 ADD R2.R4 ; INCREADE HOST ADDRESS T 
48 001574 0415 Bcc 5$ : NEXT BUFFER | 
49 001575 11540 INC R3 | 
50 001576 106303 002421 5$: CHP LUADRH,RS ;CHECK IF BUFFER LARGER | 
51 001600 071610 BMI : THEN HOST MEMORY REMAINING | 
52 001601 051606 BNE 6$ | 
53 001602 106304 002420 CMP LWADR,R4 
54 001604 041606 BCC 6$ | 
55 001605 00161 7$ 
56 001606 115401 6$: INC RI COUNT THE TABLE ENTRY 
57 001607 001567 BR 4$ G0 JACK AND DO AGAIN 
| 
i 


| E 4 
SEQ 43 

UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 31-1 

FREE MEMORY CHECK 


58 

59 001610 104050 002433 7$: MOV RS ,DATBUF 3 SAVE git ty OF DATA BUFFER 
60 001612 105207 000000 ADD #0,R0 :CLE 

61 001614 110602 ROR R 3 SAVE size "OF DATA BUFFER 
Ge 001615 104020 Oost as MOV R2,SIZBUF N WORD 

63 001617 104010 430 MOV R1,BUF CNT SAVE COUNT OF BUFFERS 
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UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 32 
FREE MEMORY CHECK 


sWRITE ALL BUFFERS TO PATTERN 0 


CLR RO 

MOV RO,CURPAT 
MOV RO, CURBUF 
CALL WRIT 
yr CURBUF ,RO 
CMP BUFCNT.RO 
BNE 8$ 

CALL READ 
MOV CURPAT ,RO 
INC RO 


CMP #4,RO 
BEQ DONECD 
MOV RO,CURPAT 





SEQ 44 


zLOAD PATTERN 0 

:__IN SAVE WORD 

sSELECT BUFFER 0 

sWRITE THE BUFFER 

z INCREMENT TO NEXT BUFFER 
sWRITE ANOTHER IF 

:__NOT AT LAST 

sREAD ALL HOST BUFFERS 
INCREMENT PATTERN NUMBER 
sEXIT SUBTEST IF NO 

3: NO PATTERNS REMAINING 
:POINT TO BUFFER 0 

WRITE A BUFFER 

sREAD ALL _HOST BUFFERS 

zs INCREMENT TO NEXT BUFFER 
CHECK IF AT LAST 
2 WRITE NEXT BUFFER 
: WRITE NEXT PATTERN 










UDAT1_UNIBUS ADDRES R “APR« 
UDATT, UNIBUS ADDRESSING DMACR X04.01 13-APR=82 15:48:42 PAGE 33 


4 BO166e 02073) 060016 DONE CD: ohn eorthe 


001668 cra 





sEND OF PROGRAM, TELL PDP-11 
sKEEP SENDING IF RETURNED 


SEQ 45 





Oana Ms 


BS Sears | ae 


UDATT UNIBUS ADDRESSING DMACR X04.01 13-APR=82 15:48:42 PAGE 34 
FREE MEMORY CHECK 


SEQ 46 





1 sFILL A DATA BUFFER BEGINNING AT ADDRESS IN DATBUF AND WHOSE SIZE ( 
¢ z1S IN SIZBUF WITH A DATA {PATTERN SPECIFIED BY CONTENTS OF CURPAT. ( 
WRITE THIS BUFFER TO HOST STARTING AT ADDRESS IN TWO WORDS POINTED ( 

4 3T0 BY CURBUF. THEN PLACE THE PATTERN NUMBER IN THE SECOND WORD OF THE t 
; :HOST ADDRESS ; 
; FILL BUFFER WITH DATA PATTERN ; 
9 001666 104307 002432 WRITE: MOV CURPAT,RO 3GET PATTERN NUMBER k 
10 001670 105077 ADD RO,RO : TIMES FOUR y 
11 001671 105077 ADD RO,RO k 
2 001672 104072 MOV RO Re sSAVE FOR ADDING TO TABLE ENTRY kK 
13 001673 105207 002254 ADD #PATO,RO ADD START OF PATTERN TABLES K 
14 001675 104273 MOV (RO)+,R3 GET PATTERN WORDS H 
15 001676 104274 MOV (RO)+,R4 K 
16 001677 104275 MOV (RO)+,R5 H 
17 001700 104307 002433 MOV DATBUF RO 3GET ADDRESS OF BUFFER H 
18 001702 104301 002434 MOV SIZBUF.R1 3GET SIZE OF BUFFER : 
20 001704 100273 1$: MOV R3,(RO)+ ZLOAD ONE WORD H 
21 001705 117401 DEC R1 COUNT THE WORDS H 
22 001706 011715 BEQ 2$ H 
23 001707 100274 MOV R4,(RO)+ 3LOAD ONE WORD H 
24 001710 117401 DEC R1 COUNT THE WORDS I 
25 001711 011715 BEQ 2$ I 
26 001712 100275 MOV RS, (RO) + ZLOAD ONE WORD I 
27 001713 117401 DEC R 3COUNT THE WORDS I 
$s 001714 051704 BNE iS i 
4 WRITE THE BUFFER TO HOST MEMORY ; 
32 001715 104305 002431 28: MOV CURBUF .RS 3GET POINTER TO HOST ADDRESS I 
33 001717 105055 ADD R5,RS » € TIMES TwO I 
34 001720 105205 002460 ADD #FREE.RS : S "STAR ADDRESS I 
BS 90172¢ 104257 MOV (R5)+,RO 3GET LOW ADDRESS BITS I 
36 001723 104151 MOV 3GET HIGH ADDRESS BITS I 
37 001724 103201 177774 BIC re R1 CLEAR CURRENT PATTERN I 
38 001726 104070 002447 MOV RO, LBUF WL zSAVE LAST BUFFER WRITTEN I 
39 001730 104010 002450 R1, LBUF WH I 
40 00173¢ 10101 BIS R1,R2 zSET IN NEW PATTERN I 
41 001733 10015 MOV R2, (RS) STORE IN TABLE ENTRY I 
42 001734 104302 0024 $1 2BUF , GET S TO TRANSFER I 
43 001736 104303 002433 MOV DATBUF.R 3GET DM ADDRESS I 
44 001740 060014 KFC UWRIT 3WRITE TO THE HOST MEMORY I 
45 001741 000000 TURN ; 
I 
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SEQ 47 
| UDAT1_UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 35 
FREE MEMORY CHECK 
1 AD_AND PERFORM A DATA COMPARE ON ALL THE HOST BUFFERS. TWO WORD 
é STABLE ENTRIES STARTING AT FREE CONTAIN THE HOST ADDRESS OF THE 
3BUF FERS THE PATTERN NUMBER LAST WRITTEN TO THE BUFFER. THE 
4 ER oF B BUFF ERS IS IN BUFCNT AND THE SIZE OF THE BUFFERS IS IN 
H :S1ZBUF. THE DATA CAN BE READ INTO THE DM AT ADDRESS IN DATBUF. 
7 001742 104205 002460 READ: MOV #FREE.RS GET ADDRESS OF TABLE ENTRIES 
Q 001744 104 002430 MOV BUF CNT R46 3GET COUNT OF BUFFERS 
10 ;READ DATA FROM HOST BUFFER INTO DM MEMORY 
12 001746 104303 002433 1$: MOV DATBUF .R3 :R3 = ADDRESS OF DATA BUFFER IN DM MEMORY 
13 001750 104302 002434 MOV SIZBUF .R2 ZSIZE OF BUFFER 
14 001752 10425 MOV (R5)+,RO GET BUFFER ADDRESS 
15 001753 104151 MOV (R5) RI 
16 001754 103201 177774 BIC #177776,R1 ZPLEAR PATTERN NUMBER 
17 001756 104070 002426 MOV RO, TADR ZSAVE ADDRESS IN CASE OF ERROR 
18 001760 104010 002427 R1. TADRH 
19 001762 060013 KFC URE ZREAD THE WORD 
20 001763 115001 TST R1 [WAS IT READ PROPERLY? 
21 001764 012030 BEQ 3$ :1F $0, GO ON TO DO MORE 
32 001765 117401 DEC R1 [WAS If AN NXM ERROR? 
23 001766 052010 BNE 2$ 31F NOT, REPORT PARITY ERROR 
24 001767 ERRHRD MS1003, TADR, TADRH, S1ZBUF 
001767 104010 001332 MOV R1,SAVREG 
001771 104301 0024 MOV SIZBUF RI 
001773 100461 MOV R1,-(SP) 
001774 104301 002427 MOV TADRH, 
001776 100461 MOV R1,-(SP) 
1777 104301 002426 MOV TADR, 
002001 100461 MOV R1,-(SP) 
002002 104301 001332 MOV SAVREG,R1 
921250 CALL RERROR ERROR # 1003. 
10175 .WORD ERHARD+ERRN 
030332 .WORD <PRMS*10000>+mS1003 
25 002030 BR 3$ EXIT 
26 2s: ERRHRD MS1004, TADR, TADRH, $1ZBUF 
104010 001332 MOV R1,SAVREG 
104301 002434 MOV SIZBUF ,R1 
100461 MOV R1,-(SP) 
104301 002427 MOV TADRH,R1 
100461 MOV R1,-(SP) 
104301 002426 MOV TADR.R1 
100461 MOV R1,-(SP) 
104301 001332 MOV SAVREG,R1 
021250 CALL RERROR ERROR # 1004. 
101754 .WORD ERHARD*ERRN 
: 5 .WORD <PRMS*10000>+MS1004 
3 **® SET UP OUT BUFFER IN CASE OF ERROR 
002030 3s: PUSH  <RS,R4> 
00 100465 mov RS.=(SP) 
1 1004 V R4.=(SP) 
1 104 00 460 MOV #FREE.RS 3GET ADDRESS OF TABLE ENTRIES 
00 104 6 MOV BUF CNT R64 GET COUNT 30F BUFFERS 
i 36 106204 CMP #4°R6 t1$ R4 > 
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002443 


002427 
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Paes STORE 


5$: 


ae 


4s 
IN OUTPUT osu 


$1780 
R1 [zeit a 
R 


etree (R4),R1 
R1,(RO)* 
R4” 


(RS5)*,R1 
R1, (RO)+ 


sCOMPARE DATA READ WITH DATA PATTERN 


MOV 
MOV 
DEC 
MOV 


+4 rou . + ah 


Re 
RS)+, TADR 
n 1i7hr, TADRH 


INC 
CMP 


PUSH 


ERRNUM 
o3-ERRMUM 
<RO,R1> 


OUTPTR,RO 


Ri 
tsb)e, R1 


JUST IN case. EOF Chron 


SEQ 48 


4H NOT, pinte NEXT pormttoen 
F SO, FORCE R4 = 


5 OUTPUT BUFFER 
:GIVE BUFFER SIZE 
ZGIVE START OF ALL BUFFERS 


sRESTORE R4 
sSTORE BUFFER LO ADDRESS 


sSTORE BUFFER HI ADDRESS 


Ee T DUNE. (# OF se 


OUT POINTER HAS ADDRESS PAST BUFFERS LOCATIONS 
sQUTPRT => PAST DATA OF FIXED LENGTH 
SAVE PREVIOUS POINTER 


MOV (SP)+,R4 
MOV (SP)+,R5 


sTEMP1 IS pe Coenen COUNTER 
zR3 => DM DATA BUFFER 
Re => BAC ck aro LO BUFFER ADDRESS 
3GET BUFFER ADDRESS 


IMASK HI_ADDRESS ONLY 
;R2 = PATTERN 
MASK PATTERN 
7R2 => pd aye 
CLEAR ERROR COUNT 
sTEMP2 = SIZE OF ANY PATTERN 
:DATA RECEIVED 
DATA EXPECTED 
COMPAR € THE TWO 


31F EQUAL, NO ERROR 


s INCREASE THE ERROR ny 
tp to THAN 3 yee REPORTS 
31F SO, DO NOT ADD ANY MORE TO THE ERROR REPORT 


MOV RO,=(SP) 
MOV R1.-(SP) 
3RO => WHERE IN THE OUTPUT BUFFER 
; TO PUT ERROR INF 


sSTORE ERROR ADDRESS 


SSTORE DATA EXPECTED 
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FREE MEMORY CHECK 
87 SEY 100271 
88 002153 104261 
89 002154 100271 
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wow 
IN 
w 


002432 
04301 002447 

002450 

002442 
| 000003 
000002 
002442 
002455 


33 
Lt] 
— 
~ 


Nm 
S 
ced eed eth coh eed od eh Bod aA oh = A 
4 ey 


S 


222 


NASVSVERROSLSSHVanKAnasSSeVEARELLS3S 


Aepaopaoguapaapaooun 
SRIEVRY 
wa 
— 


002426 


002442 


SEQ 49 


sSTORE DATA RECEIVED 
sSTORE NEW OUTPUT POINTER 


s INCREMENT LO ADDRESS 

21F DID NOT CROSS EXTENDED BOUNDARY, SKIP 
ELSE, INCREMENT EXTENDED ADDRESS 

TP 30 wy ~~ ENTIRE BUFFER? 


LOOP 
ENB OF PATTERN? 
TF MOT. LOOP Baer 
*R2 => START OF PATTERN 
SLOOP BACK TO RESET TEMP2 


sANY ERRORS OCCURED? 
s1F NOT, CHECK IF DONE WITH ROUTINE 
RO => > AFTER 6 BUFFER LOCATIONS STORED 


3R2 => 
ISOLATE PATTERN # 
;MASK PATTERN NUMBER 


SCLEAR. CARRY 


sPATTERN NUMBER IN LO 2 BITS 
sSTORE PATTERN NUMBER 


sLAST PATTERN WRITTEN 
sLAST BUFFER WRITTEN 


sERROR COUNT 

2D0 WE HAVE MORE THAN 3 ERRORS? 
31F NOT, CONTINUE 

3SET R2°FOR MAX 


STORE ERROR COUNT IN R2 


MOV (RO) + 
MOV asbye RI 
MOV R1, (RO) 
MOV RO, OUTPTR 
zy *©* RESUME NORMAL PROCESSING 
8$: ADD #2,TADR 
BNE 9$ 
INC TADRH 
9$: DEC TEMP1 
BEQ 10$ 
DEC TEMP2 
BNE 7$ 
SUB #3,R2 
BR 65 
z *** ALL OF THE BUFFER HAS BEEN TESTED 
10$: TST ERRNUM 
BEQ 13$ 
MOV OuTPT?, RO 
MOV Re Ri 
SUB 
BIC my ree R1 
ADD #0,R1 
ROR 
ROR 
MOV R1,(RO)+ 
MOV CURPAT,R1 
MOV R1, (ROS+ 
MOV LBUFWL,R1 
MOV R1, (ROS+ 
MOV WH 
MOV R1, (ROS+ 
MOV 
MOV R1, (ROS¢ 
CMP #3. ERRNUM 
BCC 11$ 
MOV a2 R2 
BR 12$ 
11$: MOV ERRNUM,R2 
DEC R2 
12$: mov ETABLE(R2). RI 


ERRHRD mSi00S 


[TABLE ENTRY 


CALL _RERROR sERROR # 1005. 
eWORD ERHARD+ERRN 
eWORD <PRMS*10000>+mS1005 


sCYCLE THROUGH ALL HOST BUFFERS 


13$: DEC 
BNE 
14$: RETURN 


R4 
1$ 


2 COUNT BUFFERS 
REPEAT FOR ALL BUFFERS 





SPS EPFIPIVIVIVIVIVIVIVI VIVIVIVIWIVIWVIWVIWIWIVIWWNVIVIWMVIWWWWWIWWI YI ee ee RO re 





SEQ 50 | 


-oo oor --o --S 
oo- oon ore --S 
o-oo ao -o- --S 
—-oo o- --—o >on 
Ss S -- So- = 
- -— -on - 
Bes See «Gee ESS 
ss -— -On-” - 
Ss- ss Sex = 
sz -_— -o-=- o- 
-S - --o -r 
oo - ore o> om 
DoD 2m Soo Son 
ecco PPPo PP2Po P29 
oe 


:DATA PATTERN TABLES 


-01 13-APR-82 15:48:42 PAGE 36 
PATO 
PAT1 
_ PAT2: 
PATS 


PREAGRON DOOR NMG OI-DOD 
Ce ee el el el ok el ek od 


UDAT1 UNIBUS ADDRESSING DMACR x04 
114111 
044444 
022222 
000000 

60 177400 
61 007760 
000377 
000000 
155555 
133333 
066666 
000000 

2270 000377 


FREE MEMORY CHECK 











SEQ 51 | 
UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 37 | 
FREE MEMORY CHECK 
| 
1 sCHECK IF TEST ADDRESS IS IN BOUNDS OF READABLE MEMORY | 
¢ 002373 106300 002427 002423 BCHKM: (CMP TADRH,FRADRH sCOMPARE TEST ADDRESS WITH FIRST READABE ADDRESS 
4 002276 012301 BEQ 1$ :BRANCH 1F EQUAL | 
5 002277 042306 BCC 2$ ZBRANCH IF TEST ADDRESS HIGHER 
6 002 002415 BR BCHKMX :BRANCH IF TEST ADDRESS LOWER 
7 002301 106300 002426 002422 1$: CMP TADR,FRADR 
8 00. 304 042506 BCC 2$ ZBRANCH IF HIGHER OR SAME 
9 002305 002415 __ BR BCHKMX [BRANCH IF 
10 002306 106300 002425 002427 28: CMP LRADRH, TADRH [COMPARE TEST ADRESS WITH LAST READABLE ADDRESS 
11 902311 012314 BEQ 3$ ZBRANCH IF EQUAL 
12 002312 042321 BCC 4$ ZBRANCH IF READABLE ADDRESS HIGHER 
13 002313 002415 BR BCHKMX ZBRANCH IF READABLE ADDRESS LOWER | 
14 002314 106300 002424 002426 3S: CMP LRADR,TADR 
15 002317 042321 BCC 4$ zBRANCH IF HIGHER OR SAME 
16 002320 002415 ZBRANCH IF LOWER | 
18 002321 104305 002416 4$: V FWADR,RS ZWRITE ONES INTO FIRST ADDRESS 
19 002323 104304 O02617 MOV FWADRH,R4 | 
20 002325 104207 177777 MOV #177777,R0 
21 002327 021202 CALL MWRITE 
22 002330 104305 602426 MOV TADR,RS ZREAD FROM TEST ADDRESS 
23 002332 104204 002427 MOV TADRH,R4 
24 002334 021164 CALL MREAD 
25 002335 106201 000001 CMP #1,R1 7DID WE GET A NXM? 
26 002337 012415 BEQ BCHKMX Z1F SO, EXIT 
27 002340 106207 177777 CMP #177777,R0 ZCHECK DATA READ FOR ALL ONES 
38 002342 052415 BNE BCHKMX 760 TO NEXT BIT IF NOT ALL ONES i 
30 002343 104305 002416 MOV FWADR,RS ZWRITE ALL ZEROS TO FIRST ADDRESS 
31 002345 106304 002417 MOV FWADRH,R4 
32 002347 114007 CLR RO 
33 002350 021202 CALL MWRITE | 
34 002351 104305 002426 TADR,RS ZREAD FROM TEST ADDRESS 
35 002353 104304 002427 MOV TADRH,R4 
36 002355 021164 L MREAD 
37 002356 106201 000001 CMP #1,R1 3D1ID WE GET A NXM? | 
38 002360 012415 BEQ BCHKMX 31F SO, EXIT 
39 002361 115007 RO [CHECK DATA READ FOR ALL ZEROS 
40 002362 052415 BNE BCHKMX 360 TO NEXT BIT IF NOT ALL ZEROS 
42 002363 104301 002416 MOV FWADR,R1 ZCOMPUTE XOR OF FIRST ADDRESS 
3 002365 104052 MOV RS,R2 : AND TEST ADDRESS | 
44 002366 021223 CALL XOR | 
45 002367 104027 MOV R2,RO ZRESULT TO RO 
46 002370 104301 002417 MOV FWADRH,R1 :NOW DO IT FOR HIGH BITS 
47 002372 10404 V R4,R2 
48 00237 02122 L XOR 
49 002374 ERRHRD MS1006,FWADR,FWADRH,RS,R4,RO,R2 ;UNIBUS ADDRESSING ERROR. TWO ADDRESSES READ 
002374 100462 V R2,-(SP) 
002375 10046 RO,-(SP) 
002376 100464 MOV R4,-(SP) 
Opez00 sero 001332 Woy ai savers 
902402 104301 002417 FWADRH,R 
404 100461 MOV R1,-(SP) 
002405 104301 002416 MOV FWADR,R1 





cc Cll ll lC CCC lL COOL OC lll OO OlE OE ECC ll Cl Cll OO El ll CC CCCCCCCCOCOCL atta Oo 


N 4 


UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR=82 15:48:42 PAGE 37-1 
FREE MEMORY CHECK 


SEQ 52 


001332 MOV SAVREG,R1 


[WORD <PRMS *10000>+MS 1006 


U 
W 
Py 
Wl 
id 
u 
51 002415 BCHKMX: RETURN . 
x 
x 
x 
a 





SEE EERE 
fe SEQ 53 | 





UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 38 
FREE MEMORY CHECK 


3PROGRAM VARIABLES 


| 
| 
! 
| 
i 
| 


002416 000000 FWADR: .WORD ZFIRST ADDRESS CONTAINING ADDRESS DATA 
4 002417 000000 FWADRH: .WORD 
5 002420 000000 LWADR: .WORD ZLAST ADDRESS CONTAINING ADDRESS DATA 
6 002421 000000 LWADRH: .WORD : 
8 002422 000000 FRADR: WORD sFIRST ADDRESS READABLE 
9 002423 000000 FRADRH: .WORD 
10 002424 000000 LRADR: .WORD 0 gLAST ADDRESS READABLE 
i } 002425 000000 LRADRH: .WORD 0 
13 002426 000000 TADR:  .WORD 0 ZTEST ADDRESS | 
4 002427 000000 TADRH: WORD 0 | 
16 002430 000000 BUFCNT: .WORD 0 sCOUNT OF BUFFERS IN HOST MEMORY 
17 002431 000000 CURBUF: .WORD 0 ;CURRENT BUFFER BEING WRITTEN IN HOST 
18 002432 000000 CURPAT: .WORD 0 SCURRENT DATA PATTERN BEING WRITTEN 
19 002433 000000 DATBUF: .WORD 0 ZADDRESS OF DATA BUFFER IN DM MEMORY 
20 002434 000000 SIZBUF: .WORD 0 7SIZE OF DATA BUFFER IN HOST MEMORY 
22 :HOST BUFFER TABLE ENTRIES ARE STORED AFTER THE PROGRAM AT FREE. | 
2 : TWO WORDS PER TABLE 
24 ; PIR ST con - LOW 16 BITS OF Host ADDRESS 
25 ; SECOND WORD = BITS 1-0 HIGH TWO BITS OF HOST ADDRESS 
26 3 BITS 3-2 PATTERN LAST WRITTEN | 
28 002435 000000 CMPSIZ: .WORD 0 ;TABLE FOR COMPARE DATA PATTERN XFC 
29 002436 000000 CMPADR: .WORD 0 | 
30 002437 000000 CMP1: WORD 9 
31 002440 000000 CMP?:  . WORD 
3 002441 000000 CMPS: WORD 0 | 
4 : MISSEL NEOUS DATA STORAGE 
5 902442 000000 ERRNUM: .WOR ZHOLDS NUMBER OF ERRORS DURING COMPARE 
002443 000000 TEMP1: “WORD 3TEMPORARY STORAGE 
7 002444 000000 TEMP2: WORD 
002445 000000 OUTPTR: .WORD : POINTER INTO OUTPUT BUFFER FOR COMPARE 
9 002446 000000 OUTPT2: .WORD : 
40 002447 000000 LBUFWL: .WORD ZLAST BUFFER WRITTEN SAVED IN WRITE 
41 002450 000000 LBUFWH: .WORD : SAME 
42 902451 901274 001264 001254 BTABLE: .WORD 81,82,83.84 | 
43 002455 $0138? 001332 001305 ETABLE: .WORD E1, 
4 3MESSAGE STORAGE eee ay 
46 002460 FREE: ¢ FREE SPACE BEGINS HERE 
47 002460 DMOVLY MS,0 
2460 000105 :OQUTPUT EDC FOR THIS OVERLAY 





= 
— 
— 


»WRED 
eNLIST BEX 
MS1000: stl. EXISTANT MEMORY ERROR TRYING TO READ FROM UNIBUS."N\ 
I $ “OCTAL''S6" HEX’ N\ 
I 
I 
I 


““ADDRE SS*'S9018ROROSSH1BN\ 


“PARITY ERROR ON READ FROM UNIBUS."'N\ 


\ 
\ 
fe 
\s25"0C TAL*'S6* HEX’ N\ 





i 
| 
! 
| 
| 
| 
| 
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UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 38-1 
FREE MEMORY CHECK 


SEQ 54 


56 00011 123 070 04 ASCII NSE ARNE SS ‘S901 8RORISSH1BN\ 

5? 00013 133 070 04 eASCII\S8* DATA READ''S7016R9SSH16N\ 

3 Boot 2e AS8 070 04 rt! a ‘DATA EXPECTED’ 'S3016R9SSHI6N\ 

60 000170 04 125 116 MS1002: .ASCII\' UNIBUS peatieune ERROR = INCORRECT DATA READ.’ W\ 
61 pooses 04 115 10 eASCII\’MEMORY LOCATION SHOULD CONTAIN OWN ADDRESS.‘ N\ 

é¢ 000247 12 062 065 eASCIINS25° OC TAL''S6° HEX’ N\ 

63 000260 123 070 04 eASCII\S8"ADDRESS*’S9018R rds tbh a 

64 000275 123 070 04 eASCIINS8’DATA READ''S7016R9SSHI6N\ 

o? po0te ise 070 04 ° 1 ae ATA EXPECTED’ SeoTeRgSsnt6M\ 

67 000332 036 38 117 MS1003: .ASCII\"'NON-EX St one ERROR TRYING TO READ FROM UNIBUS WITHIN BUFFER.’ W\ 
68 000375 12 06 070 eASCII\S28' 4 A ie Oe 

69 Boe oe og 040 123 eASCII\"’ STARTING A F BUFFER ‘O18R9ROSSHIEN\ 

on og 065 070 042 os ad BUFFER sI2E" FSB016ROSSHION\ 

72 000452 o36 120 101 MS1004: .ASCII\’PARITY ERROR ON READ FROM UNIBUS WITHIN BUFFER.’N\ 
73 000503 12 062 070 eASCII\ g Bl A. ay 

74 000514 O36 040 123 eASCII\"" STARTING A OF BUFFER *O18RIRISSH1EN\ 

Le Gopeey A83 070 042 . “eo size! FSBO GROSSHIGN\ 

77 000560 835 104 101 MS1005: .ASCII\’DATA COMPARE FAILED AFTER WRITE THEN READ FROM UNIBUS."'N\ 
78 000614 04 040 196 ~ASCII\'" BUFFER SIZE = “016'%0)' RISSH16°°(X)' R9S3D16"". (D)* NA 
79 000646 042 040 12 ASCII\"" STARTING ADDRESSES OF BUFFERS’ W\ 

80 000666 123 066 One ASCII\S6"'OCTAL''S11° HEX" NR1\ : 

81 000700 04 040 10 “ASCII\' ro rtean PATTERN READ‘‘S17D6N\ 

82 000721 04 040 114 eASCII\'’ LAST PATTERN WRITTEN’ 'S22D6N\ 

83 000740 04 040 123 eASCIIN STARTING. —_ S OF LAST BUFFER WRITTEN''SSO18° "(0)" ROROSSH1B''(X)* WV 
84 001001 042 040 11 eASCII\" ER OF ERRORS F “N\ 

85 001024 123 064 04 eASCII\SG’ LOCATION''S6- DATA EXPECTED''S6' DATA RECEIVED’ W\ 

86 001054 123 062 04 ASCII\S +f Nato HEX’'S6"OCTAL HEX''SB’OCTAL HEX'N\ 
cae yw eh 

89 001105 O36 125 Aig MS1006: .ASCII\’UNIBUS SPORES SING ERROR. TWO ADDRESSES READ SAME LOCATION.'W\ 
90 001143 12 063 06 “ASEIINS Petune, A gg + 

91 001154 123 070 04 eASCII\S8" KNOWN GOOD AD Fp oe dl ot ctf Eo 

4 001177 123 070 04 eASCIINS ERROR OR_ADDRESS*S11018RORDS 

93 001217 123 070 04 eASCII\SB'ADDRESS BIT IN ERROR™'SC01BROROSSHIBN\ 

oe 001243 000 BYTE 0 

96 001244 123 065 117 84: «ASC1I\S5018R9R9S10H1BN\ 

97 001254 123 065 117 63: eASCII Ny Loaf 4 DY adh oN 

98 001264 123 065 117 B62: eASCII\S5018R9R9S10H18N\ 

99 001274 123 065 117 61: ASCII\SSO18R9R9S10H1EN\ 

1” 001 000 “BYTE 0 

106 001305 123 061 117 E3: «ASCII\S1018S2R9R9H18S4016R9S2H16S7016R9S2H16S1 IN\ 

103 0013 123 061 117 E2: eASCIIN\S1018S2R9R9H18S4016R9S2H16S7016R9S2H16S1 IN\ 

104 00135 123 061 117 ~E1: eASCII\S1018S2R9RGH1BS4016R9S2H16S7016R9S2H16S11N\ 

105 001404 000 -BYTE 0 

107 001404 ND 

108 001405 000105 te sOUTPUT EDC FOR THIS OVERLAY 





SEQ 55 
UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 38-2 
SYMBOL TABLE 
ACHK1 001415 DRVID = 000004 HDRPRE= 000005 LARGE = 000001 OUT.21 001033 
ACHK 001440 DRVONL= 000213 HD.BAD= 110000 LOHINB= 177417 out se 001034 
ACHK 001451 DRVRUN= 000014 HD.DBN= 140000 LBLONB= 177760 OUT.25 001035 
ACHK4 001457 DU.DFL= 020000 -LBN= 000000 LONCYL= 900000 OUT.24 001036 
ARGSS = -FTL= HD.PRV= 050000 LONHST= 2 -25 001037 
ATIN = ° 0 LONTRK= 000011 -26 001040 
AVAIL = 000100 DU.QUE= 010000 HD.REV= 030000 LOUFWH 002450 «27 001041 
BCHK 001464 DU. SPC= 0 HD.XBN= 120000 LOUFWL 002447 OUT .28 B01 Oss 
BCHKM posers DU.TER= 040000 HEADER= 000002 LINKLN= 000007 OUT.29 00104 
BCHKMX 002415 D.LIMT= 000001 HIBYTE= 177400 LOBYTE= 000377 OUT.30 001044 
BCHK1 001472 D.SCHR= 00000 HICYL = 000001 LONG 1374 OUT.31 001045 
BCHK2 001511 = = 000003 LONGTO= 000001 T.32 001046 
BEUSED= 000040 ECCCHK= 010000 HILBN = 000002 LOW T.33 001047 
BF .DAT= ECCFLG= 010000 HIMEM = 010000 LRADR 002426 001050 
BF ..ECC= 000401 ECCRSH= 000002 RBN = 000003 LRADRH 002425 OVERFL= 000002 
BF .EDC= 000400 HIXBN = 000002 LUNIT 001331 OVE .MN= 000714 
= 1 ECHOC = 000350 HOSTRQ 000751 LWADR 002420 0 = 
B1T01 = 000002 Cc = 100 HRDREV= 000003 LWADRH 002 VL.MN= 001545 
a ERECOV= 000006 INITW = oss MEDTYP= 000006 OVL.MS= 001 
TABLE 0024 = 1 INSEEK= 000012 MESSAG 15 VL...= 
BUFCNT 002430 ERLEV = INTEDC= 105 MICREV= 000003 OVSTRT= 007774 
BUFFLG= 040000 ERRMC = 060014 IN.RQ 001051 D = OVS.MN= 001040 
BUFSIZ= 000043 ERRMES= 060013 IN.07 00105 MREAD 001164 OVS.MS= oot 356 
B1 001274 ERRN = 001757 IN.02 00105 MS10 000000 V... = 00357 
B 001264 ER 244 IN.03 1054 1 000063 TO 002254 
83 001254 ERSOFT= 140000 IN.04 1055 rel eos 000170 PATI 002260 
001244 ETABL 2455 IN.05 001056 MS100$ 00033 pare O05 64 
CCHK 001524 EXIT = 21 IN.06 001057 MS1004 00045 PAT 002270 
CHECK = 000010 E1 001357 IN.07 001060 MS1005 000560 PHYSA = 001000 
= 000201 E2 001332 IN.08 001061 MS1006 1105 S = 
CHRRES= 000170 ES 001305 IN.09 00106. = 017 PTYPES= 0000350 
000777 FB.DAT= 000000 IN.10 001 MWRITE 001202 = 
002436 FB.EDC= 000400 IN.11 001064 NEWSUB= RBNTRK= 000004 
CMPSIZ 002435 FCTSIZ= 000010 inte 001065 ONLYCL= 000200 RBUFLN= 000415 
Cc 002437 FIRSTU= 007717 IN.1 001066 OUTP 00 RCL8_ = 00000 
CMP2 002440 FMEMFL 001405 IN.14 001067 OUTPT2 002446 RCONT = 
CMPS =. 002441 FORMAT= 1 IN.15 001070 OUT. 001 RCTCPS= 000001 
= 000006 FRADR poses in. 38 001071 OUT.01 001007 RCTCSZ= 000014 
COMPLT= 000176 FRADRH 0024 IN.1 00107, out ee 001010 RCV = 000005 
C 002431 = IN.18 00107 OUT.05 001011 RCVERR= 000004 
CURPAT 002432 FREE 002460 IN.19 001074 OUT .04 shat = 000001 
eg yg ts TOP = 100000 IN.20 001075 OUT.0S 00101 RDSTAT 000720 
DATBUF 002433 FTIME = 001000 IN.21 ieee Out .28 001014 001742 
CMP= 000002 FTLDEV= 040000 iN-¢6 00107 OuT.07 001015 R T= 0001 
DATERR= 000020 FTLSYS= 000000 IN.2 001100 OUT.08 001016 REGSS = 17777 
TPRE= 000005 -BUF = IN.24 001101 OuT.09 001017 = 
DBNCYL= 000022 FT.HI = 000001 IN.25 oot ite OUT.10 001020 RERRCA 001315 
MPAL= 000001 FT.L 2 iN.$6 00110 OUT.11 001021 RER 
DCYLS = 020000 FWADR $213 IN. 001104 A 0010 § RERRPA 001311 
DINIT = 000011 4] IN. 4 001105 OUT.15 0010 RESEEK= 
DIREC = 010000 GETCHR= eat IN. 391196 OUT.14 gate 4 ETRY = 
I 000204 GETSTA= 11 IN. 110 OUT.15 1025 RETS = 1 
= Obteas GE TSUB= 4 IN.31 001110 out. 18 0010 $ REVEC = 00 
DONECD 001 GRPCYL= iN. 36 001111 OUT.1 Onto REVECT= 
100000 Fz 1 IN.3 pottis OUT.18 001030 REVINP= 8 
DRTYPE= 000007 HBHINB= 007777 IN.34 00111 OUT.19 001031 REVS = pest 
DRVCLR= 000005 HBLONB= 170377 IRECLB= 000216 OuT.20 001032 = 









SEQ 56 











UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE 38-3 
SYMBOL TABLE 


ABL 
RONLY = 004000 STSRES= 000 $.SDCL= 000001 UDATA 01222 U.RBN = 000041 
RREAL = 013400 ST.C_ = 00000 $.TGOF= 000013 UNITO = 000001 U.RTRY= 25 
RSTOP = 100000 ST.CON= 00000 $.TGSS= 000015 UNIT? = 000002 U.RVER= g 
RTRIES= 001000 ST.DB = 001000 - TRKL= 0000 IT2 = 000004 U. = 
RWRDY = 100000 ST.DF = 000020 TADR bose 8 Barts U.RWT0= 
= 000006 ST.DR = 000040 TADRH 0024 UNSSUC= 000175 U.SDIL= 000031 
RW.BUF= 000001 ST.ERR= 000002 TALKER 001114 ora U.SDIS= sat 
-CMD= 000004 ST.FE = 000200 TALKIA pottee UTOTST= 060012 - SEEK= 
RW.HI = 000003 ST.FO = 002000 TALK1B 001136 000014 S 
-LOW= 000002 ST.MOD= 000001 TALK2A 001156 U.CBN = 000037 U.SUBP= 000001 
-SDI= 000005 ST.MSK= 000000 TALK2B 001157 U.CCNT= 000012 S 000034 
STA= 000000 ST.OA = 000200 TEMP) oesete ° = 000044 - TIMO= 
SAVREG 001332 ST.PE = 000040 TEMP2 002444 U.CCYL= 000053 U.TSEC= 000020 
SBCRES= 000167 ST.PS = 000002 TEST4 = 000000 U. Beonss U.WPRT= 00905 
= 00037 ST.RE = 000100 IMEOQU= 000001 Y= 3 U.WRIT= 00002 
SDILTO 001163 ST.RR = 000100 TLEN.U= 000061 U.CSEC= 000021 WAITSI= 000012 
STO 0011 ST.RTY= 000003 0 233 U.CTRK= 000015 WBUF LN= 
VER= ST.RU = 000001 = 1 U.ECCT= 000027 WCHECK= 000010 
SEKINP= 002000 ST.SR = 000020 TRACKS= 000020 U.ELEV= 000024 wC = 
= -STA= 000001 TRKGRP= 000003 U.LCYL= 000056 WCONT = 040000 
0001 -S7_ = 000400 TIMSIZ= 060000 ° = 000060 = 002000 
SHRTTO= 000000 T.UNT= 000000 T2CMD = 060002 U.MASK= panes WREAL = 122400 
SIZBUF 002434 ST.WE = 000010 T2DLL = 060001 U.MBN = 0000 WRITE 001666 
SNDAGN 000756 SuB.—_ = 000013 T4881 = 060005 U.MLEV= 00002 WR i 
SPADJU 001326 -BADP= 1 T4882 = 0600 -MSEC= 00001 WSTOP = 140000 
= 1 $.BESS= 000011 000 U.NEXT= 000000 XBNCYL= 000021 
STACK 001373 S.MCNT= 11 R= = Bente XFERRT= 
START 001374 S T4SEEK= 060010 U.NSEC= ed XMTERR= 000400 
STATEX 000746 S.MEGW= 000007 T4SOF T= 060007 = 00003 xOR 1223 
STATLP 000724 S.PARM= T4UPRM= 060004 U.PAT = 000011 XREAD = 00000 
STATOK 000737 S.PAT = 000003 UDADM1= 001000 G U.PCTG= 000014 XWRITE= 00000 
STATUS= 000007 S.SCHR= 000005 
- ABS. 007366 


001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 4477 WORDS ( 18 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 71 PAGES 
-B:UDAT1/C=$DMACRO,B:UDAT. 





7 
UDAT1 UNIBUS Of Thee tC te 7 13-APR=82 15:48:42 PAGE S-1 =? 


x04. 
CROSS REFERENCE TABLE v04.00 ) 


ACHK1  29-22@ 5 29-47 
ACHK $3-$3 348 
ACHK 28 30. «= 29=35 29-408 


ACHK4 29-41 4a 
roo oo so 29-278 29-29 29-29% 29-36 29-364 35-24 35-244 35-26 35-264 35-132 35-132# 37-49 37-498 
AVAIL 5-248 
38-42 38-998 
38-4 $65 
83 38-4 8-974 
38-4 38- 
BCHK $0.7 30-4# 
BCHK1 7# 30-13 
BCHK2 30-184 -25 


BCHKM 30-11 30-22 37-34 
BCHKMX 37-6 37-9 37-13 37-16 37-26 37-28 37-38 37-40 37-518 


BEUSED 7-35# 
BF.DAT 2-1134 
F.ECC 9 2-1154 
F.EDC 22-1148 
1T00 2-474 8631-31 
B1T01 2-484 
EAK 3-34 
BTABLE 35-41 38-424 


BUFCNT 31-63" 32-9 32-25 35-8 35-32 38-164 
BUF S1Z 15 20-20 21-784 


CHECK 4-674 
Cc 5-324 
CHRRES 5-434 
CLRBUF 254 20-27 
CMP 1 ~304 
CMP2 38-314 
CMPS = 38-324 
CMPADR $o-See 
CMPSIZ 284 
COMPAR 3-94 
CURBUF 3740" 32-7 32-20 32-23 34-32 38-17, 
-5e - = ® - - = fj 
CURPAT 32-42 32-13 32-178 34-9 35-116 38-184 
CVT -198 
D.LIMT 7-48 
DATGUE 31-59 34-17 34-43 —«$5-12.««35+59 38-198 
- e = = - - 
DATCMP "7-408 
DATERR 7-218 
DATPRE 4-338 
YL 4-42 
DCMPAL 7-428 
DCYLS 7-278 
DINIT 3-128 
DIREC 7-1 
DISCON 5-308 


DONE $3. 
DONECD 32-16 3-14 33-3 










UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE S-2 
CROSS REFERENCE TABLE (CREF V04.00 ) 


7-108 
DRTYPE 4-154 
DRVCLR ~35¢ 
DRVID 4-144 
VONL 5-334 
DRVRUN 5-344 
DU.DFL 2-58# 
-FTIL 2-614 
-INF 2-598 
DU.QUE 2-57# 
DU. SPC $00" 373, 5-4 5-5 5-6 5-7 5-8 5-9 5-10 5-11 


CCHK 7-284 
ECCFLG 2-968 
ECCRSH 4-114 
ECHO -114 
ECHOC 5-464 

oc 2-978 
ERECOV 5-314 


ERHARD § 5-52# 29-27 29-29 29-36 35-24 35-26 35-132 37-49 


29- 27 29-27 = 29-278 = 29-29 29-29 29-29 9-298 29-3 
35-24 35-24 5-244 35-26 835-26 = 35-26 «= 35-26" = 35-132 33.933 377%. 


ERRNUM 35-67* 35-76% 35-77* 35-106" 35-122 35-124 35-128  38-35¢ 


~664 
te 31-40 34-34 35-7 35-31 38-464 


po Ss a eB 





29- 36 
33-7 $20 7-49 


SEQ 58 


5-15 | 


35-24 
37-49 





é 
= 


eutes 


7 
te 


eveese 


a ee es a st a et 
N“ 
& 


UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE S-3 
CROSS REFERENCE TABLE (CREF V04.00 ) 


6-11 


27-40 29-9 33-2 
29-10 













SEQ 59 


1s 





UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE S-4 
CROSS REFERENCE TABLE (CREF V04.00 ) 


IN.34 21-778 
RQ 19 


IN 21-434 21-78 
INI TW 7-114 
INSEEK 5-408 
INTEDC oF 
IRECLB -394 
4-748 
LBHINB 4-584 
LBLONB 4-59" 
LBNCYL 4-234 
LBNHST 4-394 
LONTRK 4-374 
LBUFWH 34-39% 35-120 38-414 
LBUFWL 34-38* 35-118 38-404 
LINKLN 2-121 
LOBYTE = 
LONG 22-20 29-74 
LONGTO 4 
LOW 4- 


LWADR 29-4 1-21 31-53 38-54 
LWADRH 29-42 31-22 31-50 38-64 


MEDTYP 4-354 
SAG 5-164 
MICREV 4-128 
17# 20-16 
MREAD 104 22 37-24 37-36 
™S1000 27 ~S0# 


mS1 7-49 38-894 
MWR 3-184 21 
MWRITE 24-108 7-21 37-33 
NEWSUB 7-144 
ONLYCL 7-324 
OuT.01 22 20-23 21-64 27-13 
OuT. 1-74 
OUT.03 21-84 
OUT. 1-94 
OuT.05 21-10% 35-37 
OuT 1-114 
C'lT.07 “it, 
Ou ° 1-1 
OuT 1-144 
OUT.10 21-154 
OuT. ab 
OuT;12 31-178 
7.13 21-184 
ouT. 1-194 
OuT. 1-204 
© 1-214 





SEQ 60 


shh SEQ 61 


UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR=82 15:48:42 PAGE S-5 
CROSS REFERENCE TABLE (CREF V04.00 ) 

OQUT.17 21-224 

OUT.18 21-234 

OUT.19 21-244 

OUT.20 21-254 

OUT.21 21-268 

OuT $$ i $4 

OuT 1-284 


21-344 


35-S2* 35-80 35-90" 38-384 
2-40 2-408 38-47 38-47 38-47 38-474 38-107  38-107# 


47 
38-107 
2-408 38-47 8-474 38-107 38-1074 
2-40 38-47 =47 38-478 





25-37 25-37 25-39 25-39" 29-27 = 2927 27 7 = 29-27 = 29=27# = 29-29 29-29 29-29 

29 $3.6 29-29 = 29-29 9-29 29-29 4) | % 36 cH 36 = 29-36 29-36 

36 $e-3¢ 364 8635-26 5-24 5-24 37$¢ 5-24 5-24 5-24 35-26 35-24 

5-248 35-26 5-26 5-26 5-26 5-26 5-2 5- $ ra 5-26 5-26 16° 35-132 

1320 35-132 «35-132 «= 35-132 «35-132 «35-132 35-132 935-132 9-35-1328 37-49 7-49 7-49 0-37-49 

PTYPES 29-27 39-37 39-37 39-37 5398 35-378 5-99 29 29-29 96, 29 
29-298 33-50" 28 29a 3-56 9-36 3-36 9-36 % % % 36 Se 368 

364 35-24 5-24 5-24 5-24 5-24 5-24 5-248 35-248 35-248 35-26 5-26 5-26 

5-26 5-26 5-26 = 35=26# 9835-264 835-264 = 37-49 7-49 7-49 7-49 7-49 = 57-49 37-49 = 37-49 

37-49 7-49 = 537-49 37-49 7-498 37-498 37-498 37-498 37-498 37-498 





SEQ 62 
UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE S-6 
CROSS REFERENCE TABLE (CREF V04.00 ) 


RCVRDY 5-214 
RDOSTAT 19-114 
READ 

REDWRT - 
REGSS 


29-27 9-27 9-274 29-29 9-29 9-29 9-29 9-29 9-298 36 3f 
tee 5 5-24 5-24 5-24 5-24 5-24 5. 


24 
5-26 5-26 5-26 5-26 5-26 5-26 35-26 33-46 5-26 5-264 264 “264 35-132 35-1320 
7-49 7-49 7-49 7-49 36-57 37-49 37-49 7-49 7-49 7-49 = 37-49 7-494 = 37-4 
REGUS anes 5-24 5-24 35-24 5-248 35-248 35-248 35-26 35-26 5-26 35-26 35-264 35-264 35-264 


4 
7-49 37-49 = 37-498 = 37-498 
RERROR 27-6 27 =. 29-29 29=36 35-24 35-26 35-132 37-49 


RESEEK 7-128 
RETRY 7-228 
RETS 4-78 

REVEC 7-178 
REVECT 4-634 
REVINP 7-208 

REVS 4-168 

he 4-328 

RONLY 7-298 
RREAL -954 
RSTOP <918 
RTRIES 7-318 
RW.ANG 2-854 

Rw. BUF 

RW.CMD 2-834 
RW.HI 2-824 | 
RW.LOW 2-814 
RW.SDI 2-844 

RW.STA 2-798 

5 BADP 6-604 6-63 
S.BESS 6-6 6-68 
S.MCNT 6-687 6-69 
S.MEGR 6-608 6-61 
S.MEGW 6-614 6-62 


-SC 6- -60 
S.SDCL 6-564 6-57 
-T 6-6 6-70 
S.1GSS 6-70# 
$.TRKL 584 36-59 
SAVREG 27-484 35-24 35-24" 35-26 35-26* 37-49 37-498 
SBCRES 5-444 
SCT 
SDILTO 24 3 
SDISTO 22-22 22-424 
SDIVER 4 
SEKINP 7=-15# 
ND 0 22-15 


0 
SIZBUF 31-62* 34-18 34-42 35-13 35-24 35-24 35-26 35-26 35-38 35-58 38-208 





L 5 





UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE S-7 
CROSS REFERENCE TABLE (CREF V04.00 ) 
SNDAGN 20-148 20-18 
SPADJU 27=32* 27-424 
SS 4-98 
ST.C ~30# 
ST.CON 298 
$T.0B 478 
ST.DF ‘30 
T.DR 378 
ST.ERR 284 
FE 414 
ST.FO 468 
ST. 278 
ST.MSK 3-25# 
ST.OA 3-354 
ST.PE 3-434 
ST.PS 3-394 
ST.RE 3-424 
ST.RR 3-368 
ST.RTY 3-314 
RU 3~40# 
ST.S? 3-484 
SR aor 
ST.STA ~26# 
T.UNT 3-248 
T.WE 3-454 
STACK 19-8 28-54 
START 19-9 29-84 
STATEX 19-25 19-27 19-314 
STATLP 19-184 19-2 9-29 
STATOK 19-21 19-2 
STATUS 3-10# 19-18 
STSRES 5-45# 
4-228 
TIMSIZ 5-34 29-8 
T2CMD 5-5# 
T2DLL 5-44 
T4881 5-84 
T4BB2 5-98 
T 5-64 
TOMXFR 85-124 
T4SEEK 5-114 
T4SOFT 5-108 
T4UPRM _5-7# 
TADR ah 30-16% 35-17* 35-24 35-24 35-26 35-26 35-61* 35-82 35-94% 37-7 37-14% 37-22 37-34 
TADRH 30-35 a 35-18 35-24 35-24 35-26 35-26 35-62" 35-63" 35-84 35-96" 37-3 37-10" 37-23 
TALK1A -17 -204 
TALK1B 23 “254 22-35 
TALK2A -29 -384 
TALK2B “19 22-33 22-37 22-394 
TALKER -124 
TEMP1 ~58* 5-97* 38-364 
TEMP2 5-68* 5-992 38-374 
TESTS 2-384 
TIMEQU 84-614 


UDAT1 UNIBUS ADDRESSING DMACR X04.01 13-APR-82 15:48:42 PAGE S-8 


CROSS REFERENCE TABLE (CREF V04.00 ) 


TLEN.U 
T 


6-108 6-11 
26-14 

4 

feo 

4-284 

1 86-4 
6-224 386-2 
6-448 6-45 
6-484 6-49 
6-494 6-50 
6-434 6-44 
6-284 6-29 
6-244 6-25 
344 = 6-35 
6-314 6-32 
6-50# 6-51 
6-10 6-514 
6-294 = 6= 
6-408 6-41 
6-334 6-34 
6-264 6-27 
6-154 6-16 
pe fe 
6-384 6-39 
6-214 6-22 
6-234 6-24 
6-424 6-43 
6-324 6-33 
6-464 6-47 
6-458 6-46 
6-184 6-19 
6-364 6-37 
6-354 6-36 
6-194 6-20 
6-474 6-48 
~164 6-17 

6-394 6-40 
6-178 6-18 
6-274 6-28 
6-374 = 6- 
6-308 6-31 
7" 
23-14 23-16 24-118 
4-468 

4-474 

4-484 

4-494 

5-42 


ae 
3-148 8623-15 35-19 
{> 24-16 34-44 
we bh 2-120 
-374 
7-398 


24-15 


24-204 






UDAT1 UNIBUS ADDRESSING DMACR X04.01 135-APR-82 15:48:42 PAGE S-9 
CROSS REFERENCE TABLE (CREF V04.00 ) 


32-21 34-98 


19=20 
30-9 30-20 37-44 37-48 


5 





35-132 
“34 29-27 29-29 29-36 35-24 35-26 35-132 


14-158 35-24 35-24 35-24 35-26 35-26 35-26 


38-47 38-474 ath 


29 29-29 
7-49 37-49 
24-17 25-15 
24-10 25-10 





37-49 
37-49 


37-49 


37-49 


$9.28 29-36 = 29-36 35-24 


5-54 
27-9 35-30 35-79 


35-24 


35-24 


SEQ 67 
UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 
TABLE OF CONTENTS 


UDA _DM PROGRAM iw 


~™ 
¢ 
se 


RDSTAT = GET DRIVE'S $ REAL TIME DRIVE STATE 
HOSTRQ = HOST REQUEST = REPORT ERRORS "REGABYTES TRANSFERRED, ETC. 


0 
6- 13 MACRO DEFINITI 
18 1 START OF akin CODE 
19 1 PROGRAM VARIABL es e 
20- 1 SDI ego USED FOR TEST é 
20- 9 COMMAND BUFFERS FOR SEND X 
2di- 1 STORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 
22- (1 STACK AREA 
r+ nr 4 GETU _ = POLL ALL PORTS, THEN GET UNITS TO TEST 
ef- 61 TEST 2 a | TESTING 
2b- = THE DIAGNOSTICS TO ALL UNITS SELECTED 
+ INITIALIZE i AND LOOK AT DRIVE SIGNALS 
30-1 EC re ay TO DRIVE 
3i- 1 GET STATUS COMMAND 
3. 1 GET DRIVE CHARACTERISTICS 
+S a | CHECK WHICH COMMAND HAS BEEN GIVEN 
$e } MEMORY WRITE 
36> 1 SEND DIAGNOSE COMMAND 
we 6 TEST 3 SPECIFIC ROUTINES 
sv- 2 DIAGNOSE COMMAND PROCESSING 
38- 1 DIAGNOSE/READ MEMORY TO SEE IF ERROR OCCURRED 
san DIAGNOSE/DO A DRIVE CLEAR 
40- 1 DIAGNOSE/GET PROGRAM NAME SPECIFIED BY eps AND ee LOAD 
l- 1 DIAGNOSE/REPORT ERROR == NO DOWNLINE LOAD PROGRAM 
42- 2 DIAGNOSE/SET UP mine TO HOST AND EXIT 
43- 1 READ MEMORY SUBROUTINE 
44- 1 WRITE MEMORY SUBROUTINE 
45- 1 RUN (OR SPIN UP) C 
46- 1 RECALIBRATE C 
47- 1 GET STATUS SUBROUTINE 
48- 1 CLEAR DRIVE S T 
49- 1 STORE STATUS ROUTINE 
50- 1 CONVERT MEMORY == SKEWED BY BYTE 
Si- 1 GET BYTE COUNT 
se>—‘Y TYPE WHAT KIND OF = ERROR 
53- ; DIVIDE BY OCTAL 50 AND FIND ASCII > ae bs 
1 





SEQ 68 
UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 2 
DIAGNOSTIC MACHINE MACROS = OVERLAY VERSION WITH ‘RELOCATION’ 


-TITLE UDAT2 DISK RESIDENT 


COPYRIGHT (C) 1981 
; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE C orig strte WITH i S 


ANY OTHE EXCEPT US 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
; THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


NOROMOPINO Ry @ ss es 
KOR OOO NAMEN BOCDNOUA WR 


2 
27 

28 

29 

30 

s 

33 [THIS PROGRAM SHALL BE ASSEMBLED with THE PROGRAM DMACRO 

34 ZUSING A COMMAND LINE SIMILAR T 

36 :  UDAT2.BIN,UDAT2/C=C1 »2]DMACRO,UDAT2 

38 3 -ENABL ABS 

39 000000 BACODE UDADM2,0,714,3,0,1000 341000 

40 .SBTTL UDA DM PROGRAM PARAMETERS 

42 

45 003720 chine 15000. ZSTART ERROR NUMBERS AT 2000. 
43 : EQUATES 

7 : HIGHEST USABLE LOCATION OF UDA MEMORY + 1 

49 007774 HIMEM = 7774 : HIGH MEMORY+1 

30 0077746 OVSTRT = 7774 t OVERLAY ADDRESS LOCATION 
5 ; 

53 : OFFSETS FOR FORMAT TRACK TABLE 

55 000000 FT.BUF = 0. sBUFFER POINTER OFFSET 

56 000001 FT.HI] = 1. THI ORDER HEADER OFFSET 

57 000002 FT.LOW = 2. [LOW ORDER HEADER OFFSET 





por 





E 6 


vey A DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 2-1 


DM PROGRAM PARAMETERS 


58 
59 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


000000 
000400 


Sete Tits Se Ge Ge 
@ 
8 
9 
> 
~ 


BF ..DAT 
BF 


OFFSETS FOR FORMAT TRACK BUFFER 


0. 
256. 


SEQ 69 


sFIRST DATA WORD OFFSET 
sEDC WORD OFFSET 


OFFSETS FOR READ/WRITE 1/0 CHAIN TABLES 


0. 
1. 
2. 


nnnnnon 
Ww 
. 


sSTATUS AND NEXT BUFFER POINTER OFFSET 
POINTER TO DATA BUFFER 

HI ORDER EXPECTED HEADER 

LOW ORDER EXPECTED HEADER 

SDI COMMAND AND 


: HEAD ADDRESS 
sDUMMY SDI CONTROL BLOCK POINTER 
s THETA FROM INDEX 


CONSTANTS FOR READ AND WRITE XFC'S 


140000 


nnnnnnannan 
2 2 2 | OS 
So 
So oS 
SoS 
S 
So 


nunnnnnu 
Db 
n= 
o 
Ss 
oS 
i) 


OFFSETS FOR DATA BUFFERS 


“un 
Nm 
w 
ion 
s 


LAST ENTRY IN CHAIN FOR WRITE 
WRITE CONTI 

LAST ENTRY IN CHAIN FOR READ 
READ CONTINUE 


LAST ENTRY IN CHAIN FOR FORMAT 
WRITE REAL TIME ECOMMAND 
READ REAL TIME 


COMMAND 
ECC ERROR IN BUFFER BIT | 
BUFFER FULL OR EMPTY FLAG | 


:G00D —* UNUSED 
TREVECTORED I 

BAD BLOCK 

PRIMARY REVECTORED BLOCK 
;XBN BLOCK 

2DBN BLOCK 


sDATA 
sERROR DETECTION CODE 
sLAST 17 ECC RESIDUES 


BUFFER AND READ/WRITE CHAIN LINK SIZES 


257. 
MOUFLNOTe. 





: WRITE BUFFER SIZE 
; READ BUFFER SIZE 
; LINK SIZE 





ee 
zn “now 
AmmmMe oO BS 


2om 


ANNANNMWMNHNMNHMMMse- 
seeeseeteesee#ee#eee#e#e#@® 
nnnnnnnnnnnnnn 


w 
~ 


oy A yee RESIDENT ome X04.01 13-APR-82 18:06:42 PAGE 3 
UDA AMETERS 


1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
e? 
28 
29 
30 
31 
32 
33 
&% 
35 
36 
37 
38 
39 
40 
rt 
<8 
&& 
45 
46 
47 
48 


XFC DEFINITION EQUATES 


0. 


= 
8 


ot ot 4 BUI OOONOULSWA 


NOUSWN—O-e « 


GET STATUS OFFSETS 


0. 
0. 


STATUS BIT DEFINITIONS 


200 
100 





SEQ 70 


sBREAKPOINT XFC CODE 


CONVERT TO PHYSICAL ADDRESS XFC CODE 


TERMINATE DM PROGRAM XFC CODE 


sUNIT 


3 SUBUNIT MASK 
STATUS BYTE 
:MODE BYTE 
RROR BYTE 
s CONTROLLER BYTE 
TRETRY COUNT/FAILURE CODE 


AL TAL ERROR 
RETRIABLE ERROR (SET IF RETRIABLE ERROR OCCURRE 
R ist F PROTOC URRED) 
BRET IAL LEAT ION FAILURE (SET IF INIT FAILED) 


(SET IF WRT ATTEMPTED ON PROT DISK) 
FORMATTING (SET IF FORMATTING ENABLED 
og a aE CYLS (SET IF DIAG CYL Teng ENABLED) 
SECTOR SIZE (SET FOR 576 BYTE SECTOR 


aaa 


SEQ 71 
UDAT2 | DISK RESIDENT DRACR X04.01 13-APR=82 18:06:42 PAGE 4 
UDA DM PROGRAM PARAMETERS 

1 : GET COMMON CHARACTERISTICS OFFSETS 

g 000000 SHRTTO = 0. sSHORT TIMEOUT oi 0> 

4 000000 SDIVER = 0. :SDI VERSION < 

5 000000 XFERRT = 0. + TRANSFER RATE ra, 0> 

4 000001 LONGTO = 1. [LONG TIMEOUT <3:0> 

? 000001 RETS = 1. ZRETRIES <7:4 

a 000001 RCTCPS = 1. sF/RCT COPIES <11:8> 

9 000001 = i. ZSECTOR SIZE <15 

10 000002 ERLEV = 2. TERROR RETRY LEVELS <7:0> 

1 00000 ECCRSH = 2. ZECC SHOLD <15:8> 

12 00000 MICREV = 3. ZMICROCODE REVISION NUMBER <7:0> 
13 000003 HRDREV = 3. SHARDWARE REVISION NUMBER <15:8> 
14 000004 DRVID = 4. [UNI Que DRIVE ID <47: 

15 000007 DRTYPE = ll “DRIVE TYPE IDENTIFIER tr 0> 

16 000007 REVS = ?. SREVS/SECOND <15:8> 

18 : GET SUBUNIT CHARACTERISTICS OFFSETS 
20 ;THESE OFFSETS ARE CURRENTLY GIVEN AS FOLLOWING THE COMMON CHARACTERISTICS 
22 000013 SUB = 11. ZOFFSET TO PUT SUBUNIT AFTER COMMON: 
2 000000 LONCYL = 0. [NUMBER OF CYLINDERS IN LBN AREA <31:0> 
24 000001 HICYL = 1, SHI ORDER CYLINDER BITS <15:12> 

25 000002 GRPCYL = 7. [GROUPS PER CYLINDER <7:0> 

26 000002 HILBN = 2. ZHI STARTING LBN <11:8> 

27 00000. HIXBN = 2. ZHI STARTING XBN <15:12> 

28 00000 TRKGRP = 3. 3 CKS PER GROUP <7:0> 

29 000003 HIRBN = 5. sHI STARTING RBN <11:8> 

30 000003 HIDBN = 3. SHI STARTING <15:12> 

31 000004 RBNTRK = 4. SRBNS PER TRACK <6:0> 

32 000004 = 4. 3REMO VABLE "NESTA <?: ie 1=REMOVEABLE 
33 000005 DATPRE = 5. DATA PREAMBLE SIZE IN WORDS <7:0> 
34 000005 HDRPRE = 5. sREAD ER PREAMBLE size IN WORDS <15:8> 
5 000006 MEDTYP = 6. [MEDIA TYPE <31:0> 

36 000010 FCTSIZ = 8. [FCT COPY SIZE <15:0> 

37 000011 LBNTRK = 9. LENS PER TRACK < 

3g 000011 GRPOFF = 9. :GROUP OFFSET (SECTORS) <15:8> 

39 000012 LBNHST = 10. ; IN HOST AREA 

40 000014 RCTCSZ = 12. sRCT COPY SIZE <15:0> 

41 000021 XBNCYL = 17. : IN AREA <15:0> 

42 000022 DBNCYL = 18. ZCYLS IN DBN AREA <15:8> 
4 : UNIT CODES 
46 000001 UNITO = 1. :UNIT ZERO CODE 

47 000002 UNIT1 = 2. 3UNIT ONE CODE 

48 000004 UNIT2 = 4. UNIT TwO CODE 

9 000010 UNIT3) = 8. tUNIT THREE CODE 

5 : BIT MASK DEFINITIONS 

5 : 

54 177400 HIBYTE = 177400 :HIGH BYTE MASK 

55 000377 LOBYTE = 900 77 [LOW BYTE MASK 

56 007777 HBHINB = ‘HI BYTE, HI NIBBLE MASK 

57 170377 HBLONB = 170377 SHI BYTE. LO NIBBLE MASK 





SEQ 72 





177617 LBHINB = 177617 :LO BYTE, HI NIBBLE MASK 
177760 LBLONB = 177760 :LO BYTE, LO NIGBBLE MASK 
000001 TIMEOUT = 1. ZDRIVE TIMEOUT CODE 
HEADER = Zz. ‘HEADER COMPARE FAILURE CODE 
REVECT = 4. SREVECTOR NEEDED COD 
WRONG = 2. ZFIRST WORD NOT START FRAME CODE 
FRAME = « [FRAMING ERROR CODE 
CHECK = 8. SCHECKSUM ERROR CODE 
TOOBIG = ‘. ZNUMBER OF WORDS EXCEEDS 7064 
Low = 2. 7DM BUFFER ADDRESS IS LESS THAN 714 
: BIT MASK 
LARGE = 1. :BLOCK NUMBER TOO LARGE 
OVERFL = 2. 7SECTOR NUMBER CARGER THAN 16 BITS 


a ee ee te 


ibe SEQ 73 


UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 5 
UDA DM PROGRAM PARAMETERS 


1 ZMAINTANENCE READ/WRITE REQUEST NUMBERS 
4 060000 TIMSIZ = 0.+DU. SPC ZGET FREE MEMORY PARAMETERS 
4 060001 T2DLL_ «= 1. +DU. SPC : INE LOAD DRIVE D STI 
5 06000 TOCMD == g- sDU. SPC INTERVENTION TEST 2 PROTOCOL 
6 06000 T4MPRM = . *DU. SPC [GET MASTER PARAMETERS SW QUESTIONS 
? 060004 T4UPRM = 4.+DU. SPC 7GET UNIT PARAMETERS FROM HW TIONS 
& 060005 14881 = 5. #DU. SPC 2GET BAD BLOCKS (1 T 
9 060006 14882 = 6. *DU. SPC 2GET REST OF BAD BLOCKS (15 AND 16) 
10 060007 T4SOFT = . *DU. SPC ZADD TO SOFT AND 
11 060010 T46SEEK = 8.+DU. SPC ADD 1 TO SEEK COUNT 
le 060011 4MXFR = 9. +DU. SPC TO REGABITS READ AND WRITTEN 
1 060012 UTOTST = 10. +DU. SPC eer UNITS TO TEST 
14 06001 ERRMES = 11. DU. SPC “PRINT ERROR One SA 
15 060014 ERRMC = 12. +DU. SPC TEST 4 ERROR REPORTING 
16 060015 MESSAG = 13. DU. SPC S INFORMATION MESSAGE 
Vv 060016 DONE = 14. *DU. SPC ZMARK DM PROGRAM AS NO LONGER RUNNING 
19 : OTHER BIT DEFINITIIONS 
21 000001 RCVRDY = 1 : RECIEVER READY 1 = READ 
22 000002 TIN = 2 : ATTENTION BIT FOR “RETURN DRIVE SIGNALS XFC 
23 000004 RCVERR = 4 : RECIE VER ERROR 
24 000100 AIL = 100 : AVAILABLE 1 = AVAILABLE 
25 000400 XMTERR = 400 + TRANSMIT 
26 100000 DY = 100000 : If SET, UDA 1S ABLE TO READ AND/OR WRITE TO DRIVE | 
28 ; SD1 COMMANDS AND RESPONSES 
30 000204 DISCON = 204 : DISCONNECT DRIVE 
31 ERECOV = > ERROR RECOVERY 
32 000201 CHGMOD = 01 > CHANGE MODE 
33 000213 DRVOML = 13 > DRIVE ONLINE 
34 00001 DRVRUN = 14 : DRIVE RUN 
35 00000 DRVCLR = 5 > DRIVE CLEAR OPCODE 
Be 00020 GETCHR = 207 : GET CHARACTERISTI 
37 000210 GETSUB = 210 : GET SUBUNIT CHARACTERISTICS 
a8 000011 GETSTA = 11 : GET STATUS 
39 00021 IRECL8 = 216 3 RECALIBRATE 
40 00001 INSEEK = 12 : INITIATE SEE 
41 00017 COMPLT = 176 + SUCCESSFUL C 
42 00017 UNSSUC = 175 > UNSUCCESSFUL 
4 000170 CHRRES = 170 > GET CHARACTERISTICS RESPONSE 
44 000167 SBCRES = 167 > GET SUBUNIT CHARACTERISTICS RESPONSE 
45 000366 STSRES = 366 : GET STATUS RESPONSE 
46 000350 ECHOC = 50 ; DIAGNOSTIC ECHO COMMAND AND RESPONSE 
48 : ERROR CODES 
50 000000 FTLSYS = 0 : SYSTEM FATAL ERROR 
51 040000 FILDEV = 40000 : DEVICE FATAL 
5 100000 RHARD = 100000 : HARD ERROR 
| 5 140000 ERSOFT = 140000 : SOFT ERROR 


SEQ 74 
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UDA DM PROGRAM PARAMETERS 


1 : DUMMY SDI CONTROL BLOCK OFFSETS 

: 000001 D.LIMT = 1 : DUMMY SDI SEARCH LIMIT 

4 000002 D.SCHR = 2 + DUMMY POINTER TO SUBUNIT CHAR-5S 
é ; DUP MESSAGE TYPES 

? 010000 DU.QUE = 10000 

8 020000 DU.DFL = 20000 

9 030000 DU.INF = 30000 

10 0000 DU. TER = 4 

11 050000 DU.FTL = 50000 

12 DU.SPC = 60000 

13 .SBTTL MACRO DEFINITIONS 

15 : MESSAGE CONTROL TABLE MACRO 

17 -MACRO MSG CMDBUF ,CMDSZ,RPLBUF ,RPLSZ,SUCCOM 

18 ;WORD CMDBUF ZADDRESS OF COMMAND 

19 <WORD CMDS2Z :SIZE OF COMMAND IN BYTES 
20 “WORD RPLBUF TADDRESS OF REPLY 

21 “WORD RPLSZ [SIZE OF REPLY IN WORDS 

22 .1F NB NUMBER 

33 -WORD SUCCOM : SUCCESSFUL COMPLETION CODE 
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MACRO I 
eMACRO BCS LAB.. 


SEQ 75 


«#2 
LAB.. 
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MACRO DEFINITIONS 


VEWN—ODCONOUSWwh— 


Sas Sa 





PUSH REGISTER MACRO 


-MACRO PUSH R9 
-IRP X,<R9> 


POP REGISTER MACRO 


«MACRO POP R9 
~IRP X,<R9> 


-ENDR 
es ENDM 





EA) ek ek ak ed td od 
"O08 VNOAVEWN“ODOONOULWN— Oof9O 
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sERROR MACROS 
i THESE MACROS ARE CALLED TO wg 8 ERRORS TO THE HOST PROGRAM 
MACRO NAMES ARE : oe ERRDF, ERRHRD, ERRSFT. EACH RESULTS IN THE HOST 
:BEING = " REPORT THE ERR OR. 
ARGUMENT MS$) pauetER nh 


nn 
WONOULWN— 
~~ SS 
v 
74 
wn 
a 
uv 


(P8$) PARAMETER #8 


THE MESSAGE ty MUST POINT TO AN ADDRESS IN THE OVERLAY ‘MS‘* IMMEDIATELY 
FOLLOWING THE MAIN CODE. ANY ADDRESS MODE MAY USED (E.G. #MS1, 
iTorpamnres® MUST CONTAIN AN ASCII FORMAT STRING TO DETERMINE THE MESSAGE 


IN 

3 THE PARAMETER ARGUMENTS ARE OPTIONAL. THEY SHOULD BE SUPPLIED ONLY WHEN 
THERE IS rae TO BE PASSED TO THE HOST THAT WILL BE USED IN PRINTING THE 
MESSAGE. THESE PARAMETER ARGUMENTS ARE THE ADDRESS OF DATA TO BE PASSED 
sUSING ANY ADDRESSING MODE DESIRED. 
sALL REGISTERS ARE RETURNED UNCHANGED. IT SHOULD BE NOTED THAT oon 
SCONTAINING SOMETHING OTHER THAN A REGISTER NAME (E.G. #100 OR MEMADR) 
ASSEMBLE TO INSTRUCTIONS THAT SAVE AND RESTORE A REGISTER ON THE STACK. 


-MACRO ERRSF MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S 
NARG ARGSS$ 


eRADIX 10 

a FTLSYS .MS$,P1$,P2$,P3$,P4$ ,P5$,P6$.P7$,P8$, \ERRN 
-MACRO ERRDF MS$,P1$,P2$,P3$,P4$,P5$ ,P6$,P7$,P8S 

eNARG ARGSS 

eRADIX 10 

— FTLDEV,.MS$,P1$,P2$,P3$,P4$ ,P5$,P6$,P7$,P8$, \ERRN 


tet ERRHRD MS$,P1$,P2$,P3$,P4$ ,P5$,.P6$.P7$,P8S 
NARG ARGS$ 


“RADIX 10 
ERRORS ERHARD ,MS$,P1$,P2$ ,P3$,P4$,P5$,P6$.P7$.P8$,\ERRN 


-MACRO ERRSFT MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S 
NARG ARGSS$ 


eRADIX 10 
— ERSOFT ,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$,\ERRN 


SEQ 77 


SEO 78 
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MACRO DEF INI TIONS 


;THE FOLLOWING MACRO ACTUALLY PROCESSES THE ERROR CALL TO THE HOST PROGRAM 
-MACRO ERRORS ETS,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S,ERRNS 
PRMS=ARGS$=1 


oIF_LT,<PRMS> 
” + aa tia ENOUGH ARGUMENTS IN ERROR CALL 


1 
2 

5 

4 

5 

6 

7 

8 EN 

9 REGS$==1 

10 -1IF GE,<PRMS-8.>,PARGS. P8$ | 
11 -1IF GE.<PRMS-7.>,PARGS. P7$ 
12 LIF GE,<PRMS=6.>,PARGS. P6$ 
13 -1IF GE.<PRMS=5.>.PARGS. P5$ 
14 -1IF GE.<PRMS-4.>.PARGS. P4$ 
15 -IIF GE,<PRMS=3.>,PARGS. P3$ 
16 - TIF GE,<PRMS-2.>,PARGS. P2$ 
17 olIlF GE ,<PRMS-1.>,PARGS. P1$ j 
18 IF GE REGS$ 
19 RSTR$ \REGS$ 
20 -ENDC | 
21 ;RADIX 10 
22 LIST 
23 CALL RERROR ;ERROR # ERRNS'. | 
24 .NLIST 
25 SRADIX 8 
26 LIST 
27 -WORD ETS$+ERRN 
28 -WORD <PRMS*10000>+mS$ 
30 ERRN=ERRN¢+1 
33 «MACRO PARGS. ,ADDRS 
34 .NTYPE PTYPES, ADDRS | 
36 «IIE EQ, <PTYPESG7>-REGSS.RSTRS \REGSS 

i | 

338 MOV ADDR$,-(SP) | 
39 .NLIST 
41 IF EQ,<PTYPE$&7>=1 sPICK A REGISTER TO USE 
42 Recub=2 ZSELECT R2 IF R1 IS USED IN PARAMETER FETCH 
44 eREGUS=1 ZOTHERWISE USE R1 
46 IF NE,<REGUS-REGS$> zIF REGISTER NOT ALREADY SAVED 
47 IF GE,REGS 
48 eRsTas \REGSS ZRESTORE CURRENT SAVED REGISTER 

50 SAVRS \REGUS ;THEN SAVE SELECTED REGISTER 
52 GETP$ \REGSS,ADDRS 

53 .ENDC 

54 .ENDM 
56 -MACRO DEVFTL NUM,ARGS 


57 ERROR FITLDEV,NUM,<ARGS> 
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MACRO DEFINITIONS 


58 MOV #ERRMC ,OUT.RO 
9 .ENDM 

61 «MACRO ERROR  TYPE,NUM,ARGS 

6 -RADIX 10 

6 NUMPTR 5 

64 MOVMSG #ER'NUM,4 

65 IF NB, <ARGS> 

66 -IRP—- XX, <ARGS> 

67 MOVMSG X, \NUMPTR 

68 NUMPTR NUMPTR + 1 

69 END 

70 END 

71 MOV #NUM! TYPE ,R2 
72 MOV R2, OUT.02° 
73 MOV #..OUT.01 
7%, RADIX 


SEQ 79 
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MACRO DEFINITIONS 
-MACRO_SAVR$ REGN 
LIST 


~MACRO_RSTR$ REGN 
«LIST 


-MACRO GETP$ REGN,ADDRS 
eLIST 


SOVONAOVUESWN SO OCONOULWN— 


OD ee ed ed ed et = od os Ls 


SEQ 80 | 


MOV R°REGN, SAVREG 
MOV SAVREG,R'REGN - 


MOV ADDRS,R°REGN 
MOV R'REGN,=(SP) 


a NUM, ARGS 


= 

#°NUM,2 

NB, <ARGS> 
<ARGS> 


X,<ARGS 
X,\NUMPTR 
= NUMPTR + 1 


MOVMSG ARG, INDX 
LT, INDX=10 





eee ees ene ee 


MOV 


MOV 
MOV 


LUNIT,OUT.01 


<RO,R1> 
#MESSAG,RO 
HOSTRO 
<R1,R0> 


ARG ,OUT.0° INDX 
ARG, OUT. ° INDX 


SEQ 81 





SEO 82 
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MACRO DEF INI TIONS 


sASSUME MACRO 
hates ASSUME P1,P2 


: THE ASSUMPTION THAT THE ABOVE VALUES ARE = IS FALSE 


OunFfwn— 


“ENDC 
TENDM 
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MACRO DEFINITIONS 


sRETURN DRIVE STATUS MACRO WITH ERROR REPORTING 
eMACRO DSTAT,LABS,E1,E2 

eNLIST MEB 
ME 


4 

5 

6 LI 

7 ell 

8 CALL RDSTAT 3; GET DRIVE STATUS 

9 BIT #10000,R1 3; SEE IF ANY ERRORS 
10 BEQ : RROR, BRANCH 
11 BIT #4000,R1 : SEE IF XMIT ERROR 
12 BEQ 1$ 3 IF SO, BRANC 

13 ERRHRD €1 3 REPORT INVALID STATUS ERROR 
14 LABS ; BRANCH TO DONE 

15 1$: ERRHRD €E2 ; REPORT XMIT ERROR 
16 BR LABS ; BRANCH TO DONE 

17 2$: 

18 eNLIST 

19 eNLIST ME 
20 eLIST MEB 
21 
22 
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MACRO DEFINITIONS 


1 3 

§ 3 XOR THE CONTENTS OF TWO REGISTERS 
4 -MACRO RXOR REGT .REG2 

5 MOV REG2,=(SP) 3 
6 BIC REG1,REG2 : 
4 BIC (SP)+, het : 
8 BIS REG1,REG : 
9 .ENDM 


SAVE REGISTER REG? 

CLEAR COORESPONDING BITS IN REG2 
CLEAR ty at tae BITS IN REG! 
OR WHAT'S LEFT 


SEQ 84 
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MACRO DEFINITIONS 






CONVERT .BLKW CALLS TO ACTUAL WORDS GENERATED 
»MACRO .BLKW COUNT 

«NLIST 

eREPT 
- WORD 
Te 


C 
0 


SOOONOUS WN 


5 


SEQ 85 





UDAT2 
MACRO 


pt tet tee teeters 
—SVBWNOUSWN“OOONOU fw 


oo 
moe 
al 
_ 


I 


2 
=a 
—am 
z3 


118: 
12$: 
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SDI INTERCHANGE WITH DRIVE WITH ERROR REPORTING 
eMACRO TALKX ERRLAB,E1,E2 


eNLIST 

eNLIST MEB 

aH * 

CALL TALKER 3 INITIATE SDI INTERCHANGE 
TST R3 : SEE IF ERROR OCCURRED 
BEQ 12$ ; BRANCH 


I . 
BPL 11$ : IF SO, BRANCH 
ERRHRD At ny COMMAND ERROR 


L 
ERRHRD €E2;RECEIVE COMMAND ERROR 
BR ERRLAB 


eNLIST ME 
LIST MEB 
LIST 


SEQ 86 


>a 
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START OF TEST CODE — 







-SBTTL START OF TEST CODE 
sTHE FOLLOWING IS FOR DEBUG PURPOSES ONLY. CAN BE NOP OR BREAKPOINT. 


CLR RO sCHANGE TO BREAKPOINT FOR DEBUG 
s INITIALIZE STACK 


MOV #STACK,SP :SET UP STACK POINTER 
BR START : BRANCH OVER SUPPORT CODE 


SEQ 87. 


— 


-— 


SEO 88 
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PROGRAM VARIABLES 
1 ~SBTTL_ PROGRAM VARIABLES 
4 sPROGRAM VARIABLES 
: sUNIT NUMBER STORAGE FOR DISK DRIVES TO TEST 
6 ooo se err 177777 «#177777 ~UNITS: .WORD <-1,-1,-1,-1 sLOGICAL UNIT NUMBER IF POSITIVE 
7 000724 177777 177777 177777 «WORD = =1,-1,°1,°1 sDISK DRIVE NOT TO BE TESTED IF NEGATIVE 
000727 177777 
8 0007 177777 «=#©177777 «177777 «WORD = -1,°1,°1,°1 
000733 1377777 
9 000734 177777 177777 177777 WORD = -1,°1,-1,=1 
10 000737 177777 
11 000740 000000 UNITNB: .WORD 0 sNUMBER OF UNIT CURRENTLY UNDER TEST 
\¢ POINTER INTO TABLE ABOVE 
i 000741 000000 SDI: -WORD 0 zSDI INTERCONNECT CODE FOR XFC CALLS 
16 000742 000000 SAVSTA: .WORD 0 sSAVE STATUS 
4 000743 000000 SAVRID: .WORD 0 zSAVE REGION ID 
19 sDRIVE RESPONSE BUFFERS 
20 000200 STSIZE = 200 
$3 000744 ST: -BLKW 200 
24 001144 000000 b1AG.1 -WORD 0 i 0. 1ST DIAGNOSE COMMAND 
: NOT = 0, DRIVE TESTED BEFORE 
1145 000000 NAM.1: .WORD 0 ;HOLD PROGRAM NAME 
27 001146 000000 -2: .WORD 0 
28 001147 000000 -3: .WORD 0 
$3 150 000000 WORD 0 
31 001151 000000 SENDHR: .WORD 0 z1F 0, DON’T SEND HOSTRO IN TALKER 
3 31F NOT 0, SEND HOSTRO => DOING DIAGNOSE COMMAND 
7 001152 177777 (UNIT: .WORD =1 sLOGICAL UNIT NUMBER (-1 FOR NOT AVAILABLE) 
36 001153 000000 SAVREG: .WORD 0 s STORAGE FOR vinta AT CALL TIME 
37 001154 000012 SDISTO: .WORD 10. 2 SDI SHORT TIMEOUT 
001155 000024 SDILTO: .WORD 20. ; SDI LONG TIMEOUT 
40 001156 004212 SER18E: .WORD SERI8A : FOR MULTIPLE SUBUNIT ERROR REPORTING 
41 001157 004206 WORD SER1 
4 001160 004202 WORD SER18C 
re 001161 004176 eWORD SER18D 
rH 001750 MAXSND = 1000. 3 MAXIMUM # OF SENDS 
47 000017 WRM.OP = 17 : WRITE MEMORY COMMAND 
48 000215 RDM.OP = ‘7 3 READ MEMORY COMMAND 
43 3 DIA.OP = 3 DIAGNOSE COMMAND 
50 000207 GETCHR = 207 3 GET COMMON CHARACTERISTICS COMMAND 
51 000162 RDM.EN = $99 3 READ MEMORY RESPONSE 
3§ 000374 DIA.EN = 3 é aeons RE SPONSE 
5 000170 GCC.EN = 170 : COMMON CHARACTERISTICS 











SEQ 89 
38 : DIAGNOSE ET AND DA 
57 100000 ERRTYP = 100000 ZERROR TYPE ET 
38 040000 DATAVL = 40000 [DATA AVAILABLE 
60 : REGION ID'S 
62 177774 FFFC = FFFD = 1 
63 177775 FFFD = 177775 
64 177776 FFFE = = FFFD + 1 


COMMANDS USED FOR TEST 2 


NO DONOUSwh— 


ant et 


— 
Mw 
AS ee kd ed td dd 


a2 Sooo 
a NNNG 
Sax ARANISS 


~M 
oS 
ed 


tat ad os 

WOno 
a) Mn 
SS Fax 


Se 


Morenonor 


MMIII AA oo 


VEU 
NOUSWN=@— —Awhryo 


MEW 
BREESE tw 


SS & NS 
sys 


SSS8S8s8S SSsssssssss SSssssssss Sssssssss sssssss 


ee ae ae ee ee et a ot et eed md ed ed ed ed ed 
Seow 


WN-ONN 


= 


011 


005 


‘000000 000000 
000000 000000 


5 
000000 000000 
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oY aa USED FOR TEST 2 


ECHOD: ByTE” ore sECHO DATA TO SEND TO DRIVE 
BYTE 00 E 
-BYTE 5 “ECHOE 
-BYTE 60,ECHOC 
-BYTE 017,ECHOC 
-WORD 0 3END MARKER 


-SBTTL COMMAND — FOR SEND XFC 
: COMMAND BUFFERS FOR SEND XFC 


CR.GST: MSG GETST,1,ST,7 ¢ GET STATUS SDI INFORMATION 
«WORD GETST ADDRESS OF COMMAND 
WORD :SIZE OF “COMMAND IN BYTES 
.WORD ST ADDRESS OF F REPLY 
.WORD 7 zSIZE OF REPLY IN WORDS 
.WORD : SUCCESSFUL COMPLETION CODE 
GETST: BYTE 0,GETSTA 
CR.DRC: MSG DRC.2,ST,7 : DRIVE CLEAR SDI INFORMATION 
«WORD DRC TADDRESS OF COMMAND 
«WORD 2 zSIZE OF COMMAND 4 BYTES 
.WORD ST ZADDRESS OF F REPLY 
;WORD 7 :SIZE OF REPLY IN WORDS 
. WORD 3 SUCCESSFUL COMPLETION CODE 
DRC:  .BYTE 0,DRVCLR 
DRCBYT: .WORD 177777 
CR.WRM: MSG WRM,7,ST,7 : MEMORY WRITE COMMAND INFO 
.WORD WRM SADDRESS OF COMMAND 
~WORD 7 :S1ZE OF COMMAND IN BYTES 
-WORD ST ZADDRESS OF REPLY 
.WORD 7 :SIZE OF REPLY IN WORDS 
WORD : SUCCESSFUL COMPLETION CODE 
WRM -BYTE 0,WRM.OP 
-WORD 0.0.0 
-WORD 0.0.0 
BUF1:  .BLKW 200 
CR.RDM: MSG RDM,6,ST,STSIZE : MEMORY READ COMMAND INFO 
.WORD RDM SADDRESS OF COMMAND 
.WORD 6 :SIZE OF COMMAND IN BYTES 
.WORD ST ZADDRESS OF REPLY 
.WORD STSIZE “SIZE OF REPLY IN WORDS 
WORD : SUCCESSFUL COMPLETION CODE 
RDM: BYTE 0,RDM.OP 
-WORD 0.0,0.0 
-WORD 0,0,0.0 
CR.GCR: MSG GCR,1,$T,12. : GET CHARACTERISTICS 
.WORD GCR TADDRESS OF COMMAND 


SWORD ST 
“WORD 1 


SIZE OF COMMAND IN BYTES 
sADDRESS OF REPLY 
SIZE OF REPLY IN WORDS 
; SUCCESSFUL COMPLETION CODE 


SEQ 90 


nc” 





31 001444 


SBIKALA 
geeseeeg 8 8 


6 
46 001477 


000 


207 


213 


003 


014 


GCR: 
CR.ONL: 


ONL: 
LONG: 


CR.DIA: 


DIA: 


CR.RUN: 


RUN: 
CR. INR: 


-BYTE 0,GETCHR 
MSG ONL,2,ST,7 
«WORD ONL 

<WORD 2 

<WORD ST 

.WORD 7 

WORD 

-BYTE 0,213 
<WORD 77 

MSG DIA,3,S1,7 
«WORD DIA 

.WORD 3 

<WORD ST 

<WORD 7 

WORD 

-BYTE 0,DIA.OP 
;WORD 0 

“WORD 0 

MSG RUN,1,ST,7 
.WORD RUN 

;WORD 1 

‘ ST 

<WORD 7 

WOR 

-BYTE 0,DRVRUN 
MSG INR,1,ST,7 
.WORD INR 

<WORD 1 

.WORD ST 

;WORD 7 

WORD 


-BYTE 
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COMMAND BUFFERS FOR SEND X 


0, IRECLB 


3 GET CHARACTERISTICS 
LINE COMMAND 


sSIZE OF” ‘REPLY IN WORDS 
2 SUCCESSFUL COMPLETION CODE 


: ALL LONG TIMEOUT COMMANDS FOLLOW 


; DIAGNOSE COMMAND INFORMATION 
ADDRESS OF C 
SIZE OF ieenten IN BYTES 
DRESS OF REPLY 
SIZE OF ‘REPLY IN WORDS 
3 SUCCESSFUL COMPLETION CODE 


sADDRESS OF COMMAND 
sSIZE OF peter IN BYTES 
ons OF REPLY 
sSIZE oF REPLY IN WORDS 
2 SUCCESSFUL COMPLETION CODE 


sADDRESS OF COMMAND 
sSIZE OF BS ner IN 3YTES 
DRESS OF REPLY 
:SIZE oF” ‘REPLY IN WORDS 
: SUCCESSFUL COMPLETION CODE 


- ee ee 


oY ane 


& 
5 
6 001500 
? 001501 
8 pid Fa) 
9 00150 
10 001504 
Hea 
18 001307 
14 001510 
15 001511 
16 polals 
17 00151 
18 001514 
19 001515 
20 gatas 
21 00151 
$$ 001520 
23 001521 
ra Oo t356 
25 0015 
26 001524 
27 001525 
28 001526 
$ 001527 
001530 
31 001531 
3 Oot 
ti 00153 
001534 
3 001535 
001536 
3 001537 
001540 
39 001541 
40 001542 
33 
i 
44 001543 
45 001544 
46 001545 


ss 
——= 
ez 


NSARAS2SS 
Ab Att) t het 


sgeeseges 


e2eseseseseseseseesecere 
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STORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 


~SBTTL STORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 
sSTORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 


;OUT BUFFER = DATA TO SEND TO HOST 
: WORD 0 


SOQoooooooooooooooooooooooooooooooo 


WORD 


3 IN BUFFER = DATA RECEIVED FROM HOST 





sHOST REQUEST CODE 
;DATA ARGUMENT 


{DATA ARGUMENT 33 
zDATA ARGUMENT 34 


sHOST REQUEST CODE (ECHO) 
; AR NT 1 


sDATA 


; 1 
sDATA ARGUMENT 1 
sDATA ARGUMENT 1 
sDATA ARGUMENT 1 
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STORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 


Coal 
2 
ef 

te 
~ 


FW 9 OONA UF WNO OONOuw 


Pgece ce ce co ce ce oo 
\—~ hh) ~ =] 
Soooooooooooooeceo 


CO ts at st nee Gt Bene et Bomet Domed Brine Dd Ded Sng Bers Pd Ons Pad fd Od 
AWWA AININININNNNNND 3 a 


C2222222 


i] 
fa 


sDATA ARGUMENT 
:DA 


3D NT 
sSIZE OF BUFFER 
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eSBTTL STACK AREA 
3STACK AREA 


-WORD 123456 cer ‘on FOR STACK 


eBLKW 31, STA 
STACK: .WORD 123456 ;MARKER FOR STACK UNDERFLOW 


SEQ 94 


SEQ 95 | 
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1 
¢ .SBTTL GETU = POLL ALL PORTS, THEN GET UNITS TO TEST 
4 :GET WHICH UNITS TO TEST 
§ 001647 START: 
5 ; GET THE UNITS TO TEST 
10 : 
u : POLL ALL PORTS AND FILL IN A UDA PORT INFORMATION TABLE (UNITS) 
ig 001647 104205 000001 MOV #1,R5 : MOVE INITIAL MASK TO RS 
14 001651 104204 000720 MOV #UNITS RG + R4 POINTS TO UNIT TABLE 
15 001653 5$: PUSH RG : SAVE R4 
001653 100464 MOV R4,-(SP) 
16 001654 104052 MOV RS, R2 : MOVE MASK TO R2 
17 001655 024612 CALL  RDSTAT 3 GET DRIVE® s STATUS 
18 001656 102201 010000 BIT #10000,R1 : SEE IF ERR 
19 001660 011666 BEQ : IF NOT, BRANCH 
20 001661 104203 003772 MOV #SER10,R3 + NO DRIVE ATTACHED 
21 001663 100643 000001 MOV R3,1(R4) : SAVE ERROR MESSAGE 
22 001665 002056 BR 85$ : REPORT 
23 001666 114003 10$: CLR R3 : SET UP TIMEOUT COUNT 
24 001667 024612 15$: CALL RDSTAT ; GET STATUS 
25 001670 102201 000001 BIT #RCVRDY,R1 ; SEE IF RECEIVER READY ASSERTED 
26 001672 05170 BNE 20$ : IF SO, 
27 001673 11740 DEC : DECREMENT 
28 001674 051667 BNE 15$ : IF INCOMPLETE, BRANCH 
29 001675 104208 004005 MOV #SERII 83 : RECEIVER READY NEVER ASSERTED 
30 001677 100643 000001 MOV R3,1 : SAVE ERROR MESSAGE 
31 001701 00205 BR 5 : REPORT 
32 001702 102201 000100 20$: BIT #AVAIL,R1 : SEE IF DRIVE IS AVAILABLE 
33 001704 05171 BNE : IF 
001705 104203 004215 MOV #SER4O,R3 ; GET SECONDARY ERROR 
35 001707 100643 000001 MOV R3,1(R4) : SAV 
36 001711 002056 BR 85$ 3 ExT 
37 001712 104 02 001750 25$: MOV #MAXSND, RQ ; SET UP MAXIMUM TRIES AT SENDING 
38 001714 104 001170 MOV #CR.GST.R : R3 POINTS TO GET STATUS COMMAND 
39 001716 104137 30$: MOV (R3),RO- : SET ADR OF SDI COMMAND BUFFER 
40 001717 104631 000001 MOV 1(R35 ,R1 t SET BUFFER LENGTH 
41 001721 PUSH R2 3 SAVE R2 
001721 100462 MOV R2,-(SP) 
42 00172¢ 104052 MoV RS,R2 : SETUP FOR SEND 
43 001723 060004 XFC SEND : SEND COMMAND 
44 001724 POP R : RESTORE COUNT 
001726 104262 MOV (SP)+,R2 
45 001725 115001 TST R1 : DID UNIT ACCEPT COMMAND 
46 001726 011736 BEQ 35$ : IF SO NCH 
47 001727 117402 DEC R : DECREAENT 
oF Strat IE goon fe 
50 001733 100643 000001 MOV Re 1(R4) 3 
51 001735 002056 BR 85 
52 001736 35$: PUSH R& : SAVE R4 
001736 100464 MOV R4,-(SP) 
53 001737 104204 000003 MOV #3,R4 : SET UP SHORT TIMEOUT 
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#SER13,R3 
65$ 


R1 
R1 


50$ 
WSER14,R3 
65$ 

R1 

55$ 
WSER1S, 23 
65$ 

R1 

60$ 
#SER16,R3 
#SER'7 R3 
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SEQ 96 


IF NOT, BRANCH 
: eye VALUE 


OUT, BRANCH 
RESTORE R 


MOV (SP)+,R4 
GET ERROR NUMBER 
BRANCH TO EXIT 
RESTORE R4 
MOV (SP)+,R4 
ROTATE INTO POSITION TO TEST 
is IF fn NOT START FRAME 


0 END OF LOOP 
SEE IF FRAMING ERROR 
I BRANCH 
GET ERROR NUMBER 
BRANCH TO END OF LOOP 
SEE IF CHECKSUM ERROR 
IF NOT, BRANCH | 
GET ERROR NUMBER ! 


BRANCH TO END OF LOOP 
GET ERROR NUMBER 


BRANCH TO END OF LOOP 


| cats itt ie eet 2 abe ee eee ig a a 

) SEQ 97 
UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 24 
GETU = POLL AL ) 


L PORTS, THEN GET UNITS TO TEST 


1 : 
Q ; NOW FILL IN THE TABLE WITH ALL THE SUBUNIT NUMBERS 
& 002010 70$: POP RG : RESTORE R4 
002010 1oeges MOV (SP)+,R4 
§ 002011 104207 177777 MOV #=1,R0 3 GET "NO UNITS’ FLAG 
6 002013 100647 000001 MOV RO, 1(R4) : CLEAR ANY ERRORS THAT ARE FLAGGED 
7 002015 100647 000002 MOV RO.2(R4) + CLEAR ANY ERRORS THAT ARE FLAGGED 
8 002017 104307 000744 MOV ST.RO : RO HAS UNIT NUMBER 
9 90201 104072 MOV RO.R2 : COPY RO TO R2 
10 002022 103207 170000 BIC #°CHBHINB,RO  —: RO HAS UNIT NUMBER 
11 posse PUSH <R1,R2> : SAVE R1 AND R 
002024 100461 MOV R1,=(SP) 
002025 10046, MOV R2,=(SP) 
2 002026 10405 MOV RS,R2 : MOVE UDA PORT MASK TO R2 
13 002027 02461 CALL = RDSTAT : GET STATUS 
14 002030 102201 000002 BIT #ATIN,RI1 : SEE IF SPINABLE 
15 002052 052035 BNE 75 : IF SO, BRANCH 
16 002033 101207 010000 BIS #10000,R0 : SET "NOT SPINABLE’ FLAG 
17 002035 75$: PoP <R2,R1> 3: RESTORE 
002035 104262 MOV (SP)+,R2 
002036 104261 MOV (SP)+,R1 
18 002037 101207 040000 BIS #40000,R0 : FLAG UNIT AS NOT TESTED 
19 002041 110702 SWAB sR : SWAP R2°S BYTES 
20 00204 11060 ROR 2 : MOVE SUBUNIT MASK TO LO NIBBLE 
21 00204 110602 ROR R2 : MOVE SUBUNIT MASK TO LO NIBBLE 
22 002044 11060 ROR Re : MOVE SUBUNIT MASK TO LO NIBBLE 
23 002045 11060 ROR R : MOVE SUBUNIT MASK TO LO NIBBLE 
24 002046 105202 177760 BIC #LBLONB,R2 : CLEAR ALL BUT SUBUNIT BI 
25 002050 10014 MOV RO, (R4) : UNIT NUMBER INTO UNITS 
26 002051 110602 80$: ROR Re : MOVE SUBUNIT BIT TO CARRY 
27 002052 042056 BCC 85$ : IF NO MORE SUBUNITS, BRANCH 
28 002053 100247 MOV RO, (R4)+ + MOVE SUBUNIT NUMBER TO TABLE 
29 002054 115407 INC 0 : INCREMENT SUBUNIT NUMBER 
30 002055 002051 BR 80$ + BRANCH 
RG : R4 POINTS TO START OF UNIT JUST HANDLED 
MOV (SP)+,R4 
#4 R46 3 R4 WILL POINT TO NEXT UNIT (CLEAR CARRY FOR ROL) 
5 : RS HAS NEXT UNIT PORT MASK 
#20,R5 : SEE IF ALL PORTS TESTED 
5$ : IF NOT, BRANCH 
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100$: 


105$: 


110$: 
115$: 


NOW GET THE PLUG NUMBERS TO TEST AND FIND THEM IN THE TABLE 
eurets’ Ae 


HOSTR 


#1N.01,RO 
#UNITS.R1 
(R1) ,R2 
115$ 


R1 


#170000 ,R2 
(RO) ,R2 


R2,(R1) 
R1 


#4,R1 
#UNITS+16. ,R1 
95$ 





L 
TO UNIT NUMBERS TO TEST 
eh UDA PORT INFORMATION 


HAS 
IF NONE, BRANCH 


MOV R1,-(SP) 
CLEAR “NOT TESTED’, DO NOT LEAVE ‘UNSPINABLE® SET 
po IT IS A UNIT TO TEST 


H 
SAVE UNIT AS ONE TO TEST 


LOOK FOR THE NEXT ONE 
POINT TO NEXT SUBUNIT 
oPY TOR 


. cH 
; SEE IF ANY a SUBUNITS 


UNIT 
‘ne SEARCHED 


SEQ 98 
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So 
= 
Na 


96:40 PAGE 26 


DIDN'T FIND 


UDA PORTS AN 
MOV (RO) ,OUT.03 
MOV #OUT.05,R4 
MOV #UNITS,RS 
MOV (RS) RO 
BPL 125$ 

MOV 1(R5) RO 
MOV RO, (R4)+ 
BR 155$ 

PUSH 

BIT #10000,R0 
BEQ 

MOV #SER41,RO 
BR 135$ 

MOV #SER18,RO 
MOV RO, (R4S+ 
CLR 

MOV (R5)+,R1 
BMI 145$ 

INC RO 

CMP #4,RO 

BNE 146$ 

MOV SER18E=1(RO) ,R1 
MOV R1,(R4)¢ 
POP 

PUSH = RS 

MOV (RS)+,R1 
MOV R1,(R4)+ 
DEC RO 

BNE 150$ 

POP RS 

ADD #4,R5 

CMP #UNITS#+16. RS 
BNE 120$ 
DEVFTL § 

MOV OUT.RO,RO 
CALL HOSTRO 
MOV #DONE 

CALL §- HOSTRO 
xFC IT 

INC 

MOV (RO) ,R2 
BPL $ 


ae esate UNITS == DUMP ALL KNOWLEDGE OF THE 


T 
IF VALID UNIT WAS FOUND, BRANCH 
GET POINTER TO ERROR MESSAGE 
SAVE IN OUTPUT BUFFER 
SAVE POINTER TO UNIT TABLE 
SEE IF DRIVE UNSPINABLE 
IF SPINABLE CH 
REPORT DRIVE(S) UNSPINABLE 


nw TO ERROR MESSAGE 


MOV R5,-(SP) 


: CLEAR C 
GET UNIT NUMBER 
: IF INVALID, BRANCH 
COUNT 


INCREMENT 
SEE IF MAX 

IF NOT, LOOP 

GET POINTER TO CORRECT ERROR MESSAGE 
MOVE INTO OUTPUT BUFFER 

RESTORE RS 

SAVE RS 

GET SUBUNIT NUMBER 

DECREMENT COUNT 

IF COUNT INCOMPLETE, BRANCH 

RESTORE R 


POINT TO NEXT UNIT TABLE 
ae 7 yh TABLE SEARCHED 


NOT, BRAN 
REPORT FATAL ERROR (WILL SHOW UP AS A 5000) 
MOV 4 00016 fLDEV.R2 

R2,0UT.0. 


MOV (SP)+,R5 
MOV RS.-(SP) 


MOV (SP)+,R5 


MOV 
MOV #.,OUT.01 
MOV #ERRMC OUT .RO 
SET UP FOR REPORT 
REPORT ERROR 
ND TEST 
SEND END-OF-TEST TO HOST 
TERMINATE DM 


POINT TO NEXT UNIT TO TEST 
CHECK NEXT UNIT 
FIND IN UDA PORT INFORMATION 


SEQ 99 


T on IY eae 


J 8 





SEQ 100 
UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 27 
TEST 2 START TESTING 
1 «SBTTL TEST 2 START TESTING 
s3* 
¢ : FIND OUT IF HOST HAD TO INIT UDA TO GET A PROGRAM FROM AN ATTACHED DRIVE. 
4 : THE PROGRAM WAS REQUESTED BY THE DRIVE TO BE DOWNLINE LOADED INTO ITS MEMORY. 
; : THE INDICATION COMES FROM THE UTOTST RESPONSE. 
7 ; A WORD WITH MSB IS SET TO INDICATE THE LAST UNIT ENTRY. AFTER THAT WORD 
S : ANOTHER WORD INDICATES WHEATHER OR FILE WAS SUPPOSE TO BE DOWN LINE LOADED. 
9 : A 'O* MEANS NORMAL PROCESSING or ee uAs EXPECTED OR REQUESTED. 
10 : A "1" MEANS A FILE WAS EXPECT ftp AND IS AVAIL 
i : A ‘2° MEANS A FILE WAS EXPECTED AND IS NOT AVAILABLE. 
13 : RO IS A POINTER TO THE WORD BEYOND THE LAST TABLE ENTRY 
13 3 (RO) = 100000 
16 002230 104671 000001 T2STRT: MOV 1(RO),R1 ZWAS m fie EXPECTED? 
17 002 32 012314 BEQ PORTO TIF NORMAL PROCESSING 
18 002233 115407 INC POINT ‘fo INDICATOR IN IN.RQ BUFFER 
19 002234 104075 MOV RO,RS =R5 => INDICAT 
20 002235 104151 MOV (R5),R1 [1ST WORD CONTAINS INDICATOR TO SEE IF A FILE WAS EX 
21 002236 106201 000001 CMP H SRI WAS wit EXPECTED FILE AVAILABLE? 
23 002240 053525 BNE DI? 31F NOT AVAILABLE, GO TO REPORT ERROR | 
2 : tee FILE WAS THERE NOW SEE WHERE IN THE TABLE IT WAS SO PORT INDICATOR IS THE SAME? 
24 002241 104207 000720 MOV #UNITS,R zRO => UNIT TABLE 
25 002243 104651 000001 MOV 1(R5) RI 3R1 = UNIT NUMBER 
26 002246 10420¢ 000001 MOV rnd :R2 = 1ST PORT 
27 002247 11400 CLR R :R3 = UNIT TABLE INDICAT 
28 002250 114004 1$: CLR [R4 KEEPS TRACK OF WHICH O SUBUNITS 
29 002251 104270 001153 23: MOV (RO) +, SAVREG [STORE UNIT IN SAV 
30 002253 072 BMI 4$ TIF NEGATIVE VALUE, DON'T COMPARE 
31 002254 103300 177400 001153 BIC HIBYTE , SAVREG TCLEAR EXTANEOUS : 
32 002257 106301 001153 CMP SAVREG.R1 :DID WE FIND THE DRIVE? 
002261 012304 BEQ iif IT 1S, WE HAVE FOUND IT 
0028 115404 INC RG TELSE, INCREMENT SUBUNIT POINTER 
5 002263 1 000004 CMP #4 ,R46 ENDED WITH THIS UNIT ENTRY? 
002265 bs $30 i BNE 2$ c1F or 
37 002266 10502 38: ADD ReR2 SELSE, NEXT PORT SET IN R2 
38 002267 11540 INC R Aer UNIT TABLE INDICATOR 
0022 106205 000004 CMP #4 ,R3 2D 
40 002272 052250 BNE 31 THIS GETS TO 4, THEN ERROR(UNIT NOT FOUND) 
41 0022 ERRHRD MS2000,R1 
sre. tut TR MMERAS eon # 200 
00 375 103720 -WORD E sERRN 
42 0032 bo2sie BR ART REGULAR TESTING 
; eee JF HERE, NEGATIVE ENTRY, GO TO nexi® aa NIRV. ADJUST RO TO PROPER POINTER 
002 105207 000003 és: ADD O NEXT UNIT\INCREMENTED BY (RO)+ 
45 002308 107047 SUB R4.RO cREAL IGN” 19 POIN NT TO BEGINNING OF POINTER 
? we enaee ee JF HERE, FOUND THE ENTRY, SAVE renifoesh elt, 60 bOUN LINE LOAD PROGRAM 
48 002304 104650 900001 001152 is: MOV 1(R5) ,LUNIT AVE L LOGICAL UN UNIT NUMBER 
49 002307 104020 000741 MOV Re. th $SAVE PORT VALUE 
S0 002311 104030 000740 MOV R3.UNITNB SAVE UNIT NUMBER OFFSET IN TABLE 
51 002313 003370 BR 0.01 760 DOWN LINE LOAD PROGRAM 


A A eo . , 





SEQ 101 
UDAT2 ne RESIDENT DMACR X04.01 13-APR~82 18:06:42 PAGE 28 
THE DIAGNOSTICS TO ALL UNITS SELECTED 


1 ; THE DIAGNOSTICS TO ALL UNITS SELECTED 
: THE DIAGNOSTICS TO ALL UNITS SELECTED. 

:TEST CODE WILL BE CALLED FOR EACH DISK SUBUNIT TO BE TESTED. 
4 3 LUNIT WILL CONTAIN LOGICAL UNIT NUMBER OF DRIVE FOR ERROR REPORTS 
5 ; $1 WILL LONTAIN SDI INTERCONNECT CODE FOR SELECTED D 
6 : UNITNB WILL CONTAIN aN EV VEN NUMBER FOR TESTING FIRST SUBUNIT OF A DRIVE 
i : D NUMBER FoR TESTING SECOND SUBUNIT OF A DRIVE 
9 ;_*** NORMAL PROCESSING 
10 002314 PORTO: 
"1 002314 114001 CLR R1 gSTART WITH UNIT 0 INDEX 
ig 002315 104207 000720 PORT2: MOV #UNITS RO : GET POINTER TO UNITS TABLE 
14 002317 105017 ADD : ADD INDEX 
15 002320 104173 (RO) ,R3 : GET CONTENTS OF TABLE 
16 002321 032330 BPL 1$ : IF THIS UNIT IS PRESENT, BRANCH 
17 002322 102201 000003 BIT #3.R1 : IF ON SUBUNIT O OF UNIT 
18 002324 052 BNE PORTS : IF NOT, TEST NEXT SUBUNIT 
19 002325 105201 000003 ADD #3,R1 : IF NO SUBUNIT 0, THEN NO UNIT = SKIP OTHER SUBUNITS | 
20 002327 002 BR PORTS : BYPASS IF T 
21 002330 10ce03 040000 1$: BIT #40000,R3 : SEE If THIS UNIT IS TO BE TESTED 
22 002332 052 BNE PORTS : IF NOT, CH 
23 002333 104010 000740 MOV R1,UNITNB 3 STORE UNIT INDEX 
24 002335 104030 001152 MOV R3,LUNIT 3 STORE LOGICAL UNIT NUMBER FOR DRIVE 
25 002337 104202 000001 MOV #UNITO,R2 3 GET UNIT a INTERCONNECT CODE 
26 002341 110601 ROR R1 : DIVIDE UNITNB BY FOUR 
27 002342 110601 ROR R1 
28 002343 103201 177760 BIC #LBLONB,R1 : CLEAR UNUSED BITS 
29 002345 117401 PORT3: DEC RI 
30 002346 072353 BMI PORTS 3 FOR EACH DRIVE OVER 0 SHIFT R2 LEFT 
31 002347 11020 ROL R2 
32 002350 103202 000001 BIC #] Re : CLEAR CARRY ROTATED INTO REG (IF ANY) 
33 002352 00234 BR PORT 
34 002353 104020 000741 PORTG4: MOV R2,SD1 : STORE E S01 INTERCONNECT CODE 
35 002355 002372 BR TEST : PERFORM “ TEST ON THIS DRIVE 
3 002356 104206 001646 TESTX: MOV #STACK, SP : RESET STAC x DO TO JUMPS OUT OF 
39 002360 104301 000740 MoV UNITNB,R1 3 GET UNIT 
40 002362 115401 PORTS: INC R1 > INCREMENT INDEX 
41 002363 106201 000020 CMP #16.,R1 : CHECK IF 16 DRIVES ALREADY SELECTED 
42 002365 052315 BNE PORT? : REPEAT FOR ALL DRIVES 
43 002366 104207 060016 DONECD: MOV #DONE ,RO > END OF PROGRAM 
44 002370 924645 CALL -HOSTRO 
45 002371 002 DONE : REPEAT IF RETURNED 
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$ pots 052430 
5 0024235 117405 
002424 052377 


002425 02501 
10372 
000165 


ISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 29 
INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 
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010000 
7 - 
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eSBTTL INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 
sSTART OF TEST CODE 


INPUTS: 
‘ LUNIT = LOGICAL UNIT NUMBER OF DRIVE UNDER TEST 
; SDI = SDI INTERCONNECT CODE FOR DRIVE 


s INITIALIZE THE DRIVE 


TEST: CLR R3 3R3 1S A DECREMENT COUNTER TO CHECK IF THE 
COMMAND HAS BEEN RECEIVED BY THE DRIVE 
MOV SDI,R <GET SDI SELECT CODE 
XFC St te SINITIALIZE THE DRIVE 


sWAIT FOR DRIVE TO ASSERT RECEIVER READY 
TIME OUT AFTER ...? 


CLR RS :GET TIMEOUT COUNTER 
ILOOP: CALL RDSTAT 2GET DRIVE STATUS 
BIT #10000,R1 sSEE_ IF ANY ERRORS 
BEQ 21F NO ERROR, CH 
BIT #4000,R1 7SEE IF XMIT ERROR 
DEC R3 20N SEND as DID WE DEPLETE THE COUNTER? 
BNE ILOOP 3IF NOT, AGAIN 
ERRHRD MS2001 ;REPORT INVALID STATUS ERROR 
CALL_RERROR sERROR # 2001. 


WORD ERHARD+ERRN 
eWORD <PRMS*10000>+MS2001 
BR DONE CD BRANCH TO DONE 
1$: ERRHRD MS2002 REPORT XMIT ERROR 
CALL _RERROR sERROR # 2002. 
eWORD ERHARD+ERRN 
D <PRMS*10000>+MS2002 


2s BR DONE CD sBRANCH TO DONE 
CLR R3 sR3 IS A _DECREMENT COUNTER TO CHECK IF THE 
OMMAND HAS BEEN RECEIVED BY THE DRIVE 

BIT #RCVRDY ,R1 : CHECK se tt READY LINE 

BNE ECHO1 sADVANCE IF ASSERTED 

DEC R5 sDECREMENT TIME ot COUNTER 

BNE ILOOP sSTAY IN LOOP UNTIL SIGNAL SETS OR TIMEOUT 

ERRHRD MS2003 sREPORT ERROR 
CALL_RERROR sERROR # 2003. 
eWORD ER RRN 


HARD+ 
WORD <PRMS*10000>+MS2003 


SEQ 102 


Qt 


SEQ 103 
UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 30 
ECHO DATA TO DRIVE 


1 ~SBTTL ECHO DATA TO DRIVE 


3 sECHO THE FOLLOWING DATA PATTERNS TO THE DRIVE THEN CHECK THE 
é ; RESPONSE FOR THE PROPER DATA RECEIVED: 
6 3 000 
7 : 52 
8 ; 60 | 
: : 017 | 
11 002430 104205 001162 ECHO1: MOV #ECHOD RS :GET POINTER TO ECHO DATA 
12 002432 104157 ECHOIA: MOV = (R5) ,RO :GET ECHO DATA | 
13 002433 103207 177400 ECHO2: BIC #HIBYTE,RO [CLEAR COMMAND FROM WORD 
1 002435 060010 XFC ECHO [PERFORM THE ECHO COMMAND | 
16 :CHECK FOR TIMEOUT ERROR | 
18 002436 115001 TST R1 :CHECK FOR ERROR | 
19 002437 012457 BEQ ECHO4 [BRANCH IF | 
20 002440 102201 000001 BIT #1,R1 SCHECK IF SEND ERR | 
21 002442 012452 BEQ ECHO3 [BRANCH IF RECEIVE OERROR 
22 002443 117403 DEC R3 SIF SEND ERROR, IS THE CCOUNTER BEEN DEPLETED 
23 002444 052432 BNE ECHOTA sIFf NOT, TRY AGAIN 
24 002445 ERRHRD MS2004,RO0 [REPORT SEND ERROR 
002445 100467 MOV RO,-(SP) 
002446 025016 CALL RERROR ZERROR # 2004. | 
002447 103724 <WORD ERHARD+ERRN 
002450 010235 -WORD <PRMS*10000>+MS2004 
25 002451 002473 BR ECHOS | 
26 002452 ECHO3: ERRHRD MS2005,R0 :REPORT RECEIVE ERROR 
002452 100467 V RO,-(SP) | 
002453 025016 CALL RERROR ZERROR # 2005. 
002454 103725 <WORD ERHARD+ER 
002455 010275 WORD CPRMS*10000>4HS2005 
37 002456 002473 BR ECHOS 
ZCHECK DATA RECEIVED 
31 002457 106157 ECHO4: CMP (RS) RO ;COMPARE DATA RECEIVED WITH | 
002460 012473 ECHO DATA SENT 
33 002461 ERRHRD MS2006, (R5),RO TREPORT DATA COMPARE ERROR 
002461 100467 MOV RO,-(SP) 
002462 104010 001153 MOV R1.SAVREG 
2464 104151 mov (R5).R1 
002465 100461 MOV R1,-(SP) 
26466 104301 001153 MOV SAVREG,R1 
002470 025016 CALL RERROR — ;ERROR # 2006. 
002471 103726 .WORD ERHARD+ERRN 
a 002472 020340 <WORD <PRMS*10000>+MS2006 
3 MOVE TO NEXT DATA PATTERN 
37 002473 114003 ECHOS: CLR R3 
38 002474 115405 INC R5 ;BUMP TO NEXT DATA TO SEND 
39 009678 104157 MOV (R5) RO [CHECK IF AT END OF TABLE 
40 002476 072433 BMI ECHO2 [SEND THIS DATA IF NOT 





er 


SEQ 104 
UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 31 
GET STATUS COMMAND : 
j .SBTTL GET STATUS COMMAND 
; zISSUE GET STATUS COMMAND AND CHECK THAT IT PERFORMS PROPERLY : 
5 002477 104200 000002 000742 MOV #2,SAVSTA : COUNTER 
$ 002502 024131 CALL GTSTAT :GET STATUS 
8 sCLEAR DRIVE ERRORS 
19 002503 024211 DRCLR1: CALL CLRDRV 3 CLEAR DRIVE | 
12 | 
13 zISSUE GET STATUS COMMAND AND CHECK THAT IT PERFORMS PROPERLY 
15 002504 GSTS3: 
16 002504 024131 CALL GTSTAT :GET STATUS | 
18 zLOOK AT DATA IN RESPONSE PACKET | 
20 002505 104307 000745 GSTS6: MOV $T+1,R0 3GET TWO WORDS FROM PACKET 
21 002507 104301 000746 MOV $T+2,R1 | 
22 002511 102201 000250 BIT #ST.WE+ST.PE+ST.FE.R1 :CHECK ERROR BITS 
23 002513 012523 BEQ 10$ ‘BRANCH IF ALL CLEAR | 
24 002514 117400 000742 DEC SAVSTA zTRY ONCE MORE? 
25 002516 052503 BNE DRCLRT SIF OK, TRY AGAIN 
26 002517 024265 CALL  STOSTA :G0 STORE STATUS 
27 002520 ERRHRD M™S2007 
002520 025016 CALL RERROR — ;ERROR # 2007. 
002521 103727 .WORD ERHARD+ERRN 
- 002522 000421 -WORD <PRMS*10000>+MS2007 
23 002523 104070 000742 10$: MOV RO,SAVSTA zSAVE STATUS TO CHECK IF DIAGNOSTIC REQUEST BIT IS s 
3 zISSUE ONLINE COMMAND AND CHECK THAT IT PERFORMS PROPERLY 
33 002525 104203 001445 MOV —s #CR. ONL. R3 :R3 => COMMAND 
34 002527 024706 CALL TALKER 3SEND TO DRIVE 
35 002530 115003 TST R3 3ALL OK? 
36 002531 012546 BEQ 30$ 3I1F SO, CHECK RESPONCE CODE | 
37 002538 032537 BPL 20$ EL SE, IS MSB SET2/1F NOT, RECEIVE ERROR 
38 00253 ERRHRD M™S2008 sREPORT SEND ERR 
002533 025016 OF ALL RERROR _; ERROR # 2008. 
002534 103730 .WORD ERHARD+ERRN 
002535 000500 -WORD <PRMS*10000>+mS2008 | 
39 002536 002574 BR GSTS7 : | 
40 002537 024504 208: CALL TYPERR 
41 002540 ERRHRD MS2009,R0,R3 ;REPORT RECEIVE ERROR 
00 100463 MOV R3,-(SP) 
002541 100467 MOV RO,-(SP) 
002542 025016 CALL RERROR _ ;ERROR # 2009. 
002543 103731 -WORD ERHARD+ERRN 
Sefe 020530 eWORD <PRMS*1 >+MS2009 
42 002545 002574 BR GSTS? 3 
43 002546 106207 000176 30S: CMP #COMPLT,RO 3 CHECK RESPONSE CODE 
44 002550 012574 BEQ GSTS? s1F OK, CONTINUE 
45 002551 106207 000175 CMP SSUC,RO SIF NOT CORRECT RESPONSE, UNSSUC? 
46 002553 052561 BNE 35$ TIF NOT, UNRECOGNIZED RESPONSE 





cr 






GET STATUS C 


51 
52 002574 





024265 
02501 


7? 
104010 001153 
104201 000176 


1 
4301 001153 





35$: 


GSTS?7: 


UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 31-1 
OMMAND 

CALL STOSTA 

ERRHRD MS2010 


BR GSTS7 
ERRHRD MS2011,#COMPLT,RO 


SEQ 105 


:CHECK STATUS 

: CALL RERROR sERROR # 2010. 
<WORD ERHARD+ERRN 
WORD OORMS*10600>+MS2010 


;1F NOT, REPORT ERROR | 
MOV | 


a # 2011. 
«WORD ERHARD+ERR 
- WORD <PRMS*10000>+MS2011 


or 


SOONOUS WN 
tat} 


002605 
60 


ae eer 
Sona 


012620 
032611 


025016 
103734 
74 


052633 
024265 


025016 
103736 


Boerrcce Seussees 


SS 
Ss 


000012 001154 
001437 


000170 
000175 


001153 
000770 


001153 


177760 


001154 
900783 
177760 


001155 


118: 


12$: 


13$: 


T00: 


UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 32 
GET DRIVE CHARACTERISTICS 


SEQ 106 


.SBTTL GET DRIVE CHARACTERISTICS 
:GET DRIVE CHARACTERISTICS 
MOV #10. ,SDISTO : SET UP TEMPORARY SHORT TIMEOUT VALUE 
MOV #CR.GCR,R3 :POINT TO GET CHARS COMMAND 
CALL _—‘ TALKER : INITIATE SDI INTERCHANGE 
TST 3 SSEE IF ERROR OCCURRED 
BEQ 12$ ‘IF NOT, BRANCH 
BPL 11$ 71F $0, BRANCH 
ERRHRD M™S2012 :SEND COMMAND ERROR 
CALL RERROR _ ; ERROR # 2012. 
eWORD ERHARD+ERRN 
100 eWORD <PRMS*10000>+MS2012 
CALL _—«TYPERR 3CHECK WHAT TYPE OF RECEIVE RROR 
ERRHRD MS2013,R0,R3 
MOV R3,=(SP) 
MOV RO,-(SP) 
CALL RERROR _ ; ERROR # 2013. 
<WORD ERHARD+ERRN 
- 100 «WORD <PRMS*10000>+MS2013 
CWP #CHRRES RO 3CHECK FOR SUCCESSFUL RESPONSE 
CMP #UNSSUC,RO ZIF NOT CORRECT RESPONSE, UNSSUC? 
BNE 13$ ZIF NOT, UNRECOGNIZED RESPONSE 
CALL STOSTA [CHECK STATUS 
ERRHRD MS2014 : 
CALL RERROR _; ERROR # 2014. 
<WORD ERHARD+ERRN 
- 100 -WORD <PRMS*10000>+MS2014 
ERRHRD MS2015,#CHRRES,RO GET CHARACTERISTICS COMMAND. FAILED 
MOV R1.SAVREG 
MOV #CHRRES,R1 
V R1,-(SP) 
MOV SAVREG,R1 
CALL RERROR — ;ERROR # 2015. 
<WORD ERHARD+ERRN 
<WORD <PRMS*10000>+mS2015 
MOV ST+#SHRTTO,RO : GET SHORT TIMEOUT 
BIC #LBLONB RO + CLEAR UNUSED BITS 
CALL ‘TO : SET UP TIMEOUT 
MOV RO, SDISTO : SAVE IN SHORT TIMEOUT 
MOV ST+LONGTO, RO : GET LONG TIMEOUT 
BIC #LBLONB,RO : CLEAR UNUSED BITS 
CALL : SET UP TIMEOUT 
MOV RO, SDILTO : SAVE IN LONG TIMEOUT 








K WHICH COMMAND HAS BEEN GIVEN 


ge S82 seeeesss see 


NONIRD tt 
NUVIssts eevee - 


37 00078 


ASS 
ww 
o 
~N 


RURSERER GN 
cont 3s 


SS tate IO ot 
S 838 3 


ee 232 


w 
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000742 


000040 


A444, 


001153 
001544 


001153 


001213 
001215 


001206 
001206 


are DISK RESIDENT DMACR x04.01 aati 18:06:42 PAGE 33 


#ST.DR, 


uRne 
ig aie 
WRM+4 


WRM+5 
#10. ,CR.WRM+1 
WRTMEM 


MOV #7,CR.WRM+1 
3 *** NOW GO aye REGION ZERO 
CLR OUT .01 


OUT.02 
DIAG.1 


IN.02 
DIAGNS 


: wee RETURN HERE TO GET NEW COMMAND 


#T2CMD RO 
HCSTRQ 
IN.01,R0 


TESTEX 
RO 
WRITE 
RO 
READ 
RO 


DIAGNS 
MS2016,1N.01 


GT.CMD 


_* CHECK WHICH COMMAND HAS BEEN GIVEN 
SAVSTA, 8 


sGET Fleer STATUS WORD 
S_TH os R BIT SET? 
(0 HANDLE IT WITHIN DIAGNOSE CODE 


BNE DO.DIX F SO, 
33 *#* DO noe” wad ane — TO CLEAR. THE” “REGION (ONLY 4 BYTES) 


sOF FSET 
iByTE COUNT AND 1ST DATA BYTE 


sDATA 

sSET rer BYTE COUNT 
:CLEAR BU 
3SET COMMAND BYTE COUNT 

CLEAR OUT BUFFER TO INITIAL DIAGNOSE COMMANDS 


{MAKE SURE DIAGNOSE COMMAND eens OP=CODE = 0 
3 (FOR 1ST TIME THROUGH ONLY) 

CLEAR REGION ID FOR 1ST pense COMMAND 

3D0 DIAGNOSE COMMAND, 1ST THING 


SET REQUEST NUMBER 


SASK HOST FOR PORTS 

RO = RESPONSE CODE: 1N.02 

: 0 = EXIT; WRITE 

: 2 = READ: 3 = DIAGNOSE 

; OP = O /EX 

: RO = 1? 

: IF SO, WRITE 

: RO = 3? 

: IF SO, READ 

+ RO = $? 

: IF SO, DIAGNOSE 

3 ELSE, ERROR=INVALID INPUT 
MOV R1,SAVREG 
MOV IN.01,R 
MOV R1,-(SP) 
MOV SAVREG, 


VREG,R1 
CALL RERROR sERROR # 2016. 
eWORD ERHARD+ERRN 

eWORD <PRMS*10000>+MS2016 


nme 
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UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 34 
MEMORY WRITE 


~SBTTL MEMORY WRITE 


INPUT IN.02 = REGION ID 


IN.03 = OFFSET 
IN.04 = DATA BYTE 


OUTPUT OUT.RQ HAS DAT SET FOR T2CMD 


MOV IN.02,WRM+1 
MOV IN.03,WRM+2 
MOV IN.04,R0 


SWAB 

BIC #LOBYTE RO 
BIS ° 

MOV RO,WRM+3 
CLR WRM+4 

CLR WRM+5 

MOV #7,CR.WRM+1 
CALL TMEM 

MOV #1,0UT.02 
MOV LUNIT,OUT.01 
CLR T.08 

CLR 04 

CLR .05 

BR . 


sREGION ID 
FFSET 


3 OF F SE 

:RO = BYTE OF DATA IN LO BYTE 
:RO_IS IN HI BYTE 

CLEAR LO BYTE 

SET BYTE COUNT 

sSET WORD IN PACKET 


3SET COMMAND BYTE COUNT 


:RO = OP CODE 
sDRIVE NUMBER 


[GO SEND REQUEST 


, > 





SEQ 109 
all 3B ee DMACR X04.01 13-APR-82 18:06:42 PAGE 35 


} .SBTTL MEMORY READ 

a : 

4 : INPUT _IN.02 HAS REGION ID 

2 é IN.03 HAS OFFSET 

, : OFFSET SETS UP OUTBUFFER FOR T2CMD 

9 003020 READ: 

10 003020 104300 001545 001427 MOV In /RDM+1 :REGION ID 

11 003023 104300 001546 001430 MOV Rome [OFFSET 

I 003026 104200 000001 001431 MOV SBYTE COUNT 

14 003031 023633 CALL __RDMEM 

15 : t** SET UP RESPONSE PACKET 

16 003032 104300 001152 001501 MOV LUNIT,OUT.01 :SET UP REQUEST 

17 003035 104200 000002 001502 MOV #2,0UT.02 :RETURN yOBCODE SET IN BUFFER 
18 003040 104307 000744 MOV ST.RO RO = VTE | COUNT 

19 005048 110707 SWAB séRO [DATA aN 0 BYTE 

20 003043 103207 177400 BIC #HIBYTE RO CLEAR BYTE COUNT (1 BYTE ONLY SENT) 
21 003045 104070 001503 MOV RO, OUT.03 :STORE IN BUFFER FOR HOST 

22 003047 114000 001504 CLR OUT.04 ; 

23 003051 114000 001505 CLR OUT.05 

2 003053 002725 BR GT.CMD 260 SEND REQUEST 


a 


, at oud 





: 


3 


g38 38 
$ See SS 


sess sess 
== 


SV st SS SY 


S 
s 


; 
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UDAT2 DISK RESIDENT DMACR 
SEND DIA E COMMAND 


000001 000742 DIAGNS: gir 


0007 
000020 000742 


000741 


000741 


X04.01 13-APR=82 18:06:42 PAGE 36 


-SBTTL SEND DIAGNOSE COMMAND 
#ST.RU,SAVSTA 


y tee onive IS SPINNABLE 
Bit #ST.SR,SAVSTA 
; #® DRIVE HAS NOT BEEN SPUN UP 
i$: CALL DIAGDR 
1,R2 
CALL § RUNDR 


BR 3$ 
: ##* DRIVE HAS BEEN SPUN UP 
5: CALL RECAL 


3$: MOV SD1,R2 
CALL  DIAGDR 
BR GT.CMD 


sEND OF TESTING THIS DRIVE 
TESTEX: BR TESTX 





SEQ 110 


sCHECK IF DRIVE IS SPINNABLE (RUN SWITCH IN?) 
sONLY DO DIAGNOSE ONCE IF NOT SPINNABLE 


3R2_HAS CURRENT SDI PORT INDEX 

HAS THE DRIVE BEEN SPUN 

IF NOT ALREADY SPUN UP, DO * DIAGNOSE TWICE 
:D0 A DIAGNOSE COMMAND 


sRESTORE PORT INDEX 
:SPIN UP THE DRIVE 


seb Se DO A RECAL 


GO BACK TO DRIVE R 





UDAT2 ote ie gy 


NORIDIR A ot ot ot ot os 
UNIS SALAARUVSSc@vourwe ™ 


ss 


WAWAWANWAAAWS 
ee ed ad ed ed aed od aed ed 


sssssssssss 
BORN SIBTALA=SSE 


WN 
—— 


SSSSSsssss 
WWIWNWNAWA WW 
etme mek dd ed meh wed ts 

AISSFAUNLS 


wets X04.01 13-APR=82 18:06:42 PAGE 37 


177777 =(001151 
001545 001462 
001454 


001151 


7 000374 


000176 


7 000175 


001153 
000374 


001153 


«SBTTL TEST 2 SPECIFIC ROUTINES 
~SBTTL DIAGNOSE COMMAND PROCESSING 
INPUT  IN.02 HAS REGION ID 


OUTPUT OUT.RQ IS SET A FOR T2CMD 
IF cee’ R 


LSE, R = 0 
IAGDR: 
MOV #177777 ,SENDHR 3SET SENDHR NONZERO FOR DIAGNOSE COMMAND 
MOV IN.02,DIA+1 set UP MEMORY REGION ID 
MOV #CR.DIA,R3 R3->DIAGNOSE PACKET 
MOV $D1I,R2 :R2 = = PORT 
CALL TALKER SEND COMMAND AND RECEIVE RESFONSE FROM DRIVE 
CLR ot 
TST s$ee IF ERROR OCCURRED 
BEQ rs} “ERRORS, BRANCH 
ROL R3 SHIFT HIGH BIT INTO CARRY BIT 
C sIF CARRY CLEAR (RECEIVE ERROR) BRANCH 


BC 13 
y *** REPORT TRANSMISSION ERROR 
ERRHRD MS2017 
CALL RERROR _; ERROR # 2017. 
.WORD ERHARD+ERRN 
at a .WORD <PRMS*10000>+MS2017 
; #® REPORT RECEPTION ERROR 
is: CALL P 
ERRHRD MS2018,R0,R3 
MOV R3,-(SP) 
CALL RERROR — ;ERROR # 2018. 
D+ERRN 
.WORD <PRMS*10000>+MS2018 


BR 10$ 
jg'** CHECK RESPONSE OP-CODE FROM DRIVE 


CMP #DIA.EN,RO :CHECK RESPONSE CODE 

BEQ 31F EQUAL, BRANCH 

cn #COMPLT,RO MAS IT COMPLETED? 

CMP MUNSSUC RO IF NOT CORRECT RESPONSE, UNSSUC? 
BNE eh UNRECOGNIZED RESPONSE 
CALL  STOSTA $ CHECK "ert 


ERRHRD MS2019 
CALL_RERROR sERROR # 2019. 
eWORD ERHARD+ERRN 
-WORD <PRMS*10000>+MS2019 


BR 10$ 
6$: ERRHRD MS2020,4D1A.EN,RO 


(REG. SERROR # 2020. 





SEQ 111 


> + 7 ond 


A ST eS es ess -shse  se 









UDAT2 ALY: RESIDENT DMACR X04.01 13-APR=-82 18:06:42 PAGE 37-1 
DIAGNOSE COMMAND PROCESSING 


003164 103744 


003165 021336 
41 003166 Hint sf 000001 10S: MOV #1,R2 
42 003170 RETURN 


a = ne te; 


-WORD ERHARD+ERRN 
«WORD <PRMS*10000>+MS2020 


SEQ 112 





sesesesess 
SaF 


3213 


ee ed ed ed at od td wd 


sssssessess 8 
peeereeee 


NMronrrrorer 


29 


=} 
Be 
~N 


ss 


001427 
001431 


001430 


501 
502 


oe 


DO 
MSG1 


UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 38 
IAGNOSE/READ MEMORY TO SEE IF ERROR OCCURRED 


NDH 
ST, RDM+1 
RDM+2 

#8. ,ROM+3 
RONEN 

00. DC4 


mout 05. R4 


CALL C 

3 *** DATA NOW IN OUT. MRO 
MOV OUT.06,R 

s eee oes IF DATA_IS AVAILABLE FOR INFORMAT I 
BIT #DATAVL ,R3 


oF gneve 
GETBCN 
—— 
D0. DC4 


Sout b9.n4 


CONM 
FERRIYP, R3 
- a 


T ANE 
ERRHRD mses 


DO.DC4 
#DATAVL RS 
DC4 





SEQ 113 


~SBTTL DIAGNOSE/READ MEMORY TO SEE IF ERRCR OCCURRED 
a MEMORY SDI COMMAND 


sREGION ID SET 


TREAD THE MEMORY 
OK 


TALL 
SIF NOT, DO DRIVE CLEAR/TRY NEXT DRIVE 
:RESTOR ORE PORT IND ICA 
T CONVERT MEMORY 
R3 HAD ET & DA FLAGS 
ON 


1S DATA AVAILABLE? | 
CONTINUE WITH THIS DRIVE | 

PREVIOUS BYTE C 

IGET New BYTE COUNT. 

READ MEMORY XFC 


sALL 
HY estont pon DO a PS | ae DROP DRIVE 


: Ra => ours BUFF FERS 
CONVERT MEMORY 

sWAS ET SET? WITH NO ERROR NUMBER??? 
:1F NOT, CONTINUE 


~WORD ERHARD+ERRN 

WORD <PRMS*10000>+MS2021 
360 DO DRIVE CLEAR 
4 Y DATA AVAILABLE? 
zIF NOT, DO DRIVE CLEAR 


MOV LUNIT,OUT.01 
MOV #MSG1 OUT .02 


MOV RO,-(SP) 
MOV R1,-(SP) 
MOV pot RO 
CALL 
MOV (SP)+,R1 


} 
| 
! 
| 
CALL RERROR —_ ;ERROR # 2021. 
| 
| 
| 
} 
| 
| 
MOV (SP)+,RO 


Yan Y aml 






SEQ 114 
UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 39 
DIAGNOSE/DO A DRIVE CLEAR 





1 .SBTTL DIAGNOSE/DO A DRIVE CLEAR 
2 ; #e® DO DRIVE CLEAR, GET STATUS AND CHECK IF oR att IS SET 
003263 104204 000004 bO0.DC4: MOV #4 ,RE 7R4 = # MAXIMUM DRIVE oft EAR TRIES 
4 003265 104302 000741 DO.DCL: MOV Spi R2 {RESTORE PORT INDICAT 
5 003267 024211 CALL CLRORV CALL DRIVE CLEAR 
6 003270 115003 TST R TERROR? 
7 003271 013274 BEQ 1$ iT NOT, CONTINUE : 
8 003272 117404 DEC ACHED RAKIL # OF DRV CLR TRIES? | 
9 003273 053265 BNE DO.DCL a Mor AGAIN 
10 003274 024131 1$: CALL GTSTAT CALL Gér’ STATUS | 
11 003279 115003 TST R3 ? 
1g 003276 013301 BEQ 23 ai RNOT ONT INUE 
13 003277 117404 DEC RG REACHED MAX IAM # OF DRV CLR TRIES? 
14 003300 053265 BNE DO.DCL F NOT. ie Y AGAIN | 
15 003301 104307 000745 2s: MOV $T+1, RO SGET STATUS WORD | 
16 003303 102207 000040 BIT #ST.DR,RO :0R SET ? | 
17 003305 013603 BEQ EXIT | 
18 ; tee IF DR BIT IS SET, READ 6 BYTES FROM REGION ID | 
19 003306 104200 177775 001427 b0.DIxX: MOV #FFED RDM+1 D GREGION. 1D) STORED IN READ MEM PACKET 
20 003311 114000 001430 CLR RDM+2- : OFFSET = 0 
21 003313 104200 000006 001431 MOV #6, RDM+3 'BYTE COUNT = 6 
22 003316 023633 CALL RDMEM [READ MEMORY 
23 003317 11500 TST R2 [WAS THERE AN ERROR? 
24 003320 01332 BEQ 3$ TIF THERE WAS NOT, CONTINUE | 
25 003321 00360 BR D0.D10 3D0 A DRIVE CLEAR 
26 003322 104302 000741 38: MOV S$D1,R2 RESTORE PORT INDICATOR 
27 003324 104204 000744 MOV #ST_RG 7R4 => ST | 
28 003326 024316 CALL SCONVERT MEMORY | 
“3 zy *** GET REGION ID AND PROGRAM NAME IF ANY | 
003327 104300 000744 000743 MOV ST, SAVRID ZSAVE REGION ID | 
1 003332 115000 000745 TST S141 [1S CHARACTER ENCODED? 
003334 053340 BNE DO.D11 TIF SO, GO GET FILE FROM HOST 
3 003335 115000 000746 TST ST4+2 SIF 1ST WORD 0, IS THE SECOND? 
003337 013521 BEQ DO.D13 TIF SO, GO DIAGNOSE REGION 


“nc 


SEQ 115 


UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 40 
DIAGNOSE/GET PROGRAM NAME SPECIFIED BY DRIVE AND DOWNLINE LOAD 
1 .SBTTL DIAGNOSE/GET PROGRAM NAME SPECIFIED BY DRIVE AND DOWNLINE LOAD 
: ceed Ay GET THE PROGRAM WHICH NAME WAS SPECIFIED BY THE DRIVE 
4 003349 104300 000743 001213 MOV SAVRID,WRM+1 gSTORE REGION ID IN THE WRITE PACKET 
5 00334 104203 001501 MOV #OUT.01,R3 :R3 <> INPUT DATA 
6 003345 104307 001152 MOV LUNIT,RO 
7 003347 100237 MOV RO, (R34 :SET UNIT NUMBER 
8 003350 114007 CLR R 
9 003351 100237 MOV RO, (R3)¢ :CLEAR VALUE 
10 003352 104307 000744 MOV STR 
11 003354 100837 MOV RO, (R3)+ ZSAVE REGION ID 
12 003355 104307 000745 MOV ST#+1,RO | 
13 003357 100237 MOV RO, (R3)+ 31ST HALF NAME SAVED 
14 003360 104307 000746 MOV $T42,R0 
15 00336e 100237 MOV RO, (R3)¢ Z2ND HALF NAME SA | 
16 003363 104207 060001 HOV #TODLL,RO SET ROL = TEST 2 SOUNL INE LOAD 
17 003365 024643 CAL HOSTRO 
18 : tee IF HERE, DIDN'T REINIT UDA TO GET DAT 
19 003366 104205 001544 MOV #IN.01, te -> INPUT BUFFER 
20 ; *** DOWN LINE LOAD PROGRAM 
21 003370 114000 001214 00.D12: CLR WRM+2 ICLEAR OFFSET 
22 003372 104157 MOV (R5) RO :1$ THE PROGRAM THERE? 
23 003373 117407 DEC RO 
24 003374 053530 BNE D0.D18 z1F NOT, REPORT ERROR 
5 ; #e® GET THE PROGRAM FROM THE HOST 
26 003375 104657 000004 is: MOV 4(R5) RO ZUNIBUS ADDRESS PA 
27 003377 104651 000005 MOV 5(R5).R1 [UNIBUS ADDRESS EA 
28 003401 104652 000006 MOV 6(R5) -R2 ZBYTE COUNT | 
29 003403 053407 BNE 2$ Z1F BYTE COUNT IS NOT ZERO, CONTINUE 
30 003404 ERRHRD MS2022 TELSE, REPORT THE ERROR 
003404 025016 CALL RERROR ZERROR # 2022. 
003405 103746 .WORD ERHARD+ERRN 
003406 001511 WORD <PRMS*10000>+mS2022 
3! 003407 104203 000744 2s: MOV #ST.R3 POINTER TO INPUT BUFFER 
2 003411 106202 000200 CMP #STSIZE RZ :R2 > MAX BUFFER SIZE? ) 
33 003413 033416 BPL 3$ TIF NOT. Tl 
34 003414 104202 000200 MOV #STSIZE, R2 [SET MAX BUFFER SIZE IN R2 
35 003416 13 3$: XFC [D0 A UNIBUS READ 
36 3 tee SET T up SDI COMMAND PACKET s | 
37 003417 104020 001206 R2,CR.WRM+1 :SET BYTE COUNT IN URM PACKET | 
38 003421 105200 000006 001206 ADD #6.CR.WRM+1 ZADD TO COUNT TO INCLUDE PACKET LENGTH(1), 
39 3 SDI OPCODE(1), REGION ID(2), AND OFFSET(2) 
40 003424 104650 000003 001213 MOV 3(R5) ,WRM+1 :SET REGION ID 
41 003427 104020 001215 MOV R2,WRM+3 3SET BYTE COUNT IN BUFFER 
42 003431 104303 000744 MOV STARS [1ST DATA WORD IN R3 
43 003433 110703 SWAB [1ST DATA WORD IN UPPER BYTE 
003434 103203 000377 BIC } OBYTE,R3 [CLEAR LOW BY 
45 003436 101030 001215 BIS WRM+$ 3SET DATA IN 1ST BUFFER WORD OF WRT MEM PACKET 
46 003440 104020 001153 MOY R - SAVREG SA VE BY te oun 
48 00344 105208 000377 000744 BIC sLOBYTE, .$T SCLEAR LOW BYTE OF 1ST DATA WORD OF PROGRAM 
49 003446 101020 000744 BIS SREPLACE I BY THE BYTE COUNT OF THE REST 
50 003450 104204 001216 MOV #URM+4 RG [R4 => OUT BUFFER 
51 003452 024316 CALL so€ CONVERT. MEMORY 
52 z *** SEND TO THE DRIVE 
53 003453 104302 000741 MOV $D1,R2 ZRESTORE PORT INDICATOR 
54 003455 023721 CALL WRTMEM [SEND TO DRIVE 
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UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 40-1 
DIAGNOSE/GET PROGRAM NAME 


SPECIFIED BY DRIVE AND DOWNLINE LOAD 


000743 


SEQ 116 


ALL OK? 
SIF NOT, GO CLEAR DRIVE 
[R2 = BYTE COUNT 

TADJUST OFFSET 

{DECREMENT TOTAL BYTE COUNT/DONE? 

TIF NEG, EXIT 

ZELSE, ADJUST UNIBUS ADDRESS TO READ FROM 

SIS PA ADDRESS LESS THAN BUFFER SIZE? 

TIF IT IS NOT, CONTINUE 

ELSE, INCREMENT EA ADDRESS (CROSSED 0 BOUNDARY) 
;READ IN NEXT BUFFER 

:REINIT OFFSET 

SREINIT BYTE COUNT OF INSTRUCTION 

SET UP REGION ID 

SEND DIAGNOSE COMMAND 


Pig ssa + +7 THE REGION ID TO sates TO. GO DIAGNOSE I 


TST 
BNE DO.DC4 
MOV SAVREG. R2 
ADD R2,WRM+2 
MOV etRS) RO 
SUB R2,RO 
MOV RO, *6(R5) 
BEQ 5$° 
BMI 55 
MOV 4(R5), RO 
ADD R2,RO 
MOV RO. 4(R5) 
CMP R2.R 
BMI 1$ 
MOV mee 
INC 
MOV RO,5(R5) 
4$: BR 1$ 
; eee SET UP DIAGNOSE COMMAND 
S$: CLR 
001206 MOV #7,CR.WRM+1 
001545 MOV 3(R5), iN. 02 
BR DIAGDR 
001545 bo. DI3: SAVRID, IN.02 
BR. DIAGDR 





ORE REGION ID FOR DIAGNOSE COMMAND 
760 DIAGNOSE 


Qac 






SEQ 11 
UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 41 
DIAGNOSE/REPORT ERROR == NO DOWNLINE LOAD PROGRAM 











1 .SBTTL DIAGNOSE/REPORT ERROR <= NO DOWNLINE LOAD PROGRAM 

2 * NO DOWN LINE LOAD PROGRAM AFTER REIN! TED UDA 

3 003525 104650 000001 000740 bo. DI?: MOV Ter) UNITNB :SET UP LOGICAL UNIT NUMBER 

5 : tee NO DOWN LINE LOAD PROGRAM, REPORT ERROR 

6 003530 104654 000007 60.018: 7(R5) RG 7R4 = 1ST WORD OF PROGRAM NAME 

7 003532 024544 CALL DIVv50° :DIVIDE BY 50 AND GET 3RD CHARACTER 

8 003533 110707 SWAB ~—s- RO ‘PUT IN PROPER BYTE 

9 003534 104070 001146 MOV RO,NAM.2 ‘SET 3RD CHARACTER 

10 003536 024544 CALL  D1V50 ‘GET 2ND CHARACTER 

11 003537 104070 001147 MOV RO, NAM. 3 3SET 2ND CHARACTER 

12 003541 104047 MOV : RO = RADSO OF 1ST CHARACTER 

13 003542 024560 CALL —- FNDASC GET ASCII EQUIVALENT 

14 003543 110707 SWAB sO [PUT IN PROPER BYTE 

15 003544 101070 001147 BIS RO,NAM.3 [SET 1ST CHARACTER 

16 003546 104654 000010 MOV 10(R5) RG 7R4 = 2ND WORD OF PROGRAM NAME 

17 003550 024544 CALL DIVSO :GET 6TH CHARACTER 

18 003551 104070 001145 MOV RO, NAM. 1 ‘SET 6TH CHARACTER 

19 003553 024544 CALL  D1V50 ‘GET STH CHARACTER 

20 003554 110707 SWAB RR ‘PUT IN PROPER BYTE 

21 003555 101070 001145 BIS RO,NAM. 1 ‘SET 5TH CHARACT 

22 003557 104047 MOV RG. :RO = RADSO OF 4TH CHARACTER 

23 003560 024560 CALL ENDASC 3FIND ASCII EQUIVALENT 

24 003561 101070 001146 BIS NAM.2 4TH CHARACTER 

25 003563 ERRHRD ms3003, NAM.1,NAM.2,NAM.3° :REPORT ERROR 
003563 104010 001153 MOV R1,SAVREG 
003565 104301 001147 MOV NAM. 3, 
003567 100461 MOV R1,-(SP) 
003570 104301 001146 MOV NAM.2,R1 
003572 100461 MOV R1,-(SP) 
003573 104301 001145 MOV NAM.7,R1 





001153 REG,R1 

ERROR ERROR # 2023. 
<WORD ERHARD+ERRN 
-WORD <PRMS*10000>+mS2023 


ac 


edt 
Bo BRORSseeSSs 
=f SS=A=58 


3 


00 
00 
00 
00 
00 
00 
00 


= oe 
Se RO 
WW for 

—_ «A 
Sef 

Sx S 





UDAT2 DISK RESIDENT DMACR X04.01 13-APR=-82 18:06:42 PAGE 42 
DIAGNOSE/REPORT ERROR == NO DOWNLINE LOAD PROGRAM 


4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
& 
5 
6 
7 
8 


000741 
001152 
001144 
001502 
000003 
000744 


00150 
177777 





.SBTTL si Nd UP RESPONSE TO HOST AND EXIT 

;RESTORE PORT INDICATOR 

3SA ve UNIT NUMBER 

iT Sa He ” 0? 

:S7 Up PROPER OP=CODE VALUE 
a UP REQUEST 


; eee SET UP RESPONSE P 
: MOV 


our. 
#177777 ,DIAG.1 ZMAKE SURE DIAG.1 HAS NONE ZERO VALUE IN IT 


3 FOR NEXT TIME THROUGH 


C 10 


SEQ 119 
UDAT2 DISK RESIDENT DMACR X04.01 13-APR=82 18:06:42 PAGE 43 
AD MEMORY SUBROUTINE 
1 .SBTTL READ MEMORY SUBROUTINE 
se 
5 ; ROUTINE NAME: ROMEM | 
5 : DESCRIPTION: 
é ; THIS ROUTINE DOES THE XFC READ MEMORY (FROM A SPECIFIED REGION 
7 : D OFFSET) OF DATA FROM THE DRIVE. THIS ROUTINE CALLS THE | 
8 : SEND AND RCV CTALKER) ROUTINE AND JUDGES IF THE SDI C 
, > : WAS PROPERLY SENT | 
11 : INPUT: ALL PARAMETERS FOR THE READ MEMORY COMMAND 
12 MUST BE SET. THAT MEANS REGION ID, THE OFFSET | 
13 : AND THE BYTE COUNT MUST BE GIVEN THE APPRORIATE VALUES 
14 : AND STORED IN THE RDM PACKET 
16 ; OUTPUT: R2 = 0 MEANS ALL IS Ok | 
17 : R2 NOT = 0, READ FAILED (EITHER SEND OR RECIEVE OF THE COMMAND) 
18 : ST HAS THE READ D 
Pe | 
20 003633 RDMEM: 
21 003633 PUSH  <RO,R1,R3> ‘ _ $SAVE THESE REGISTERS 
003633 100467 MOV RO,=(SP) 
003634 100461 MOV R1.=(SP) 
003635 100463 i MOV R3.=(SP) 
22 003636 104203 001421 MOV #CR.ROM,R3 ERB => RDM PACKET 
23 003640 104302 000741 MOV SD1,R2 :R2 = PORT 
24 003642 024706 CALL ‘TALKER [SEND COMMAND AND RECEIVE RESPONSE 
25 003643 115003 TST R3 ERRORS? 
26 003644 013662 BEQ 2$ SIF NONE SO FAR, CONTINUE 
27 003645 110203 ROL R3 TERROR ON | 
28 003646 043653 BCC 1$ TIF CARRY CLEAR (RECEIVE ERROR) BRANCH 
59 y *#* REPORT TRANSMISSION ERROR | 
30 003647 ERRHRD MS2024 
003647 025016 CALL RERROR sERROR # 2024. 
003650 103750 .WORD ERHARD+ERRN 
003651 001621 -WORD <PRMS*10000>+mS2024 
31 003652 003713 BR 4$ ZERROR EXIT 
32 ; ##* REPORT RECEPTION ERROR 
33 003653 024504 iS: CALL  TYPERR 7GO CHECK TYPE OF ERROR 
34 003654 ERRHRD mso0e%, RO,R3 
003654 100463 MOV R3,-(SP) 
iret boscee mov RO. (SP) ERROR # 2025 | 
O03657 bo1683 fen es | 
. 
5 003661 003713 BR 4$ TERROR EXIT 
; #e* CHECK RESPONSE OP=CODE FROM DRIVE 
37 003662 106207 000162 2s: CMP ss #RDM.EN, RO CHECK RESPONSE 
38 003664 013711 BEG 3$ SIF IT MATCHES, OK, EXIT 
39 003665 106207 000175 CMP MUNSSUC RO SIF NOT CORRECT Re SPONSE UNSSUC? 
40 003667 053675 BNE 6S E1F NOT, UNRECOGNIZED RESPONSE 
41 003670 024265 CALL‘ STOSTA 3 CHECK STATUS 
42 003671 ERRHRD MS2026 : 
003671 02501 CALL RERROR =; ERROR # 2026. 
posers Oot om a 
® ¢ 
43 003674 00371 BR 4$ 





a a a nn en nn + + + — -y 
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SEQ 120 

+ hy DISK Santor DMACR X04.01 13-APR=-82 18:06:42 PAGE 43-1 
AD MEMORY SUBROUTINE 


44 003675 6$: ERRHRD M™S2027,#RDM.EN,RO 
003675 100467 MOV RO,=(SP) 
003676 104010 001153 MOV R1.SAVREG 
003700 104201 000162 MOV #ROM.EN,R1 
003702 100461 MOV R1,<(SP 
003703 104301 001153 MOV SAVREG,R1 
003705 025016 CALL RERROR — ;ERROR # 2027. 
3706 10375 .WORD ERHARD+ERRN 
3707 021737 ;WORD <PRMS*10000>+MS2027 
45 003710 003713 BR 4$ ZERROR EXIT 
46 003711 114008 3$: CLR R2 ZALL OK, EXIT | 
47 003712 00371 BR 5 ; 
48 003713 104202 000001 4$: MOV #1,R2 TERROR OCCURED, SET R2 
49 003715 5$: POP = <R3$,R1,RO> | 
003715 104263 MOV (SP)+,R3 
003716 104261 MOV (SP)+.R1 
003717 104267 MOV (SP)+.RO 


50 003720 000000 RETURN 








mn 
J 


SOBNARUNR WN —OOMNOURWR— 


en en eee ee 
sss 
Ww 


05 
024265 
025016 


000176 
000175 


001153 
000176 


001153 
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ISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 44 
MORY SUBROUTINE 


SEQ 121 

.SBTTL WRITE MEMORY SUBROUTINE 
: WRTMEM 
: DESCRIPTI 
: THIS ROUTINE DOES THE XFC WRITE MEMORY TO A SPECIFIED 
: REGION ID AND OFFSET WITH A BYTE COUNT AND 
: THIS ROUTINE CALLS THE SEND AND RCV (TALKER) ROUTINE 
: AND JUDGES IF THE SDI COMMAND WAS PROPERLY SENT. 
: INPUT: ALL PARAMETERS FOR THE WRITE MEMORY COMMAND MUST BE SET. 
: REGION ID, OFFSET, BYTE COUNT AND THE DATA MUST BE STORED 
: IN THE PACKET. 
: OUTPUT: R2 = 0 MEANS WRITE MEMORY COMMAND WAS PROCESSED SUCCESSFULLY 
: R2 NOT = 0, WRITE FAILED. (EITHER SEND OR RECEIVE OF THE COMMAND) 
WRTMEM: MOV #CR.WRM,R3 :R3->MEM WRITE PACKET 

V SD1,R2 3R2 = PORT 
CALL TALKER ZSEND COMMAND AND RECEIVE RESPONSE FROM DRIVE 
; OTST R3 SSEE IF ERROR OCCURRED 
BEQ 2$ :1F NO ERRORS, BRANCH 
ROL R3 [SHIFT HIGH BIT INTO CARRY BIT 
¢ ZIF CARRY CLEAR (RECEIVE ERROR) BRANCH 


BC 1$ 
3 *** REPORT TRANSMISSION ERROR 
ERRHRD MS2028 
CALL RERROR sERROR # 2028. 
-WORD ERHARD+ERRN 
«WORD <PRMS*10000>+MS2028 


BR &$ 
; #** REPORT RECEPTION ERROR 


is: CALL TYPERR 3FIND OUT WHAT TYPE Or ERROR OCCURED 
ERRHRD MS2029,R0,R3 
mae R3,~(SP) 


ER 
= i <WORD <PRMS*10000>+mS2029 
; *#* SET UP RESPONSE PACKET 


bs: CMP #COMPLT,RO :DID IT COMPLETE 
BEQ 3$ Z1F SO CONTINUE 
CMP MUNSSUC RO iI NOT CORRECT RESPONSE, UNSSUC? 
BNE 6$ F NOT, UNRECOGNIZED RESPONSE 
CALL = STOSTA ‘CHECK STATUS 
ERRHRD MS2030 : 


CALL RERROR aaa # 2030. 
eWORD ERHARD+E 
- WORD EPRMS* 10000>+"S2030 


BR 4$ 
6$: ERRHRD MS2031,#COMPLT,RO 


MOV RO,-(SP) 
MOV R1,SAVREG 
MOV #COMPLT .R1 


RERROR sERROR # 2031. 





SEQ 122 
UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 44-1 
WRITE MEMORY SUBROUTINE 
003771 103757 -WORD ERHARD+ERRN 
Rae ocgher «WORD <PRMS*10000>+MS2031 
41 003773 00 BR 4$ sERROR EXIT 
42 003774 11400 3$: CLR Re sALL OK, EXIT 
43 003775 004000 R $ s 
44 003776 104202 000001 4$: MOV #1,R2 sERROR OCCURED, SET R2 
45 004000 000000 5$: RETURN 




















S 


$03 


025016 
103760 


054035 
024265 


02501 


001464 


000176 
000175 


001153 
000176 


001153 


000001 


50$: 


60$: 


65$: 


70$: 
75$: 


DENT DMACR X04.01 13-APR-82 18:06:42 PAGE 45 
COMMAND 


SEQ 123 


.SBTTL RUN (OR SPIN UP) COMMAND 
yISSUE RUN COMMAND AND CHECK THAT IT PERFORMS PROPERLY 
MOV #CR.RUN,R3 :R3 => COMMAND 
CALL ‘TALKER ‘SEND TO DRIVE 
TST R3 TALL OK? 
BEQ 60$ i1F SO, CHECK RESPONCE CODE 
BPL 50$ IS MSB SET2/IF NOT, RECEIVE ERROR 
ERRHRD S2032 SREPORT § SEND ERR 
OR aL RERROR _;ERROR # 2032. 
<WORD ERHARD+ERRN 
708 WORD <PRMS*10000>+MS2032 
CALL‘ TYPERR 
ERRHRD MS2033,R0,R3 ZREPORT RECEIVE ERROR 
MOV R3,-(SP) 
MOV RO,-(SP 
CALL RERROR — ;ERROR # 2033. 
.WORD ERHARD+ERRN 
ae oa ;WORD <PRMS*10000>+MS2033 
CMP #COMPLT,RO SCHECK RESPONSE CODE 
BEQ 75$ sIF CONTINUE 
CMP #UNSSUC RO iI NOT CORRECT RESPONSE, UNSSUC? 
BNE 65$ F NOT, UNRECOGNIZED RESPONSE 
CALL  STOSTA iCHECK STATUS 
ERRHRD MS2034 ; 
CALL RERROR _; ERROR # 2034. 
.WORD ERHARD+ERRN 
a a ;WORD <PRMS*10000>+MS2034 
ERRHRD MS2035,4COMPLT,RO z1F NOT, REPORT ERROR 
V RO,<-(SP) 
MOV R1.SAVREG 
V #COMPLT 
V R1,-(SP5 
MOV SAVREG,R1 
CALL RERROR — ;ERROR # 2035. 
-WORD D ERWARD+ERRN Mak 
MOV a ;P? zR2 1S NOT ZERO MEANING ERROR 
R2 ;R2 1S ZERO, NOT ERROR 


80$: 


CLR 
RETURN 


H 10 









UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 46 
RECALIBRATE COMMAND 


1 .SBTTL RECALIBRATE COMMAND 
: ISSUE RECALIBRATE COMMAND AND CHECK THAT IT PERFORMS PROPERLY 
4 004055 104203 001472 RECAL: MOV #CR.INR,R3 :R3 => COMMAND 
5 004057 024706 CALL ‘TALKER :SEND TO DRIVE 
6 004060 11500 TST R3 TALL OK? 
7 004061 014076 BEQ 90$ SIF SO, CHECK RESPONCE CODE 
B 004 034067 BPL 80$ SELSE, IS MSB SET?/IF NOT, RECEIVE ERROR 
9 00406. ERRHRD MS2036 SREPORT SEND ERROR 
004063 025016 CALL RERROR — ;ERROR # 2036. 
004064 103764 .WORD ERHARD+ERRN 
004065 002424 WORD <PRMS*10000>+MS2036 
10 004066 004124 100$ : 
11 004067 024504 80$: CALL _—«s*TYPERR 
12 004070 ERRHRD MS2037,RO,R3 :REPORT RECEIVE ERROR 
004070 100463 Vv R3, ~($P) 
004071 100467 mov RO.- 
004072 025016 CALL RERROR. ZERROR # 2037. 
004073 103765 <WORD ERHARD+ERRN 
004074 022456 <WORD <PRMS*10000>+MS2037 
13 004075 004124 BR 100$ 
14 004076 07 000176 90$: CMP #COMPLT,RO 3 CHECK RESPONSE CODE 
15 004100 014127 BEQ 1 F TINUE 
16 004101 106207 000175 CMP #UNSSUC RO ZF NOT CORRECT RESPONSE, UNSSUC? 
17 004103 054111 BNE 95$ Z1F NOT, UNRECOGNIZED RESPONSE 
18 004104 024265 CALL STOSTA : CHECK STATUS 
19 004105 ERRHRD ™S2038 
004105 025016 CALL RERROR _ ;ERROR # 2038. 
004106 103766 .WORD ERHARD+ERRN 
004107 002514 .WORD <PRMS*10000>+MS2038 
20 004110 004124 BR 100$ 
21 004111 95$:  ERRHRD MS2039,#COMPLT,RO Z1f NOT, REPORT ERROR 
004111 100467 MOV RO,-(SP) 
004112 104010 001153 MOV R1.SAVREG 
004114 104201 000176 MOV #COMPLT,R1 
0046116 100461 MOV R1,-(SP5 
004117 104301 001153 MOV SAVREG,R1 
004121 02501 CALL RERROR ERROR # 2039. 
$02158 bo3sey NORD pac 19000> MS2039 
a s + 
22 004124 104202 000001 100$: MOV #1,R2 * 3 
23 004126 004130 BR 116$ 
34 004127 114002 105$: CLR R2 
5 004130 000000 110$: RETURN 





SEQ 124 


SEQ 125 


UDAT2 DISK RESIDENT DMACR X04.01 13-APR=-82 18:06:42 PAGE 47 
GET STATUS SUBROUTINE 
| .SBTTL GET STATUS SUBROUTINE 
? 3 GET STATUS 
5 2 OUTPUT R3=0 IF O 
é ; R3 = 1 IF ER ROR 
z : R& USED AS A DECREMENT COUNTER | 
9 004131 114004 GTSTAT: CLR RG 
10 004132 104203 001170 3$: MOV #CR.GST,R3 :POINT TO GET STATUS COMMAND | 
11 004134 024706 CALL _—* TALKER : SEND AND RECEIVE COMMAND 
le 004135 115003 TST : SEE IF ERROR OCCURED 
13 006136 01415 BEQ 2$ : IF NOT, BRANCH 
14 004137 11020 ROL R3 : SEE IF RECEIVE ERROR | 
15 004140 044147 BCC 1$ : IF $0, BRANCH | 
16 004141 117404 DEC R4 : IF SEND ERROR, COUNTER DONE? 
17 004 142 054132 BNE 3$ : IF NOT, TRY AGAIN 
18 00414 ERRHRD S2040 | 
004143 025016 CALL RERROR ZERROR # 2040. 
004144 103770 .WORD ERHARD+ERR 
004145 002631 <WORD <PRMS*10000>+MS2040 
19 004146 ER.END 
20 004147 024504 1$: CALL _—s*‘TYPERR 
21 004150 ERRHRD MS2041,R0,R3 
004150 100463 MOV R3,-(SP) 
004151 100467 MOV RO,-(SP 
004152 025016 CALL RERROR =; ERROR # 2041. 
004153 103771 .WORD ERHARD+ERRN 
004154 022663 .WORD <PRMS*10000>+MS2041 
22 004155 004204 BR ER.END 
23 ; #e® LOOK AT RESPONSE OP-CODE FROM DRIVE == SHOULD oft DATA RESPONSE 
24 004156 106207 000366 5$: CMP ast SRES,RO 3CHECK OP-COD 
25 004160 014207 BEQ Ok. END [BRANCH IF A MATCH 
36 004161 106207 000175 CMP #UNSSUC RO SIF NOT CORRECT RESPONSE, UNSSUC? 
004163 054171 BNE 4$ z1F NOT, UNRECOGNIZED RESPONSE 
28 004164 024265 CALL = STOSTA 
29 004165 ERRHRD MS2042 : 
004165 02501 CALL RERROR — ; ERROR # 2042. 
004166 10377, .WORD ERHARD+ERR 
004167 002721 .WORD <PRMS*10000>+mS2042 
30 004170 004204 BR ER. END 
31 004171 4$: ERRHRD MS2043,4STSRES,RO zWRONG RESPONSE FROM DRIVE 
004171 100467 MOV RO,-(SP) 
004172 104010 001153 MOV R1,SAVREG 
004174 104201 000366 MOV #STSRES.R1 
004176 100461 MOV R1,-(SP5 
004177 104301 001153 MOV SAVREG,R1 
004201 02501 CALL RERROR aigrrOR # 2043. 
004. 1 377 -WORD ERHARD® 
004 0 766 PRMS*1 600>+MS2043 
004 1 000001 ER.END: MOV #1,R3 7R3 = NONE ZERO value CHES DONE (ERROR) 
004. 004 19 BR EX. END TEXIT 
004207 114 OK.END: CLR R3 7R3 = 0 WHEN DONE (NO ERROR) 
5 004210 EX.END: RETURN 








wy 





NERO 22555 


PaRS 
St 


VREG,R1 
CALL wa eunacenie sERROR # 2047. 
< WORD <PRMS* 10000>4MS2047 


SEQ 126 
UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 48 \ 
CLEAR DRIVE SUBROUTINE ' 
1 .SBTTL CLEAR DRIVE SUBROUTINE 
5 : DRIVE CLEAR 
3 : OUTPUT R3 = = 0 0 IF Ok F OK. 
z : RG USED AS A DECREMENT COUNTER 
9 004211 004 CLRDRV: CLR R4 3 CLEAR DECEMENT COUNTER | 
10 004212 203 3$: MOV #CR.DRC,R3 + POINT TO DRIVE CLEAR COMMAND 
11 006214 CALL ‘TALKER : SEND AND RECEIVE COMMAND 
lg 004215 TST R3 : SEE IF ERROR OCCURED 
13 004216 BEQ 23 : IF NOT, BRANCH 
14 004217 ROL R3 : SEE IF “RECEIVE ERROR 
15 004220 BCC 13 : IF $0, 
16 004221 DEC RG + ON SEND ERROR, IS COUNTER DONE? 
17 dosed BNE 3$ : IF NOT, TRY AGAIN 
18 00422 ERRHRD MS2044 
004223 CALL RERROR aigrrOr # 2044. 
004224 <WORD ERHARD+E 
004225 “WORD EP RMS 10000>4HS2044 
19 004226 BR ER.END 
20 004 @ 18: CALL _—s*‘TYPERR 
21 004 ERRHRD M™S2045,R0,R3 | 
004230 MOV R3,-(SP) 
004231 MOV RO.=(SP) 
004 2 CALL RERROR _; ERROR # 2045. 
00423 <WORD ERHARD+ERRN 
004234 “WORD <PRMS*10000>+MS2045 
22 004235 ER.END 
2 - #ee cnc RESPONSE CODE 
24 004236 3s: #COMPL T,RO : SEE IF CORRECT RESPONSE CODE RECEIVED 
25 004240 He OK.END IF SUCCESSFUL, BRAN 
26 004241 CMP #UNSSUC RO t1F NOT CORRECT RESPONSE, UNSSUC? 
27 004243 BNE 4$ TIF NOT, UNRECOGNIZED RESPONSE 
28 004244 CALL = STOSTA [CHECK STATUS 
29 004245 ERRHRD MS2046 : 
004245 CALL RERROR — ; ERROR # 2046. 
004. <WORD ERHARD+ERRN | 
004 <WORD <PRMS*10000>+MS2046 
30 004 BR ER.END 
31 004 4$: ERRHRD MS2047,@COMPLT,RO :CLEAR ERROR FAILED 
004 
004. 
004 
004 
004 
004 
004 
004 
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SEQ 127 
UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 49 
STORE STATUS ROUTINE 


1 .SBTTL STORE STATUS ROUTINE 
é : STORE STATUS 
: MOVE WHAT DATA IS IN ST AND PUT IT IN OUTPUT BUFFER 

4 004265 STOSTA: 
5 004265 PUSH <RO,R1,R2> 

004265 100467 MOV RO,=(SP) 

004266 100461 MOV R1.=(SP) 

004267 10046¢ MOV R2,-(SP) | 
6 904270 10420 001505 MOV #OUT.05,RO :RO => OUTPUT BUFFER 
f 004 re 104 1 004252 Ov #STATO A [MOVE FORMAT ADDRESS IN OUTPUT BUFFER 
z i 10¢30¢ 000741 MOY SDI Re ; R2 PORT I INDICATOR | 
1 00430 105201 077270 BIC #"C100507, RI ic CLEAR UNUSED BITS 
13 00430 104301 000753 MOV ests? eR :R1 => INPUT BUFFER ." 
14 004305 104412 1$: MOV =(R1) .R2 + SAVE \ 
15 004306 100272 MOV R2, (RO)+ 
16 004307 10690) 000744 CMP #STRI DONE? | 
7 004311 054305 BNE 1s p= SIF NOT, CONTINUE 

004312 104262 segs — MOV (SP)+,R2 

004313 104261 MOV (SP)+.R1 

004314 104267 MOV (SP)+.RO 
19 004315 000000 RETURN 





1 
™ SEQ 128 
UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 50 
CONVERT MEMORY == SKEWED BY BYTE 
«SBTTL CONVERT MEMORY == SKEWED BY BYTE 
ROUTINE NAME: CONMEM 


DESCRIPTION: 


Sa a a nt 


MEMORY IS SENT TO THE DM ROUTINE STARTING ON THE ODD BYTE BOUNDARY. 
THIS ROUTINE SHIFTS THE DATA TO START ON THE EVEN BYTE BOUNDARY AND 
gy Tae WORD INTO A SPECIFIED BUFFER AREA. THE DATA IS STORED AS 
ST: DATA BYTE 0 BYTE COUNT 
DATA BYTE 2 DATA BYTE 1 
DATA BYTE 4 DATA BYTE 3 
eeeee DATA BYTE 5 


AFTER EXECUTION, THD DAT. 
OUT.XX: DATA BYT 


A IS STORED LIKE THIS: 
1 DATA BYTE 0 


DATA BYTE 3 
DATA BYTE 5 


DATA BYTE 6 


NOP WW SOONER WM OCDNOURWR= 


VAs Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Se Se Se Se 


2 INPUT: R4 => BUFFER AREA'S FIRST LOCATION 

2 ST HAS INPUT DATA 

2 OUTPUT: OUTPUT BUFFER HAS SHIFTED DATA 

2 a 

27 004316 ONMEM: PUSH <RO,R1,R2,R3,R4> 
004316 100467 MOV RO,=(SP) 
004317 100461 MOV R1.=(SP) 
004320 10046¢ MOV R2,-(SP) 
004321 10046 MOV R3.-(SP) 
004322 100464 MOV R4.-(SP) 

28 004323 104203 000744 MOV #ST,R3 :R3 => BYTE COUNT 

¢3 004325 104137 MOV (R35 ,RO :RO = BYTE C 
004326 103207 177400 BIC #HIBYTE RO SSTRIP OFF EXTRANEOUS 

31 004330 104231 1$: MOV R3)+,R1 7R1 = EVEN BYTE OF DATA 

32 004331 103201 000377 BIC #LOBYTE ,R1 SSTRIP OFF EXTRANEOUS 

33 004333 117407 DEC RO [DONE ? 

34 004334 014346 BEQ 2s TIF YES, GO STORE LAST BYTE 

35 004335 106152 MOV (R3) ,R2 :R2 = ODD BYTE 

36 004336 103202 177400 BIC #HIBYTE .R2 SSTRIP OFF EXTRANEOUS 

7 004340 101021 BIS R2,R1 3R1 HAS WHOLE WORD(BYTES REVERSED) 
004341 110701 S R1 :SWITCH BYTES 

39 004 342 100241 MOV R1, (R4)+ [STORE DATA 

40 004343 117407 DEC RO 3 DONE? 

41 004344 014350 BEO 3$ SIF SO, EXITCEVEN # OF BYTES) 

42 004345 004330 BR 1$ 3ELSE, CONT 

4 004 346 110701 2s: SWAB sé [00D # BYTES TO GET HERE 

44 006347 100141 MOV R1, (R4) [STORE LAST BYTE 

45 004350 3$: POP <Ré,R3,R2,R1,RO> 
004350 104264 MOV (SP)+,R4 
004351 104263 MOV (SP)+.R3 
00435¢ 104262 MOV (SP)+.R2 
004353 104261 MOV (SP)+.R1 
004354 104267 MOV (SP)+-RO 

46 004355 000000 RETURN 
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SEQ 129 
2 DISK RESIDENT DMACR X04.01 13-APR=82 18:06:42 PAGE 51 
BYTE COUNT 
} .SBTTL GET BYTE COUNT 
se* | 
3 : ROUTINE NAME:  GETBCN 
e j 
5 : Sei ie ten 
6 ; DATA IS READ BY THE DM PROGRAM AFTER THE DIAGNOSE COMMAND. 
? : WITHIN THIS DATA, THE DRIVE SPECIFIES IF MORE DATA NEEDS TO 
§ : BE READ. IF IT IS, THE BYTE COUNT MUST BE CONVERTED FROM | 
2 : ITS PRESENT FORM WHICH FOLLOWS THIS FORMAT: 
11 : BIT 15 BIT 0 | 
q 2 3 pow erer ees tee eee seme eef}eemen os ewessn soe secoee +t} | 
13 [OUT.08:! ASCII COUNT ! — BINARY COUNT ! 
16 : THE TOTAL BYTE COUNT 1S FOUND BY THIS FORMULA: | 
18 : OR THE TOTAL BYTE COUNT EQUALS THE seit COUNT PLUS FOUR 
19 : TIMES THE BINARY COUNT. THE BINARY COUNT IS T HE NUMBER OF 
20 ; 32 BIT BINARY VALUES INCLUDED IN THE REPORT. THE ASCII 
21 : COUNT IS THE NUMBER OF ASCII CHARACTERS INCLUDED IN THE 
32 : REPORT. 
2 : INPUT: OUT.08 = ASCII COUNT AND BINARY COUNT IN THE FORM STATED ABOVE 
36 : OUTPUT: RDM+3 HAS UPDATED BYTE COUNT. | 
28 i: 
29 004356 GETBCN: PUSH <RO,R1,R2,R3.R4,R5> 
004356 100467 MOV RO,=(SP) 
004357 100461 MOV R1,-(SP) 
004360 1004 MOV R2,-(SP) 
004361 10046 MOV R3,-(SP) 
004 362 100464 MOV R4.=(SP) 
004363 100465 MOV RS.=(SP) 
30 004364 114007 CLR RO 
31 004365 110207 ROL —-RO ZCLEAR CARRY | 
32 004366 104307 001510 MOV OUT.08,RO 3GET BYTE C 
33 004370 103207 177400 BIC #HIBYTE RO RO = BIHARY COUNT= # 32 BIT WORDS 
34 004372 110207 ROL RO 
35 004373 110207 ROL RO ?RO = BINARY COUNT IN BYTES 
36 004374 104301 001510 MOV OUT.08,R1 RI = BYTE 
37 004376 110701 SWAB ASCII COUNT IN LO BYTE | 
38 004377 103201 177400 BIC #HIBYTE RI in) = ASCII COUNT 
39 004401 104012 MOV R1,R2 SAVE IN R2 = ASCII COUNT | 
40 004402 105017 ADD R1.RO RO = TOTAL BYTE COUNT 
3 tee IS SIZE OF THE PACKET TOO BIG FOR bierér AVAILABL ABLE? 
42 004403 104201 000052 MOV a IS THE MAXIMUM # oF BYTES LEFT 
43 004405 106017 CMP R1,RO t1$ TOTAL BYTE COUNT > 42. 
004406 034473 BPL 31F NOT, GO STORE TOTAL Site COUNT 
3 **® SAVE OUT.RQ DATA 
46 004407 104204 001501 MOV #OUT.01,R4 zR4=> OUT.RQ DATA | 
47 004411 104205 001104 MOV #ST4+140.R5 *R5->SAVE AREA 
48 004413 104241 1$: MOV (R4)+,R1 + SAVE 
49 004414 100251 MOV R1,(R5)+ : 
50 004415 106204 001542 CMP #OUT. 34,R4 : DONE? 
51 004417 054413 BNE 1$ z1F NOT, CONTINUE 





erg en en | ee 


rr 





UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PA 1-1 
GET BYTE COUNT : ithe toons 


104300 001152 
00 005342 


00461 
0044 Moneee 060015 


204 001501 
205 001104 
251 


S04 001542 


63 004447 104207 000052 


72 004457 107020 001510 
004473 


5 004462 103200 177400 
004466 117400 001510 
000004 


82 004473 104070 001431 


001501 
001502 


001510 


MSSGE 


MSG2 


3 *** RESTORE OUT.RQ DATA 
M #0U 


2$: MOV 


#42. ,RO 
pote ADIUST ASCII COUNT IF TOO LARGE 
SUB R2,R 


CMP 


BMI $s” 
3 *** ASCII COUNT IS > 42. TO GET HERE 
ADD R3,R2 


SUB 
SWAB 
SUB 


#OUT. 34,R4 
2s 


RO,R3 


RO.R3 


e 


R2,0UT.08 


MOV LUNIT, ah 01 
MOV #MSG2,0UT.02 
a 
#MESSAG,RO 
HOSTRQ 


MOV (SP)+,R1 
MOV (SP)+,RO 


MOV 
CALL 


3R4=-> OUT.RQ DATA 
7R5->SAVE AREA 
RESTORE 


‘DONE? 
SIF NOT, CONTINUE 
:SAVE ASCII COUNT + 4*BINARY COUNT IN R3 


3R3 = BINARY COUNT 
21F BINARY COUNT ALONE > 42.? 
31F SO, TO CLEAR ASCII COUNT AND ADJUST BINARY COUNT! 


sR2 = TOTAL BYTE COUNT 

R2_= ASCII COUNT ADJUSTMENT 

PUT ASCII COUNT ADJUSTMENT IN UPPER BYTE 
+ 7 | ea FROM OUT.08 FOR HOST 


BR 
; #** ADJUST BINARY COUNT IF TOO LARGE/CLEAR OUT ASCII COUNT 
3$: BIC TE ,OUT.08 sCLEAR HI 


SUB 
4$: DEC 
SUB 


BPL 
Panay STORE IN READ MEMORY PACKET AND EXIT 
sSTORE IN READ MEMORY PACKET 


MOV 
POP 


RETURN 


#HIBY 
ROR 
ouT.08 
#4,R3 


RO, RDM+ 


M+3 
<R5,R4,R3,R2,R1,RO> 


BYTE OF OUT.08 
;R3 = BINARY COUNT ALONE 


| 

sELSE, MAXIMUM BYTE COUNT IS STORED. 
| | 

| 

| 

| 

SADJUST BINARY COUNT 


MOV (SP)+,R5 


MOV (SP)+-RO 
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—_— 
SEQ 1311 


| 






UDAT2 DISK RESIDENT DMACR x04. hy 13=APR=82 18:06:42 PAGE 52 
TYPE WHAT KIND OF RECEIVE ERROR 





| 
| 





j ~SBTTL TYPE WHAT KIND OF RECEIVE ERROR 
ée* 
; : TYPE ERROR 
5 : DESCR IPTION 
é ; THIS ROUTINE PRINTS A REPORT TO TELL WHAT KIND OF ERROR OCCURED IF A | 
i : RECEIVE XFC DID NOT SUCCESSFULLY COMPLETE. | 
M ; INPUT: R3 = ERROR VALUE FROM THE XFC SAVED IN TALKER ROUTINE SHIFTED LEFT ONCE | 
HY = 
11 ; IF = 2 1ST WORD WAS NOT A START FRAME | 
12 ; IF = 4 FRAMING ERROR ON SDI LEVEL 0 REA 
13 : IF = 10 CHECKSUM ERROR ON SDI LEVEL 0 READ 
6 ; IF = 20 BUFFER SIZE WAS SMALLER THAN RESPONSE | 
16 004504 110603 TYPERR: ROR R3 ZREADJUST R3 | 
17 004505 114001 CLR R1 
18 004506 110201 ROL R1 ZCLEAR CARRY 
19 004507 104031 MOV R3,R1 :STORE IN RI 
20 004510 110601 ROR R1 ERROR 
21 004511 044515 BCC 1$ iTF NOY, CONTINUE | 
22 004512 104207 003374 MOV #MSRO,RO : TIMEOUT 
23 004514 004543 BR 6$ EXIT 
24 006515 110601 1$: ROR R1 ERROR? 
25 004516 044522 BCC 2$ :1F NOT, CONTINUE 
26 004517 104207 003423 MOV #MSR1,RO 31ST Soko WAS NOT A START FRAME 
27 004521 004543 BR 63 EXIT 
28 004528 110601 2$: ROR R1 S ERROR? 
29 004523 044527 BCC 3$ :1F NOT, CONTINUE 
30 004524 104207 003453 MOV #MSR2,RO [FRAMING ERROR ON SDI LEVEL 0 READ 
31 004526 004543 BR 6% SEX11 | 
32 004527 110601 3$: ROR R1 ‘ERROR? 
33 004530 044534 BCC 4$ SIF NOT, CONTINUE | 
34 006531 104207 003514 MOV #MSR3,RO 3 CHECKSUM ERROR ON SDI LEVEL 0 READ 
35 004533 004543 BR 6$ : 
36 004534 110601 4$: ROR R1 ER ROR? 
37 004535 044541 BCC at 31F NOT, CONTINUE 
38 004536 104207 003555 MOV #MSR4 RO BUFF ER’SIZE SMALLER THAN RESPONSE 
39 004540 004543 BR XIT 
40 004541 104207 003612 5$: MOV #MSRS,RO TERROR WASN'T PROPERLY SPECIFIED | 
41 004543 000000 6$: RE TURN | 
| 
} 
| 
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UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 53 


SEQ 132 
DIVIDE BY OCTAL 50 AND FIND ASCII EQUIVALENT | 


} »SBTTL DIVIDE BY OCTAL 50 AND FIND ASCII EQUIVALENT 
se 

; ; DIVIDE BY 50 

5 ; DESCRIPTION: RAD 50 VALUE IN _R4 IS DIVIDED BY SOCOCTAL) 

6 ; TO STRIP OFF A SINGLE CHARACTER INTO RO. 

f ; JUMP TO FNDASC TO FIND THE ASCII EQUIVALENT | 
2 ; INPUT: R4 HAS RADSO VALUE 
i ; OUTPUT: RO HAS ASCII CHARACTER 
13 004544 DivS0: PUSH  <R1> | 

004544 100461 MOV R1,-(SP) 

14 006545 114001 CLR sR ;R1 = QUO | 
13 004546 115401 1$: INC = RV. ZKEEP TRACK OF # OF LOOPS | 

16 004547 107204 000050 SUB «#504 ; DONE? 

17 004551 034546 BPL 1 31F NOT, LOOP 

18 004552 105204 000050 ADD #50,.R4 7R4 = REMAINDER 

19 004554 10404 MOV 4 RO STORE REMAINDER IN RO 

20 004555 11740 Dee 3R1 HAS 1 MORE THAN IT SHOULD 

21 004556 104014 MOV =—s_ RT, RG 3QU0 IN R4 

22 004557 POP <ri> 

53 006557 104261 MOV (SP)+,R1 | 

24 3e¢ 

33 ; FIND ASCII 

44 ; INPUT: RO HAS RAD 50 CHARACTER | 

29 004560 115007 FNDASC: TST —RO 31S = | 

30 004561 054565 BNE 2$ 1F NOT, CONTINUE 

31 004562 104207 000040 MOV #40, RO IF $0, SPACE SET | 

32 004564 RETURN | 

33 004565 106207 000032 2s: CMP ss #32, RO ;_> LARGEST LETTER ) 

34 004567 074573 BMI 33 31F SO, CONTINUE 

5 004570 105207 000100 ADD _— #100, RO SET ASCII LETTER 
36 004578 RETURN 
37 004573 106207 000033 3$: CMP #33.,R0 = 33? 

38 004575 054601 BNE = 4$ IF Nol, CONTINUE | 
39 006576 104207 000044 MOV =: #44, RO SET 'S | 
40 004600 RETURN 

41 004601 106207 000034 4$: CMP #34, RO 3.3 34? | 
42 004603 054607 BNE 31F NOT, CONTINUE | 
43 004604 104207 000056 #56,RO SET °. 
44 004606 000000 RETURN | 
45 004607 105207 000022 5$: ADD —-#22,,RO ELSE ADD 22(OCTAL)FOR NUMERAL CHARACTER | 
46 004611 000000 RETURN 





UDAT2_ DISK RESIDENT DMACR X04.01 13-APR~82 18:06:42 PAGE 54 
RDSTAT = GET DRIVE'S REAL TIME DRIVE STATE 


1 -SBTTL RDSTAT = GET DRIVE'S REAL TIME DRIVE STATE 

¢ 004612 RDS TAT: 

4 RETURN DRIVE STATUS 

2 3 STATUS RETURNED IN DM REGISTER 1 

7 004612 PUSH <R3,RO> 3; SAVE R3 AND RO 
poses 100463 pad R3,-(SP) 
004613 100467 V RO,=(SP) 

8 004614 104203 000003 MOV #3,R3 3 ALLOW ONLY 3 

9 poses 060007 STATLP: XFC STATUS 3 GET DRIVE'S STATUS 

10 00461 103201 014000 BIC #14000,R1 3 CLEAR ERROR PASSING BITS 

11 004621 102201 000400 BIT #XMTERR,R1 3: CHECK XMIT ERRORS 

12 004623 014631 BEQ STATOK 3: IF NO ERRORS, BRANCH 

13 004624 117403 DEC : DECREMENT TRANSMIT ERROR COUNT 

14 004625 054616 BNE STATLP 3 IF ERROR COUNT INCOMPLETE, BRANCH 

15 004626 104201 010000 MOV #10000,R1 3: FLAG AS TRANSMIT ERROR 

16 0046 004640 BR STATEX 3: BRANCH 

17 004631 102201 000004 STATOK: BIT #RCVERR,R1 3: RECIEVER ERRORS 

18 004633 oatae BNE STATEX 3; IF VALID, BRANCH 

19 004634 11740 DEC 3 DECREMENT ERROR COUNT 

20 004635 054616 BNE STATLP : IF ERROR COUNT NON-ZERO, BRANCH 

21 004636 104261 014000 MOV #1/000,R1 3; FLAG AS INVALID STATUS Oe aeon 

22 004640 STATEX: POP <RU,R3> 3 RESTORE RO, R3 
004640 104267 MOV (SP)+,RO 
004641 104263 MOV (SP)+.R3 


; RETURN TO CALLING MODULE 





SEQ 133 


4 






UDAT2 DISK RESIDENT DMACR X04.01 13-APR=82 18:06:42 PAGE 55 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


1 “SOT HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. 
. 004643 HOSTR 
4 3 SEND REQUEST BUFFER TO HOST AND WAIT FOR RESPONSE. 
5 [CLEAR ARGUMENT AREA OF OUT BUFFER IN PREPARATION 
6 3FOR NEXT HOSTRQ CALL. 
8 INPUTS: 
9 : RO = HOST REQUEST NUMBER 
19 3 OUT BUFFER LOADED WITH DATA 
12 004643 PUSH <RO,R1,R2> 
004643 100467 MOV RO,-(SP) 
004644 100461 MOV R1.=(SP) 
004645 100462 V R2,-(SP) 
13 004646 104070 001500 MOV RO,OUT.RQ : STORE REQUEST NUMBER In, BurFeR 
14 004650 104300 001152 001501 SNDAGN: MOV LUNIT,OUT.01 
15 004653 104207 001500 MOV #OUT.RO,RO : SEND BUFFER TO HOST 
16 004655 104201 000043 MOV #BUFSIZ.R1 
17 004657 060016 XFC MRD 
18 004660 115001 TST R1 : CHECK FOR ERROR 
19 004661 054650 BNE SNDAGN : IF ERROR, TRY AGAIN 
20 004662 104207 001543 MOV #IN. RO,RO : WAIT FOR RESPONSE FROM HOST 
21 004664 104201 000043 MOV $12,R1 
22 004666 060017 XFC vu 
23 004667 104200 177777 001500 MOV #=1,0UT.RQ z MAKE REQUEST ILLEGAL 
24 004672 104267 001501 MOV #OUT.01,RO : CLEAR ARGUMENT WORDS IN BUFFER 
25 004674 104201 000042 MOV #BUFS1Z-1,R1 : CLEAR ENTIRE BUFFER 
26 004676 114002 CLR 
27 004677 100272 CLRBUF: MOV R2, (RO)+ 
28 004700 117401 DEC R1 
004 34677 CLRBUF 
2 <R2,R1,RO> 
04262 MOV (SP)+,R2 
261 MOV (SP)+,R1 
267 MOV (SP)+,RO 
000000 RETURN 


SEQ 134 











— ol DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 56 


HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


NO OCONOUSWN— 


oe 
2 I UIO } 
eS 


iN 
NONMUEWN—o 


SINS 


SPSSEREEEREEE 


38588 
SSRN 


x 


WINRAR 
SOOuLvIOAW 


Solstet 
— 


NEGRGALESBVEAEUNISVSVRARANUVSSaTeARw 
Nan 


SEPEEEREEESEEESEE 
SSASEASY 


NNN NNN 


ion 
~N 


48 


Ss 
So 


100001 
001454 
001154 
001155 
001151 
001152 


000001 


001501 


TALKER: 


TALK1A: 


1$: 
TALK1B: 


1$: 


2$: 


TALK2A: 


TALK2B 


; INPUTS 


sOUTPUTS: 


TALKER SENDS AND RECEIVES AN SDI INTERCHANGE 


"R2 = SDI INTERCONNECT 


TABLE CONTAINING APPROPRIATE COMMAND 


R3 = POINTER TO COMMAND 
SDILTO/SDISTO SDI LONG AND SHORT TIMEOUTS, RESPECTIVELY 


PUSH 


<R1,R4> 
(R3)+,RO 
(R5)+, R14 
SEN 

i 
#100001 .R3 
TALK2B8 

: acetaae 
SDISTO,R4 
TALK1B 
SDILTO,R4 


R 
<R4,R1> 


RO = RETURN OP CODE FROM UNIT 
R3 = ERROR CODE = 0 = NO ERROR, 1 = 


RECEIVE ERROR, 100001 = 
SAVE REGISTERS 


SEND ERROR 


MOV R1,-(SP) 
MOV R4,-(SP) 
SET ADR OF SDI COMMAND BUFFER 
a BUFFER LENGTH 


SEND COMMAND 
DID UNIT ACCEPT COMMAND 

FLAG AS SEND ERROR 

BRANCH TO EXIT 

SEE IF LONG TIMEOUT TO BE USED 
SET UP SHORT TIMEOUT 


BR 
SET UP LONG TIMEOUT 


DO WE SEND HOSTRQ? 

IN NOT, CONTINUE 

SEND UNIT 
NO MEGABYTES RE 
NO MEGABYTES WRITTEN 
SEND SOMETHING TO HOS 

SO HOST *T TIMEOUT DM PROG 
SET DATA BUFFER ADDRESS 
SET BUFFER LENG 

SEND Mash ute = COMMAND 
te pa 


. BRAN ANE 
SEE a “TIMEOUT 
IF BRANCH 
nove Oe RROR TYPE TO R3 FOR REPORTING 
DECREMENT TIMEOUT VALUE 
IF NOT TIMEOUT, BRANCH 
FLAG AS RECIEVE ERROR 
BRAN T 
FLAG AS NO ERRORS 
RESTORE R4, R1 


MOV (SP)+*,R4 
MOV (SP)+,R1 


] 


SEQ 135 


RE SS a 





SEQ 136 
UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 57 | 
HOSTRQ = HOST REQUEST - REPORT ERRORS, MEGABYTES TRANSFERRED, 


1 3 
§ :XOR 
$ SINPUTS: XOR LOGIC FUNCTION ON TWO REGISTERS 
6 R1, R2 = DATA TO BE XOR'ED 
7 OUTPUTS: 
8 ; R1 = UNCHANGED 
19 $ R2 = XOR OF TWO INPUTS 
| 
11 004771 XOR: PUSH R3 ZSAVE R3 
004771 100463 MOV R3,-(SP) | 
12 004772 erty MOV R1,R3 
13 004773 10302 BIC R2,R3 
14 004774 10301 BIC R1,R2 i 
15 004775 10103 BIS aeehe 
16 004776 POP R sRESTORE R3 | 
004776 104263 MOV (SP)+,R3 
17 004777 115002 TST R2 sSET CONDITION CODES 
18 005000 000000 RETURN 








ST CN = ee ee Oe 
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SEQ 137 
UDAT2 DISK RESIDENT DMACR_X04.01 13-APR=82 18:06:42 PAGE. 58 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


1 005001 TO: 
$ ; CALCULATE THE TIMEOUT IN 9SEC INTERVALS (SDI RECEIVE XFC TAKES 
5 : 
6 005001 04201 000001 MOV #1,R1 3 SET UP LOG2 SHIFTER 
7 005003 140 1$: ROL R1 : DOUBLE THE TIMEOUT VALUE 
8 005004 103201 000001 BIC #1,R1 : CLEAR THE OW BIT 
9 005006 117407 DEC RO : DECREMENT COUNT 
10 005007 055003 BNE 1$ : IF COUNT INCOMPLETE, BRANCH 
11 005010 114007 CLR RO : CLEAR 9SEC COUNT 
12 005011 115407 2$: INC RO ; INCREMENT 9 SEC COUNT 
13 005012 107201 000011 SUB #9.,R1 : SUBTRACT 9 SEC FROM TIMEOUT 
14 005014 035011 BPL 2$ : IF MORE TIME T BRANCH 
15 005015 RETURN : RETURN TO CALLING OoRDGRAN 





a ec a en ne ee 
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SEQ 138 
UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 59 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 
} ;RERROR 
3 TREPORT ERROR TO HOST PROGRAM 
4 TTHIS ROUTINE IS CALLED BY THe ERROR MACROS: 
3 TERRSF, ERRDF, ERRHRD AND ERRSF 
7 005016 RERROR: PUSH RO ZSAVE ONE REGISTER 
005016 100467 MOV RO,=(SP) 
8 005017 104067 MOV SP,RO :GET STACK POINTER | 
9 005020 PUSH <R1,R2,R3,R4> ZSAVE MORE REGISTERS 
5020 100461 MOV R1,-(SP) | 
005021 1004 MOV R2.-(SP) | 
005022 10046 MOV R3. =($P) | 
005023 100464 MOV R4.=(SP) | 
10 115407 INC RO ZCHANGE SAVED STACK POINTER TO POINT TO | 
11 z ADDRESS OF LOCATION AFTER CALL 
12 005025 104271 MOV (RO)+,R1 ZGET RETURN PC 
13 005026 104202 001501 MOV #OUT.01,R2 3GET ADDRESS OF WHERE TO PUT DATA 
14 005030 117401 D SREDUCE TO PC OF ERROR CALL 
15 005031 100221 MOV R1,(R2)+ [PUT PC IN OUT BUFF 
16 005032 115401 [GET BACK TO RETURN PC 
17 005033 104213 MOV (a1) R3 [GET ERROR NUMBER AND TYPE 
18 005034 1o0g2s MOV R3, (R2)+ :PUT IN BUFFER 
19 005035 104303 001152 MOV in R3 [PUT UNIT NUMBER IN BUFFER | 
20 005037 100223 MOV (Re) | 
21 005040 104113 MOV :GET MESSAGE POINTER 
22 005041 103203 170000 BIC #000777, R3 i CLEAR OTHER BITS | 
23 005043 100¢25 MOV R3, ( [PUT IN OUT pUrreR 
24 005044 104214 MOV Ride eRe zGeT COUNT OF PARAMETERS 
25 R1 IS NOW POINTING TO INSTRUCTION AFTER ERROR CALL | 
26 005045 110704 SWAB R46 | 
27 005046 110604 ROR R4 ZEXTRACT NUMBER OF PARAMETERS FROM ERROR MACRO 
28 005047 110604 ROR RG 
005 110604 ROR R4 
30 005051 110604 ROR R& : 
31 005052 103204 177760 BIC #177760,R4 
32 005054 104040 005075 MOV R4,SPADJU+1 ZSAVE FOR LATER ADJUSTMENT OF STACK POINTER 
33 005056 015065 BEQ RERRCA [BRANCH IF NO PARAMETERS 
34 005057 104273 RERRPA: MOV (RO)+,R3 [GET PARAMETER 
35 005060 100223 V R3,(R2)* STORE PARAMETER IN OUT BUFFER 
005061 117404 DEC R4 COUNT THE PARAMETERS 
7 005 055057 BNE RERRPA [GET NEXT IF MORE 
005063 100471 RERRCA: MOV R1,-(RO) :PUT RETURN ADDRESS ON STACK 
39 005064 104207 060013 MOV #ERRMES.RO [SEND ERROR PACKET TO HOST PROGRAM 
40 00 024643 CALL HOST 
41 00506 POP <R4,R3,R2,R1,RO0> ZRESTORE REGISTERS | 
005067 104264 MOV (SP)+,R4 | 
005070 104263 MOV (SP)+.R3 
005071 104262 MOV (SP)+.R2 
0. 207¢ 104261 MOV (SP)+.R1 
005073 104267 MOV (SP)+.RO 
42 005074 105 000000 SPADJU: ADD #0,SP ZADJUST STACK OVER PARAMETERS 
[VALUE CHANGED ABOVE 


& 
S 
3s 
o 


RETURN 
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T2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 60 
WOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


sMESSAGE STORAGE OVERLAY 


FREE: : FREE AREA STARTS HERE 
DMOVLY MS,0 
WREDE sOUTPUT EDC FOR THIS OVERLAY 
MS2000: .ASCII\'HOST_ SPECIFIED UNIT #*D16" THAT CAN'T BE FOUND."N\ 
“ASCLIN'TEST2 RESTARING N\ 
MS2001: .ASCII\''CANNOT RECEIVE VALID DRIVE STATE FROM DRIVE AFTER DRIVE WAS INITED'W\ 
“ASCII\“CHECK IF DRIVE IS POWERED ON."N\ 
mS2002: -ASCII\" DRIVE STATE RECEIVED HAS BAD PARITY AFTER DRIVE WAS INITED'W\ 
mS2003: -ASCII\"DRIVE IS NOT ASSERTING RECEIVER READY IN DRIVE STATE AFTER DRIVE WAS INITED 
MS2004: .ASCII\'‘TIME-OUT ON SEND OF ECHO COMMAND TO DRIVE'N\ 7 
“ASCII\"" ECHO DATA "HEN 
MS2005: .ASCII\'ERROR DURING RECEIVE OF ECHO RESPONSE FROM DRIVE'N\ 
“ASCII\"” ECHO DATA "HEN - 
MS2006: .ASCII\'ECHO COMMAND RESPONDED WITH DIFFERENT DATA'W\ 
~ASCIIN"’ ECHO DATA SENT''SGHTON\ 
“ASCII\" ECHO DATA RECEIVED “WI6N\ 
MS2007: -ASCII\'ERROR BIT SET IN GET STATUS RESPONSE AFTER DRIVE CLEAR COMMAND'N\ 
“ASCII\"" GET STATUS RESPONSE  "NR1\ 
mS2008: “ASCII\"*TIME-OUT ON SEND OF ONLINE COMMAND TO DRIVE'W\ 
MS2009: “ASCII\"ERROR DURING RECEIVE OF ONLINE RESPONSE FROM vRIVE'R1\ 
MS2010: “ASCII\"'ONLINE COMMAND WAS UNSUCCESSFUL‘ NR1\ 


-BY 
MS2011: .ASCII 


MS2012: 
MS2013: 
MS2014: 
MS2015: 


MS2016: 


MS2017: 
MS2018: 


oA \"‘ONLINE COMMAND DID NOT RETURN EXPECTED RESPONSE CODE’ W\ 
eASCII\"’ EXPECTED RESPONSE ‘'H8N\ 
eASCII\"’ ACTUAL RESPONSE" ‘S4HEN\ 


“ASELIN' TIMEOUT ON SEND OF GET UNIT CHARACTERISTICS COMMAND TO DRIVE'W\ 

ll ea DURING RECEIVE OF GET UNIT CHARACTERISTICS COMMAND FROM DRIVE'RI\ 
ASCENT UNIT CHARACTERISTICS COMMAND WAS UNSUCCESSFUL’ WR1\ 

ASS LINE EL UNIT CHARACTERISTICS COMWUD DID NOT RETURN EXPECTED RESPONSE CODE'W\ 
7" ACTUAL RESPONSE*'S4HEN\ 

eASCII\"" HOST PROGRAM GAVE DM CODE IMPROPER DATA'W\ 


~ASCIIN'* EXPECTED VALUE SHOULD BE BETWEEN 0 AND 3°N\ 
SASCII\"* ACTUAL VALUE WAS “O8N\ 


-BYTE 
oASCLT) TIME~OUT ON SEND OF DIAGNOSE COMMAND TO DRIVE'W\ 
“ASCIIA" ERROR DURING RECEIVE OF DIAGNOSE RESPONSE FROM DRIVE''R1\ 


nd 
| 


| 
! 


SEQ 139 
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SEQ 140 

UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 60-1 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


57 901312 042 104 111 MS2019: os COMMAND WAS UNSUCCESSFUL''NR1\ 
001336 04 104 111 MS2020: .ASCII\'DIAGNOSE COMMAND DID NOT RETURN EXPECTED RESPONSE CODE'W\ 
60 00137 04 040 040 ~ASCIIN\'' EXPECTED RESPONSE "'HBN\ 
61 901407 042 040 040 “A ASCII\" ACTUAL RESPONSE’ ‘S4H8N\ 
63 001424 04 104 122 S202: ASCLIN"DRIVE DIAGNOSTIC REPORTS A HARD ERROR’ 'N\ | 
64 001450 04 040 040 ASCII\" TEST NUMBER "HI6N\ 
65 001462 04 040 040 “ASCLIA DRIVE TYPE ‘“‘H8N\ 
66 001474 04 040 040 -ASCII\' ERROR NUMBER “'H16N\ | 
67 001507 122 -ASCII\R2\ | 
68 001510 000 BYTE 0 
69 001511 042 110 117 S2022: -ASCII\" HOST PROGRAM DOWN LINE LOADED A DIAGNOSTIC WITH A ZERO BYTE COUNT'N\ 
a 001554 042 104 111 MS2023: ASCII\' DIAGNOSTIC "'A6’’ REQUESTED BY THE DRIVE COULD NOT BE SUPPLIED BY HOST.'N\ | 
z3 001621 042 124 111 MS2024: -ASCI IN" TIMEOUT ON SEND OF MEMORY READ COMMAND TO DRIVE''N\ 
i} 001653 042 105 122 mS2025: -ASCIIN"ERROR DURING RECEIVE OF MEMORY READ RESPONSE FROM DRIVE'WR1\ 
ad 001712 042 115 105 S2026: ‘ane enon READ COMMAND WAS UNSUCCESSFUL‘ WR1\ | 
79 001737 042 115 105 MS2027: .ASCII\'MEMORY READ COMMAND DID NOT RETURN EXPECTED RESPONSE CODE'W\ 
80 001775 042 040 040 ASELIN" EXPECTED RESPONSE "MBN 
81 oozo12 042 040 040 -ASCII\" ACTUAL RESPONSE’ 'S4HEN\ | 
83 902027 042 124 111 MS2028: “ASCLIN"TINE-OUT ON SEND OF MEMORY WRITE COMMAND TO DRIVE'W\ | 
85 002062 042 105 122 mS2029: “ASCII\"ERROR DURING RECEIVE OF MEMORY WRITE RESPONSE FROM DRIVE'RI\ 
87 02121 042 115 105 ™S2030: ae gn WRITE COMMAND WAS UNSUCCESSFUL'WR1\ | 
89 002147 042 115 105 MS2031: .ASCII\'MEMORY WRITE COMMAND DID NOT RETURN EXPECTED RESPONSE CODE"W\ 
90 002205 4 040 040 *ASCLIN"" EXPECTED RESPONSE "H8N\ 
31 oozeee 042 040 040 “ASCIIN ACTUAL RESPONSE’ 'S4H8N\ ! 
93 002237 42 124 111 MS2032: “ASCII\*TIME=OUT ON SEND OF RUN COMMAND TO DRIVE'N\ 
e j 
95 002 65 042 105 122 ™S2033: “ASCIIN"ERROR DURING RECEIVE OF RUN RESPONSE FROM DRIVE'R1\ 
44 002317 042 122 125 MS2034: ~ASCII\" RUN COMMAND WAS UNSUCCESSFUL" WNR1\ | 
99 002 04 122 125 MS2035: .ASCII\"'RUN COMMAND DID NOT RETURN EXPECTED RESPONSE CODE"W\ 
100 002372 04 040 040 SASCII\" EXPECTED RESPONSE "HBN\ 
101 002407 042 040 040 “ASCIIN" A CTUAL RESPONSE’ ‘S4H8N\ 
193 0024 4 042 124 111 MS2036: “ASCIIN“TIME~OUT ON SEND OF RECALIBRATE COMMAND TO DRIVE'W\ | 
105 002456 042 105 122 $2037: ASCII\" ERROR DURING RECEIVE OF RECALISRATE RESPONSE FROM DRIVE'RI\ | 
107 002514 042 122 105 mS2038: “ASCII\" RECALIBRATE COMMAND WAS UNSUCCESSFUL" 'WR1\ | 
109 002541 Beg 122 105 MS2039: .ASCII\'RECALIBRATE COMMAND DID NOT RETURN EXPECTED RESPONSE CODE"W\ 
110 002577 04 04 040 ~ASCII\'' EXPECTED RESPONSE ‘HBN\ 
111 00 614 042 040 040 ASCII\" ACTUAL RESPONSE’ ‘S4HEN\ | 
18 002631 04 124 111 MS2040: .ASCII\''TIME-OUT ON SEND OF GET STATUS COMMAND TO DRIVE'W\ | 
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T2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 60-2 
MEGABYTES TRANSFERRED, 


geese 
RN 


Sssssss 


MMV 
sees 


CONAVUSWN CO VDONAUE 


Las) 


ee ee ed ed de ed ed etd ed ed = 80 od ed 
NMrMoTnonoenory 


SS SRIEAE 
w 
—_ 


Ssssssss 
ENS 


as 
Ww 
FRRQWUNUN ON 


ee me me ee ad ed ed ed ed ed wed ed ed ed ed od = 
SFE=SR=S 
MOONG 


BREVIS SSVSARUNLSSELEGE 
uM 


co 
SESTStSheaccescss 


rm ek od as 8 a oS gy ot 


SSBF 
S8E88 
BERS 


SEENETELSSLELSEStsteccustecs 


=3= 
-oO— 
acne 


R= 
NRO 


105 


HOSTRQ = HOST REQUEST = REPORT ERRORS, 


122 


aom FR 


e22-- oo-— 
oooeon oor 


117 


MS2041: 
MS2042: 
MS2043: 


MS2044: 
MS2045: 
MS2046: 
MS2047: 


MSG1: 


MSG2: 
MSRO: 
MSR1: 
MSR2: 


MSR3: 
MSR4: 
MSRS: 


ERS000: 


SER10: 
SER11: 
SER12: 


“ASCE\"ERROR DURING RECEIVE OF GET STATUS RESPONSE FROM DRIVE''R1\ 
eASCII\''GET STATUS COMMAND WAS UNSUCCESSFUL‘ 'NR1\ 

-ASCII\''GET STATUS COMMAND DID NOT RETURN EXPECTED RESPONSE CODEN\ 
eASCII\'’ EXPECTED RESPONSE ‘HEN\ 

ae ACTUAL RESPONSE’ 'S4H8N\ 

et T) TOE -OUt Oe SEND OF DRIVE CLEAR COMMAND TO DRIVE’N\ 

oneal t) WER DURING a DRIVE CLEAR RESPONSE FROM DRIVE'RI\ 
tReet ae COMMAND WAS UNSUCCESSFUL’ 'NR1\ 

eASCII\’ DRIVE CLEAR COMMAND DID NOT RETURN EXPECTED RESPONSE CODE’W\ 


eASCII\’’ EXPECTED RESPONSE ‘'H8N\ 
a ACTUAL RESPONSE’ 'S4H8N\ 


\A4N 
II\"‘INFORMATION SENT BACK FROM THE DRIVE IS BEING PRESENTED."N\ 
\'" TEST NUMBER ‘HI6N\ 


“BYTE 0 

-ASCII\"FOLLOWING REPORT HAS BEEN TRUNCATED DUE TO SIZE'N\ 
“ASCIINN TIMEOUT ERROR OCCURED DURING RECEIVE XFC'N\ 
-ASCIIWW 1ST WORD NOT START FRAME DURING RECEIVE XFC'N\ 


“ASCIIAN\ 
“ASCIIN" FRAMING ERROR OCCURED ON SDI LEVEL 0 READ DURING RECEIVE XFC’W\ 


ASCII\N\ 


“ASCII\'“CHECKSUM ERROR OCCURED ON SDI LEVEL 0 READ DURING RECEIVE XFC'W\ 


0 
ASCIIAN\ 
-ASCII\' BUFFER SIZE SMALLER THEN RESPONSE DURING RECEIVE XFC'W\ 
OCHIANN 
-ASCLIN"'CODE FROM RECEIVE XFC WAS UNINTELLIGIBLE FROM SUBSYSTEM ‘“H16N\ 
‘ASCII \"UNABLE TO FIND REQUESTED DRIVE FOR TESTING'W\ 
ASCII \'‘THE FOLLOWING JS VISIBLE ON THE PORTS’ N\ 
-ASCII \"UDA PORT 0 == ‘R1 
-ASCII \"UDA PORT 1 == “RIN 
-ASCII \"UDA PORT 2 == "RI\ 
ASCII \"UDA PORT 3 == ‘"R1\ 
ASCII \"no DRIVE ATTACHED’ N\ 
“ASCII \"RCVR RDY NEVER ASSERTED’ W\ 
ASCII \"'TIMEQUT OF SEND'W\ 


"BYTE 0 : - 


SEQ 141 











UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 60-3 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


171 004035 042 126 «= 111 SERT3: ASCII \""TIMEQUT OF RECEIVE'N\ 
172 004047 009 “BYTE 0. 
175 004030 042106111. SERIA: “ASCII \""FIRST WORD RECEIVED WAS NOT START FRAME'N\ 
175 004076 = 042106122. ERIS: -ASCII. \"FRAMING ERROR ON LEVEL 0 RECEIVE'N\ 
177 004120 © 042103110 SER16: ASCII. \"'CHECKSUM ERROR ON LEVEL 0 RECEIVE'N\ 
179 004168 O2-—=«122,~=S«*105.—«SERI7: “ASCII "RESPONSE LONGER THAN EXPECTED FOR CHD'N\ 
180 004167 000 “BYTE 0. 
181 004170 042 106 122 SERI8: ASCII \"DRIVE "RIN 
182 004175 000 “BYTE 
183 004176 104 061 062 SERI8D: <ASCII \D12", ‘\ ; NOTE: THE STRING WITHIN THE \\"S <cHUST>> 
184 004202 104 061 062 SERI8C: -ASCII \D12", '\ : BEAN EVEN NUMBER OF CHAR, BECAUSE THE 
185 004206 = 104061062 SERIBB: -ASCIT \DIO" 'N : LABELS WILL FORCE WORD ALINGHENT, LEAVING 
186 004212 104 + 061: «= 062 SERIBA: <ASCII \D12N\ ; JUNK IN THE LAST BYTE. (SERI8A OK TO BE ODD) 
187 004214 000 “BYTE 
188 004215 042 106 122 «~SERGO: ASCII \"DRIVE NOT AVAILABLE TO THIS UDA'N\ 
189 004236 000 “BYTE 0. 
190 004237 = 042,-Ss«125.)-«S «116 SERGI: :ASCII \"'UNSPINABLE DRIVE “R1\ 
191 004251 000 “BYTE 
192 004252 042 122 «= 105. STATO: :ASCII\'REAL TIME STATE"'S2HI6N 
193 004265 042 123 126 CASCLIN'STATUS (R10 L)"S2H16SH16S2H16S2H16S2H16S2H16S2H16M\ 
194 004320 000 “BYTE 0 
195 004320 DMEND 
004321 013364 »WREDC ;OUTPUT EDC FOR THIS OVERLAY 
196 000001 SEND 





SEQ 142 





N11 
SEQ 143 
UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 60-4 | 
SYMBOL TABLE 
| 
ARGSS = 000003 DRVONL= 000213 GETSUB= 000210 IN.26 001575 ms2022 001511 | 
ATTN = 000002 DRVRUN= 000014 GRPCYL= 000002 IN.27 001576 MS2023 001554 | 
AVAIL = 000100 DU.DFL= 020000 GRPOFF= 000011 IN.28 001577 Ms2024 001621 | 
F DATS DU.FTL= 050000 GSTS3 002504 IN-29 001600 mS2025 001653 | 
BF -ECC= 000401 DU. INF= 030000 GSTS6 002505 IN.30 001601 MS2026 001712 | 
BF -EDC= 000400 U.QUE= 010000 STS? 002574 IN.31 001608 MS2027 001737 
= DU.SPC= 060000 GTSTAT 004131 IN.3¢ 00160 ms2028 002 
BUFFLG= 040000 DU.TER= 040000 . 2725 IN.33 001604 MS2029 002062 
FSIZ= 000043 D.LIMT= 000001 HINB= 007777 IN.34 001605 MS2030 002121 
BUFI 001221 D.SCHR= 000002 HBLONB= 170377 IRECLB= 000216 MS2031 002147 
CHECK = 00001 ECC = 000015 PRE= 000005 LARGE = 000001 MS2032 002237 
= ECCFLG= 010000 HD.BAD= 710000 BHINB= 177417 MS2033 002265 
CHRRES= 000170 ECCRSH= 000002 HD.DBN= 140000 LBLONB= 177760 MS2034 002317 
CLRBUF 004 ECHO = 000010 000000 LNCYL= 000000 MS2035 00234 
CLRORV 006211 ECHOC = 000350 HD.PRV= 050000 LNHST= 000012 2036 002424 | 
= ECHOD 001162 -RBN= 060000 LNTRK= 000011 $2037 002456 
COMPLT= 000176 C HD -REV= 050000 LINKLN= 000007 MS2038 00251 
CONMEM ECHOIA 002432 -XBN= 12000 LOBYTE= 000377 $2039 002541 | 
CR.DIA 001454 i NEADER= 000002 ONG 001454 MS2040 00263 
CR.DRC 001176 CHO3 002452 HIBYTE= 177400 LONGTO= 000001 MS2041° 002663 
CR-GCR 001437 CHO4 002457 HICYL = 000001 Low = 000002 MS2042 0027 
CR.GST 001170 ECHOS 002473 HIDBN = 000003 LUNIT 001152 MS2043 002746 
CR.INR 001472 =} HILEN = 000002 MAXSND= 001750 MS2044 003035 
CR.ONL 001445 ERECOV= 000006 HIMEM = 007774 MEDTYP= 000006 $2045 003 
CR-RDM 001421 HARD= 100 HIREN = 000003 MESSAG= 060015 $2046 003125 
CR.RUN 001464 ERLEV = 000002 HIXBN = 00000 MICREV= 000003 mS2047 003152 
CR:WRM 001205 RRMC = 060014 HOSTRO 00464 D = 00001 = 000017 
Cvi_ = 000020 ERRMES= 060013 HRDREV= 000003 MSGI 00324 NAM.1 001145 
DATAVL= 04 RRN = 004000 ILOOP 002377 MSG2 00334 -2 001146 
DATPRE= 000005 ERRTYP= 100000 INR 001477 MSRO 003374 -3 001147 
DBNCYL= ERSOFT= 140000 INSEEK= 00001 MSR1 003423 NUMPTR= 00000 
DIA 001461 ER.END 004204 IN.RO 00154 MSR2 003453 OK.END 0042 
DIAGDR 003101 ER5000 003653 IN.01 001544 MSR3 003514 001452 
DIAGNS 003054 EXIT = 000021 IN.02 001545 MSR4 003555 OUT.RQ 0015 
DIAG.1 001144 EX.END 004210 ‘IN.03 001546 RS 003612 OUT-01 001501 | 
DIA.EN= 000374 FB.DAT= 000000 IN.04 001547 MS2000 000000 OUT.02 00150 
DIA.OP= 000003 - FB.EDC= 000400 IN.05 001550 MS2001 000043 T.03 00150 
DINIT = 000011 = 000010 , IN.06 001551 mS2002 000126 OUT:04 001504 
DISCON= 000204 FFFC = 177774 |  ‘IN.07 001552 MS2003 000165 QUT:05 001505 
DIVSO 004544 FEED = 177778 IN.08 001553 MS2004 000235 OUT:06 001506 
= 060016 FFE = 177776 IN.09 001554 mS2005 000275 OUT:07 001507 | 
DONECD 002 FNDASC 004560 IN.10 00 MS2006 000340 OUT:08 001510 | 
DO.DCL 003265 FORMAT= 000001 IN.11 00155 MS2007 0004 OUT-09 001511 | 
DO.DC4 003263 FRAME = 0000 IN.12 00155 MS2008 000500 OUT.10 001512 | 
DO.DIX 003 FREE — 005077 IN.13 001560 MS2009 000530 OUT:11 001513 | 
D0.D10 3 FSTOP = 1000 IN.14 001561 MS2010 000564 QuT.12 001514 | 
DO:DI1 003340 FTLDEV= 04000 IN.15 00156 MS2011 000607 OUT-13 001515 | 
DO.D12 003370 FTLSYS= 000000 IN.16 00156 mseO1e 000674 OUT:14 001516 | 
DO.DI3 003521 FT.BUF= 0000 IN.17 001564 mS2013 00073 OUT.15 001517 | 
DO-DI7 003525 FT.HI = 000001 IN.18 001565 mS2014 001001 OUT-16 001520 
D0.DI8 003530 FT.LOW= 00000 IN.19 00156 MS2015 001035 OuT:17 001521 
001203 GCC.EN= 000170 IN.20 0015 MS2016 001133 QuT.18 001528 
DRCBYT 001204 GCR 00144 IN.21 001570 mSeO17 001224 QUT:19 001523 
DRCLR1 002503 GETBCN 004356 IN.2@ 001971 MS2018 001255 QuT.20 001524 
RTYPE= 000007 GETCHR= 000207 IN.23 001578 mS2019 001312 QUT.21 001505 
DRVCLR= 000005 GETST 001175 IN.24 00157 MS2020 001556 QuT.2¢ 001526 
DRVID = 000004 GETSTA= 000011 IN.25 001574 MS2021 001424 ouT.23 001527 





UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE 60-5 
SYMBOL TABLE 


OUT.24 001530 RDM poses SENDHR 001151 ST.DIA S8666 T2DLL_= 060001 
OUT.25 001531 RDMEM 0036 SER10 F4k ST.DR = 000040 T2STRT 002230 
OUT .26 301386 RDM.EN= Bog SER11 04005 ST.ERR= 000002 T4881 = 060005 
OUT.27 00153 RDM.OP= 00021 SER1 ity ST.FE = 000200 14882 = 
OUT.28 001534 DSTAT 004612 SER1 004035 ST.FO = 002000 T4MPRM= 00 
OUT.29 001535 AD 003020 SER14 004050 ST.MOD= 000001 T4MXFR= 060011 
OUT.30 001536 ECA, 004055 SER15 004076 ST.MSK= 00000 T4SEEK= 10 
OUT.31 001537 REGSS = 177777 SER1 poe lee ST.OA = 000200 T4SOF T= 060007 
an ae 001540 EGUS = 090001 SER1 00414 ST.PE = 000040 T4UPRM= 
OUT.33 001541 RERRCA 005063 ERi8 004170 ST.PS = 44 UDADM2= 001000 G 
OUT.34 001542 R 005016 SER18A 004212 ST.RE = 000100 UNITNB 000740 
OVERFL= 000002 RERRPA 005057 ER18B 004 8 ST.RR = 4 bh UNITS 000720 
OVE .MN= 000714 RETS = 000001 SER18C 00420 ST.RTY= 00900 UNITO = 
OVE .MS= 000000 REVECT= 000 SER18D 4176 ST.RU = 000001 UNIT1 = 000002 
OVL.MN= 004164 REVS = 000007 SER18E 001156 ST.SR = 00002 rate = 
OVL.MS= 004322 = SER4O 004215 ST.STA= 000001 UNITS = 00001 
OVL...= 010506 RREAL = 013400 SER41 004237 ST.S7_ = 0004 UNSSUC= 000175 
OVSTRT= 007774 STOP = SHRTTO= 000000 ST.UNT= 000000 = 000013 
S.MN= 001040 RUN 001471 NDAGN 004650 ST.WE = 00001 UTOTST= 060012 
OVS.MS= 011410 UNDR 0040 SPADJU 005074 SUB. = 00001 ITE= 000014 
ese = 011126 RWRDY = 100000 = 000001 TALKER 004706 WAITS{= 000012 
PHYSA = 001000 RW.ANG= 000006 T 000744 TALKIA 004720 WEUFLN= 000401 
PORTO 002314 RW.BUF= 000001 STACK 00164 TALKIB 004730 WCONT = 04 
PORT2 002315 RW.CMD= 000004 TARi 001647 TALK2A 004765 WREAL = 122400 
PORTS 00234 RW.HI = 000003 STATEX 00464 TALK2B 004766 WRITE 002754 
POKTS 002353 RW.LOW= 000002 STATLP 004616 TEST 002372 001212 
PORTS 002362 RW.SDI= 000005 STATOK 004631 TESTEX 003100 ° 000017 
PRMS = 000002 -STA= 00000 STATUS= 000007 TESTX 00235 = po gege 
PTYPES= 000020 SAVREG 001153 STATO 004252 TIMEQU= 000001 WRIMEM 603721 
RBNTRK= 000004 AVRID 00074 STOSTA 004265 TO 005 WSTOP = 140000 
RBUFLN= 000415 SAVSTA 00074 STSIZE= 000200 TOOBIG= 000001 XBNCYL= 000021 
RCONT = 000000 SBCRES= 00016 STSRES= 000366 TRKGRP= 000093 XFERRi= 000000 
RCTCPS= 000001 SDI 1 ST.C_ = 000002 PERR 004 XMTERR= 000400 
RCTCSZ= 000014 SDILTO 001155 ST.CON= 000002 T00 002646 XOR 004771 
RCV _= 000005 SDISTO 001154 ST.DB = 001000 TIMSIZ= 060000 XREAD = 00000 
RCVERR= 000004 SDIVER= 000000 ST.DF = 000020 T2CMD = 060002 XWRITE= 00000 
RCVRDY= 000001 SEND = 


- ABS. 022254 


SEQ Ma 


001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 3845 WORDS ( 16 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 70 sy 
B: UDAT2.0BK ,B: UDAT2/C=$DMACRO,B:UDAT 





ee te wwe —e= —— 


UDAT2 DISK RESIDENT DMACR se 3-APR=82 18:06:42 PAGE S-1 


13< 
CROSS REFERENCE TABLE (CREF 00 ) 
ARGSS $i-3} 7-418 $3-<6 ii. 64 a sic $148 ety 31-50 31-504 30-26 30-264 30-33 30-334 
2-20 204 32-22 
38-59 35 43-4 4 
44-26 = 44-268 = 44-30 44-308 44-38 44=3BH 4b-40 4h =40H 45-9 45-94 45-12 45-124 45-19 45-194 


45-21 45-214 46-9 46-94 ~46-12 46-124 46°19 46-19% 46-21 46-214 47-18 47-18% 47-21 47-214 
47-29 = 47-298 = 47-311 47-3148 48-18 48-184 48-21 48-218 48-29 48-29% 48-31 48-314 


BUFSIZ 21-79% 55-16 55-21 55-25 


CHGMOD 5-32# 
CHRRES 5-435# 32-15 32-22 32-22 
CLRBUF 55-274 55-29 


| 

| 

COMPAR 

COMPLT 5=41# 31-43 31-50 9-31-50 37-33 44-33 h40 440 45"16 0 45=21 45-21 46-1460 46-21 46-21 

CONMEM 38-12 38-25 39-28 40-51 50-274 | 
| 
| 


CR.DIA 20-39% 37-14 
-DRC 20-154 48-10 
CR.GCR 20-308 32-5 
CR.GST 20-124 23-38 47-10 
INR 20-454 46-4 
CR. 20-334 31-33 
CR.RDM 20-254 43-22 
CR.RUN 20-4 45-4 
en o-ioe 33-11% «33-13% 34-20% 40-37" 40-38% 40-76% 44-18 
D.LIMT 6-34 
SCHR 6-4 
DATAVL 19-584 38-16 38-31 
DATPRE 4-334 
DBNCYL 4-424 


DIA 20-39 q9-50" 37-13% 
DIA.EN 19-52# 7-31 37-40 37-40 
DIA.OP 19-498 49-49 
DIAG.1 19-244 3-17* 42-6% 42-14% 
IAGDR 36-9 +! 37-114 40-78 40-82 
DIAGNS 33- 33-3 36-24 
DINIT 3-128 4 
DISCON 5- 


DIVSO 41-7 41-10 41-17 41-19 = 53-138 
DO.DC4 38-9 38-22 38-30 38-32 39- 40-56 
DO 9-44 39- 
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SEQ 146 
UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE S-2 
CROSS REFERENCE TABLE (CREF v04.00 ) 
DO.DI8 40-24 41-64 
pie SSS, 
5-178 36-41 . 
DONECD 28-438 58-45 59-27 29-29 
15 30-168 
DRCBYT 0-174 
DRCLRI 81-108 31-25 
DRTYPE 4-154 | 
DRVCLR §-35# 20-16 | 
DRVID 4-144 
DRVONL 5-338 | 
DRVRUN 5-348 20-44 
DU.DFL 6-84 
DU.FTL 6-114 
“INF 6-98 | 
-QUE 6-74 
DU:SPC  §=3 5-4 5-5 5-6 5-7 5-8 5-9 5-10 S*11—'si«S#12:—«*S#1B—(ti‘*HGCtC«‘*SRASS (CS HHH 
5-17 6-128 
DU.TER 6-108 
C 3-1 
ECCFLG 2-854 
ECCRSH 4-114 
ECHO. 3-118 += 30- 
ECHO! 29-34 30-118 
ECHOIA 30-124 30-23 
E 30-138 30-40 
ECHOS 30-21 30-268 
E 30-19 Sie 
ECHOS 30-25 30-27. 30-32 30-37 
E 5-468 20-2 20-3 20- 20-6 
ECHOD of 30-11 
ER.END 47-19 47-22 47-30 47-324 GB-19GB=22GBH30 4832 
000 26-38 60-1584 
ERECOV 5-314 
R 5-528 27-41 g8 IST $24 $026 BOSE 1-97 B1-BBBn41 S148 51-50 32410 
43-44 44-26 44-30 4-38 44-40 45-9 45-12 5-19 5-31 6-9 G2 B19. GOT 
cmey Secely S028 S731 48-18 48-21 8-29 48ST 





RRN 3¢ (37-41 7-61 28 288 29-37 
37 $0.3) é ey 33 33 
339 31-27 1-97 1-41 31-41 31-418 31-48 

31-48 31-48 31-50 g-108 32-15 =13 =13 
“134 32-20 2-20 =36 3 $see $728 
37-23 -33 " 7-38" 37-40 ©037-40S 37-40 
37-408 38-29 i 41-25. 1-25 41-258 43-30 
43-30 43-30 43- 43-420 GS-44 45-44 45-04 
é 44-26 44-26 44- 44-38 4-388 4-40 
44-40 4-40 45- 45-128 45-19 45-19 45219 
45-198 45-21 45-21 “12 46-12, 6-128 46-19 
to-a4e 28-29 Scop 29-54 rt A il RR om fo 
51 48-21 4B-218 48-29 48-318 





SEQ 147 
UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE S-3 
CROSS REFERENCE TABLE (CREF V04.00 ) 


ERRTYP 19-57# 38-26 


ERSOFT 5-534 

EX.END 47-33 47=35¢ 

EXIT 3-208 26-43 

FB.DAT 3-6 a 

FCTSIZ 4-364 

FFFC 1 # 33-6 

FFFD 19=6 19-634 19-64 39-19 

FFFE 19-644 
FNDASC 41-13 41-23 53-294 
FORMAT 3-4# | 
FR 4 

FREE 60-34 

FSTOP 2-824 
T. 2-554 

FT.HI 5-268 

FT.LOW 2-57# 


5-364 19-504 20-31 


GSTS? 31-39 31-42 31-44 31-49 31-524 
36-17 


ADE 
HIBYTE 4-544 27-31 30-13 35-20 50-30 50-36 51-33 51-38 51-75 


H 4- 

HILBN) = = 26# 

HIMEM 806 2-498 

HIRBN 8 = 4=-294 

HIXBN 4-278 

HOSTRQ 25- 26-40 26-42 28-44 33-25 38-33 40-17 51-53 55-20 56-32 59-40 
HRDREV 4-134 


ILOOP 204 25 9-36 
IN.01 Sinus 33-4 3-26 «33-36 = 33-36 = 40-19 








UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE S=4 
CROSS REFERENCE TABLE (CREF V04.00 ) 


IN.02 1-4 
IN.03 21-478 
IN.04 21-4 
IN.0S 21-494 
tae J 21-504 
IN.07 21-514 
IN.08 1-524 
IN.09 1-5 
IN.10 21-544 
IN.11 21-554 
IN.12 21-56# 
ie See 
IN.15 51-308 
IN.16 21-604 
IN.17 21-614 
IN.18 21-624 
IN.19 21-634 
IN.20 21-644 
IN.21 21-654 
IN.22 21-668 
IN.23 21-674 
IN.24 21-684 
IN.25 21-694 
IN.26 21-708 
IN.27 621-718 
IN.28 21-728 
IN.29 21-738 
IN.30 21-748 
IN.31 21-754 
IN.32 21-768 
IN.33 21-778 
IN.34 21-784 
IN.RQ 21-448 
INR 20-45 
INSEEK 5-404 
IRECLB 5-394 
LARGE 4-748 
LBHINB 4-584 
LBLONB 9 4-594 
LBNCYL 4-234 
LBNHST 4-398 
LBNTRK 4-374 
LINKLN 2-110# 
LOBYTE 4-55# 
LONG 20-374 
LONGTO 4-64 
LOW 4-708 
LUNIT 19-34# 
MAX 19-454 
+3444 4-354 


3-198 
4-12 
34-13 





34-11 35-10 37-13 = 40-77% =§=640-818 

35-11 

55-20 

28-28 8 32-25 32-29 

40-44 40-48 50-32 

28-24% 34-24 35-16 38-33 40-6 42-5 
51-53 





51-53 


SEQ 148 


55-14 56-28 59-19 


SEQ 149 
UDAT2 DISK RESIDENT DMACR X04.01 13-APR-82 18:06:42 PAGE $-5 
CROSS REFERENCE TABLE (CREF V04.00 ) 
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1 
ies SEQ 152 
UDAT2 DISK RESIDENT DMACR X04.01 13-APR=-82 18:06:42 PAGE S-8 
CROSS REFERENCE TABLE (CREF V04.00 ) 


RCVRDY 5=21# 23-25 33 
ROM 0-25 co-99" 5-10* 35-11% 35-12% 38-4 38-5* 38-6* 38-18% 39-19% 39-208 39-21 51-82 
7 43-44 =44 


RDM.OP 19-48% ¢- 6 
RDMEM 5-14 8- 38-20 39-22 43-204 
RDSTAT 23-17 3-24 24-13 29-20 54-24 
READ 3-33 5-94 
RECAL =14 46-44 
REGSS 27-41 7-41 7-418 9-2 9-2 9-28 9-284 29-37 9-374 30-24 0-24 30-244 30-26 30-26 
268 33 3 0-3 0-3 0-33 0-33 0-334 0-334 30-334 1-27 31-274 31-38 1-384 
ee mS? PY De Yt Yt 
32-22 224 352395 30-3 a 33-36 $3 35-56 ¢- 6 $5 3 364 35. 36. 37-23 37-2358 | 
37-27 37-27 -27 7-278 7-38 7-384 7-40 7-40 7-40 7-40 37-40 37-40 7-408 37-408 | 
37-408  38- 8-294 29-38 40-304 41-25 41-25 41-25 41-25 61-25 41-25 41-25 41-25 41-25 | 
41-258 41-258 41-254 463-30 43-308 43- 43-34 43-34 63-348 43-42 43-428 43-44 43-44 | 
43-44 43 4 43-4648 463-448 63-448 44-26 44-264 44-30 4-30 44-30 44-308 44-38 44-384 
44-4 44-40 44-40 4-40 4 44-40 44-408 44-408 44-408 - 5-94 45-12 45-12 45-12 
45-128 45-19 45-198 45-21 45-21 45-21 45-21 45-21 45-21 45-218 45-218 45-214 9 
46-1 46-12 46-12 46-124 46-19 46-19% 46-21 46-21 46-21 -21 6-21 46-21 46-218 46-214 
46-218 47-18 7-184 $578! 47-21 47-21 47-214 47-29 47-298 47-31 47-31 47-31 47-31 47-31 | 
47- 47-318 47-314 47-318 48-1 48-184 - 48-21 - 48-218 48-29 48-298 48-31 48-31 | 
48-31 48-31 48-31 48-31 48-318 48-314 48-314 | 
REGUS 33 30-33 30-334 31-50 31-50 31-504 32-22 32-22 39-22" 33-36 33-36 33-364 37-40 37-40 
37-408 41-25 41-25 41-25 41-25 41-254 41-258 61-258 63-44 43-44 43-448 44-40 44-40 44-404 
45-21 45-21 45-214 46-21 46-21 46-214 47-31 47-31 47-314 48-31 48-31 48-314 | 
RERRCA 59-33 59-384 
RERROR 27-41 26 28 9-37 30-24 30-26 0-33 31-27 31-38 31-41 31-48 31-50 32-10 32-13 
-20 22 3-36 7-23 37-27 37-38 7-40 38-29 40-30 41-25 43-30 43-34 43-42 43-44 
44-26 44-30 44-38 44-40 45-9 45-12 45-19 45-21 46-9 46-12 46-19 46-21 47-18 47-21 
47-29 47-31 48-18 48-21 48-29 48-31 59-74 
RERRPA 59-348 59-37 i 
TS 4-78 
REVECT 4-634 | 
REVS -16# j 
4-324 
RSTOP -80# 
5 20-444 
-11 45-44 
RW. ANG 748 
RW .BUF -6 } 
RW. CMD 728 
—y ® 714 
e = | 
Rucsol | S<73e 
RW. m vr 
SAVREG 19- 27-29% 27-31% 27-3 33 33* 31-50 31-50" 32-22 32-22" 33-36 33-36" 37-40 37-409 | 
re 1 41-25 41-25" 63-44 2 * 644-40 44-408 36-38 36-3 ® 66-21 46-21* 47-31 47-31 
VRID 19-174 at 40-4 40-81 
vere ym rd 1-5« 31-24* 31-29% 33-2 36-2* 36-6" 
SOI 19-148 27-49e 28-342 29-13 36-5 36-10 36-15 37-15 38-10 38-23 39-4 39-26 40-53 42-4 


43-23 44-19 49-9 








UDAT2 DISK RESIDENT DMACR X04.01 13-APR=82 18:06:42 PAGE S-9 
CROSS REFERENCE TABLE (CREF V04.00 ) 


SDILTO 19-384 $7" 
SDISTO 19-374 os 
SDIVER : 


4-4 

SEND 3-78 3-43 

SENDHR 19-314 7-12 
0-1654 


 ] 
J 
oO 
mr 
Ww 
rw 
o 
oa 


ST 
ST. 
ST.RTY 31 
ST.RU Of 36-2 
ST.S7 84 
ST.SR 384 36-6 
ST.STA = 
4 


T. 31-22 
STACK 18-8 ee 
TART 18-9 6a 
STATO 49-7 92 
STATEX 54-16 4-18 
STATLP 54-94 4-14 


35-33. 56-22 


36-13 
37-17% 38-3* 56-26* 


20-15 20-19 20-25 0-30 
38-4 39-15 39-27 9-30 
49-13 49-16 50-28 51-47 


39-16 


28-37 


54-228 
54-20 


0-39 20-43 20-45 
9-33* 40-10 40-12 


sea 153 


32-24 


31-21 | 
40-42 40-48* 





UDAT2 DISK RESIDENT DMACR Xx04.01 1o.aPn-Se 18:06:42 PAGE S-10 
CROSS REFERENCE TABLE (CREF V04.00 


ERR 


54-12 
3-104 


54-178 
49-10 


56-43 


56-45 
37-16 


58-14 


37-26 
28-25 
28-23* 
tad 
2-17 


33-6* 
40-45 


40-54 


56-474 
43-24 


43-33 


33-7« 
40-50 


44-184 


43-41 44-37 
32-244 

44-20 45-5 

44-29 45-11 
41-3* 

25-26 26-7 

43-39 44-35 


33-8 33-9* 
40-58*  40-75* 


L 12 


45-18 46-18 47-28 48-28 49~44 


46-5 47-11 48-11 56-124 


46-11 47-20 48-20 52-164 


26-36 839 27-24 28-13 
45-16 46-16 47-26 48-26 


33-10" 34-11" «34-128 «34-17% «= 54-18 


a ne nn — an nn ne ee oes 


SEQ 154 


40-21 


sae 







UDAT2 DISK RESIDENT DMACR X04.01 1ore-Se 18:06:42 PAGE S-11 
CROSS REFERENCE TABLE (CREF V04.00 ) 


x 
XWRITE 3-68 





M12 





SEQ 155 


SEQ 156 
UDAT2 DISK RESIDENT DMACR X04.01 [s,nra-Se 18:06:42 PAGE M-1 
CROSS REFERENCE TABLE (CREF V04.00 


-BLKW ignse 19=21 20-23 22-5 


9- 
ERRHRD 99-39% 27-41 29-26 = 29-28 = 29-37 = 30-24 «= 30-26 = 30-33 31-27 31-38 «= «31-41 31-48 31-30 34-18 


ERROR 10-614 26-38 
ERRORS 10-34 27-41 29-26 $3-¢8 29-37 30-24 30-26 30-33 31-27 31-38 31-41 31-48 31-50 4-19 


ERRSF 9-278 | 

ERRSFT 9-474 | 
TP$ / jf 1 54 30-33 31-50) 32-22, 33-36 = 37-40 41-25. 41-25) 41-25 434446 4045-21 6-21 7281 

MOVMSG 12-19% 26-38 38-33 51-53 | 

MSG 6-17 20-12 = 20-15 20-19 = 20-25 = 20-30 = 20-33 20-39) 20-43 20445 

MSSGE 12-14 38-33 1-53 

OVTERM 2-39 2-394 2-39" 60-4 60-44 60-195 | 


UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 
TABLE OF CONTENTS | 


TEST 3 START AND LOOP ON UNITS 
a molt OVERLAY PROCESS FOR BRINGING IN OVERLAY 


ERROR EXIT 
FNDCYL = FIND CYLINDER 


3- 1 START OF TEST CODE 
4-1 UDA DM PROGRAM PARAMETERS 
8- 1 TEST 4 SPECIFIC. INFORMATION 
9- 1 MACRO DEFINITIONS 
21- 1 MACRO FOR OVERLAY T TABLE 
22-1 RTDS REAL TIME DRIVE STATE ROUTINE WITH ERROR REPORTING (TEST 4) 
22= 12 RTDSL = CALL RDSTAT 
22- 19 RDSTAT = GET DRIVE'S REAL TIME DRIVE STATE 
23-1 HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. 
25- 1 TALK = SDI LEVEL 2 INTERCHANGE ROUTINE 
26-1 TO = CALCULATE TIMEOUT INTERVALS 
26- 18 LINIT = INIT THE DRIVE 
27- STACK AREA 
1 
1 
1 








&n 


— ™ ~ 


Nm 


N 


1 
1 
1 
1 
1 
1 
0 
8 
1 
1 
8 
1 
5 
1 
1 
1 
6 
1 
1 
5 
1 
1 
1 
1 
1 
0 
1 
1 
1 
9 
1 
1 
1 
1 
1 
1 
1 
1 


sreet = STORE INFORMATION IN AREA ‘ST’ 


READ1 = READ SECTORS ON A TRACK FOR TEST 
UNITS, SDI COMMANDS AND PROGRAM VARIABLES 
DATA PATTERNS 


START, GETU<POLL Au PORTS>, RBUFD, & FCHAIN 

GETU © = POLL ALL PORTS, THEN GET UNITS TO TEST 

REST OF FORMAT CHAIN 

MESSAGES 

OVERLAY 1 = SETUP ( AND START TESTING ) 

INIT DRIVE AND LOOK AT DRIVE SIGNALS 

GET DRIVE CHARACTERISTICS 

ISSUE ONLINE COMMAND 

ISSUE ON NE COMMAND 

ISSUE DRIVE CLEAR COMMAND 

ISSUE CHANGE MODE COMMAND 

SPIN UP DRIV 

ISSUE INITIATE RECALIBRATE < COnmAn 

GET SUBUNIT CHARACTERIST 

SEEK TO CYLINDER 0. GR SUP % 

CALCULATE NUMBERS 

READ ALL FACTORY FORMATTED TRACKS 

SEEK TO SELECTED GROUP, READ NDR SEEK TO DIAGNOSTIC AREA 
HECK WRITE PROTE 


CHANGE MODE TO ALLOW cote AND WRITING 


ee 
WRTCMP = WRITE A DATA PATTERN AND COMPARE 
ate A_PATTERN 


CMPDAT = COMPARE DATA 
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UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR=82 18:08:21 PAGE 2. 
DIAGNOSTIC MACHINE MACROS = OVERLAY VERSION WITH RELOCATION’ 

TITLE UDAT3 DISK FUNCTIONAL 

PA ; 

5 : COPYRIGHT (C) 1981 

8 : DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

8 : 

9 : THIs SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
10 : SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
11 : OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER 
1g : COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
1 : TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
14 $ WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
15 : THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 

17 : THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
18 : NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
19 : EQUIPMENT CORPORATION. 
21 : DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
32 > ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
24 : 
25 sal : 

3s : 
28 : 
29 : 

30 

32 THIS PROGRAM SHALL BE ASSEMBLED WITH THE PROGRAM DMACRO 

33 ZUSING A COMMAND LINE SIMILAR 

35 : UDAT3 sateen Saati 

3 STHEN LINK THE OBJECT FILE USING A COMMAND LINE SIMILAR TO: 
39 ¢ UDAT3.BIN/L=UDAT3 
41 ‘ 


42 000000 TEST4 == 0 : THIS IS NOT TEST4 


EE - - -5 


SEQ 157 







UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 3 
START OF TEST CODE 


1 -SBTTL START OF TEST CODE 
5 000000 DMCODE UDADM3,0,714,3,0,1000 
5 000714 114007 CLR RO 


s INITIALIZE STACK 
104206 001542 MOV #STACK,SP 
BR START 


oy 
N00 0ONO 





: CHANGE TO BREAKPOINT FOR DEBUG 


3SET UP STACK POINTER 
: BRANCH OVER SUPPORT CODE 


SEQ 158 


E 13 | 
SEQ 159 
UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 4 
UDA DM PROGRAM PARAMETERS 


} .SBTTL UDA DM PROGRAM PARAMETERS 

; LIST MEB 

3 : EQUATES 

f : HIGHEST USABLE LOCATION OF UDA MEMORY + 1 | 

9 007774 HIMEM = 7776 ; HIGH MEMO 
10 007774 OVSTRT = 7774 + OVERLAY ADDRESS LOCATION | 
12 : 
a7 3 OFFSETS FOR FORMAT TRACK TABLE | 
15 000000 FT.BUF = 0. BUFFER POINTER OFFSET | 
16 000001 FT.HI = 1. SHI ORDER HEADER OFFSET 
7 000002 FT.LOW = 2. SLOW ORDER HEADER OFFSET 
19 : 
20 : OFFSETS FOR FORMAT TRACK BUFFER | 
52 000000 FB.DAT = 0. FIRST DATA WORD OFFSET | 
33 000400 FB.EDC = 256. SEDC WORD OFFSET : 
25 : 
26 : OFFSETS FOR READ/WRITE 1/0 CHAIN TABLES | 
28 000000 RW.STAT = 0. ZSTATUS AND NEXT BUFFER POINTER OFFSET 
29 000001 RW.BUF = . :POINTER TO DATA BUFFER 
30 000002 “LOW = c SHI ORDER EXPECTED HEADER 

31 000003 “HI = : :LOW ORDER EXPECTED HEADER 

32 000004 RW.CMD = 4: DI COMMAND AND HEAD ADDRESS 

33 000005 “SDI = . SDUMMY SDI CONTROL BLOCK POINTER 

34 000006 “ANG = : THETA FROM INDEX 
36 : CONSTANTS FOR READ AND WRITE XFC'S 
38 140000 WsTOP = 140000 : LAST ENTRY IN CHAIN FOR WRITE 

39 040000 WCONT = 40000 : WRITE 
40 100000 RSTOP = 100000 t LAST ENTRY IN CHAIN FOR READ 
41 000000 RCONT = 0 : READ CONTI 
4 100000 FSTOP = 100000 : LAST ENTRY IN CHAIN FOR FORMAT 
4 122400 WREAL = 122400 : WRITE REAL TIME ECOMMAND 
46 013400 RREAL = 13400 + READ REAL TI 
45 010000 ECCFLG = 10000 : ECC ERROR IN BUFFER BIT | 
46 100000 EOC : 100000 : END OF CHAIN 
47 040000 BUFFLG = 40000 + BUFFER FULL OR EMPTY FLAG | 
48 001750 SND = 1000. 
49 : | 
50 : } 
51 : HEADER CODES 
3g 000000 HD.LBN = : 600 LBN | 
54 960000 HD. = 060000 PERHAPS UNUSED | 
55 0 HD:REV = 030000 EREVECTORED LBN | 
56 110000 HD. = 11000 Ck 
57 050000 “PRV = 05000 TPRIMARY REVECTORED BLOCK | 

| 





GPOP 900298 00 AINA INAV VAS LODO RA NT VN : 





UDAT3 DISK Son bane DMACR X04.01 13-APR-82 18:08:21 PAGE 4-1 
UDA ARAME TERS 


120000 
140000 


070400 
131000 
152000 
107000 








= 120000 3;XBN BLOCK 

= 140000 3;DBN BLOCK 

LEVEL 1 CODES 

= 70400 sMESSAGE START 

= 131000 [MESSAGE END 

= 152000 sMESSAGE CONTINUE 

= 107000 ;SELECT GROUP 
OFFSETS FOR DATA BUFFERS 

= 0. DATA 

= 256. sERROR DETECTION CODE 
= 257. sLAST 17 ECC RESIDUES 


BUFFER AND READ/WRITE CHAIN LINK SIZES 


= 257. 3; WRITE BUFFER SIZE 
= WBUFLN+12. 3; READ BUFFER SIZE 
= 7. 3; LINK SIZE 

UNIT PARAMETER USED BY TEST3 

= 50 

= 63 


FORMAT CHAIN SIZE 
255.*3 
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UDAT3 ca nie BL we | DMACR X04.01 13-APR-82 18:08:21 PAGE 5 
UDA DM PROGRAM PARAMETERS 


- 


SEQ 161 


} : XFC DEFINITION EQUATES 
3 000000 BREAK = 0. BREAKPOINT XFC CODE 
4 000001 ORMAT = ie sFORMAT TRACK XFC CODE 
5 ied XREAD = ¢- READ N SECTORS XFC CODE 
6 00000 XWRITE = . sWRITE N SECTORS XFC CODE 
7 000004 SEND = 4. SEND SDI COMMAND XFC CODE 
8 000005 RCV = 5. SRECEIVE SDI ATESSAGE X C CODE 
9 000006 COMPARE = 6. COMPARE DATA PAT TERNS TO BUFFER 
10 000007 STATUS = 7. RETURN DRIVE STATUS XFC CODE 
11 000010 CHO = 8. [ECHO DATA TO DRI ve mre CODE 
12 000011 DINIT = 9. DRIVE INITIALIZE X ODE 
13 000012 WAITSI = 10. SWAIT FOR SECTOR on tNoEK PULSE 
14 000013 UREAD = 11, 3 UNIBUS MEMORY XFC CODE 
15 000014 UWRITE = 12. WRITE UNIBUS MEMORY XFC CODE 
16 000015 ECC = 13. 3 CC ON FER XFC CODE 
17 000016 MRD = 14, SEND BUFFER TO MAINTENANCE 
18 600017 = 15. GET BUFFER FROM MAINTENANCE WRITE COMMAND 
i3 000020 vT = 16. 3CON VERT TO PHYSICAL ADDRESS XFC CODE 
$0 000021 EXIT = 17. TERMINATE DM PROGRAM XFC CODE 
$¢ 3 GET STATUS OFFSETS 
24 000000 ST.UNT = 0. ;UNIT 
25 000000 ST.MSK = 0. 3 SUBUNIT 
26 000001 STA = 1. : STATUS arte. 
27 000001 7 = 1, s008 BYTE 
28 000002 ST.ERR = 2. TERROR BYTE 
29 000002 “ = 2. : CONTROLLER BYTE 
30 000002 = ¢° 
a 000003 ST.RTY = . TRETRY COUNT/FAILURE CODE 
tz 3 STATUS BIT DEFINITIONS 
35 000010 ST.EL = 10 : LOGGABLE INFO IN EXTENDED STATUS 
36 000200 ST.OA = 200 3 ONLINE TO ANOTHER (SET IF DRIVE UNAVA E) 
37 000100 ST.RR = 100 3 READJUSTMENT BIT (SET IF RECALIBRATION REQUIRED) 
38 000040 ST.DR = 40 3 DIAGNOSTIC REQUEST (SET IF DI sric REQUESTED) 
39 000020 ST.SR = ¢0 3 NDLE READY (SET IF SPINDLE 
40 000002 ST.PS = 3 PORT SWITCH (SET IF PORT SWITCH 
41 000001 ST.RU = 1 3 RUN/STOP SWITCH (SET IF RUN/STOP SuITeN IN) 
$e 000200 ST.FE = 200 3 FATAL ERROR (SET IF FA ER 
4 000100 ST.RE = 100 3 RETRIABLE ERROR (SET IF RETRIABLE ERROR OCCURRED? 
44 000040 ST.PE = 40 3 PROTO ERROR (SET IF PROT c 
45 000020 ST.DF = 20 3 INITIALIZATION FAILURE (SET IF INIT FAILED) 
46 000010 ST.WE = 10 3 E (SET IF WRT ATT ON DISK) 
47 002000 ST.FO = 2000 3 TTING (SET IF F TTING E 
48 001000 ST.DB = 1000 3 DIAGNOSTIC CYLS (SET IF DIAG CYL ACCESS ENABLED) 
49 000400 ST.S7 = 400 3: SECTOR SIZE (SET FOR 576 BYTE SECTORS) 


H 13 


SEQ 162 
UDAT3 3 DISK FUNCTIONAL DMACR X04.01 13=APR=82 18:08:21 PAGE 6 
UDA DM PROGRAM PARAMETERS 
\ : GET COMMON CHARACTERISTICS OFFSETS 
3 000000 SHRTTO = 0. zSHORT TIMEOUT <3:0> | 
4 000000 SDIVER = 0. ‘SDI VERSION <7:4> | 
5 000000 XFERRT = 0. :TRANSFER RATE <15:0> | 
6 000001 LONGTO = 1. [LONG TIMEOUT <3:0> 
7 000001 RETS = 1. *RETRIES <7:4> 
8 000001 RCTCPS = 1. SF/RCT COPIES <11:8> 
9 000001 S$ = * SSECTOR SIZE <15:15> 
10 000002 ERLEV = 2. SERROR RETRY LEVELS <7:0> 
11 00000 ECCRSH = é- ZECC T LD <15:8> 
12 00000 MICREV = : SMICROCODE REVISION NUMBER <7:0> 
13 000003 HRDREV = 3, 3HARDWARE REVISION NUMBER <15:8> 
14 000004 DRVID = 4. UNIQUE DRIVE ID <47: | 
15 000007 DRTYPE = = {DRIVE TYPE IDENTIFIER <7:0> 
16 000007 REVS = 7. SREVS/SECOND <15:8> | 
Py | 
18 : GET SUBUNIT CHARACTERISTICS OFFSETS 
20 ZTHESE OFFSETS ARE CURRENTLY GIVEN AS FOLLOWING THE COMMON CHARACTERISTICS 
22 000013 SUB 2 11. ZOFFSET TO PUT SUBUNIT AFTER COMMON; | 
23 000000 LBNCYL = 0. NUMBER OF CYLINDERS IN LBN AREA <31:0> | 
24 000001 HICYL = 1. THI ORDER CYLINDER BITS <15:12> 
25 000002 GRPCYL = 2. [GROUPS PER CYLINDER <7:0> 
26 000002 HIL6N = : ZHI STARTING LBN <11:8> | 
27 00000 H = ; ZHI TING XBN <15:12> 
28 00000 TRKGRP = ’ ZTRACKS PER GROUP <7:0> 
29 000003 HIRBN = 3. ZHI STARTING RBN <11:8> 
30 000003 H = 3. tH STARTING DBN <15:12> 
31 000004 RBNTRK = 4. sRBNS PER TRACK <6:0> 
32 000004 = 4. 3REMOVABLE MEDIA <7:72 1=REMOVEABLE 
33 000005 DATPRE = 5. DATA PREAMBLE SIZE IN WORDS <7:0> 
34 000005 HDRPRE = 5. SHEADER PREAMBLE SIZE IN WORDS <15:8> 
a4 000004 MEDTYP = 6. SMEDIA TYPE <31:0> : 
36 000010 FCTSIZ = 8. zFct COPY SIZE 13:@ | 
37 000011 LONTRK = 9. RT <?: 
38 000011 GRPOFF = 9. # GROUP OFFSET (sécTORS) <15: 8> 
39 000012 LBNHST = 10. [LANS IN HOST AREA 
40 000014 RCTCSZ = Ie. sRCT COPY SIZE <15:0> 
41 000021 XBNCYL = 17. ZCYL XBN AREA <15:0> 
42 000022 DBNCYL = 18. :CYLS IN DBN AREA <15:8> | 
6 : UNIT CODES 
46 000001 UNITO = .. ZUNIT ZERO CODE 
47 000002 UNIT1 = - SUNIT ONE CODE | 
48 000004 UNIT2 = . [UNIT TWO CODE 
9 000010 UNITS) = 8. [UNIT THREE CODE 
5 : BIT MASK DEFINITIONS 
5 : | 
54 177400 HIBYTE = 177400 :HIGH BYTE MASK | 
55 90037 LOBYTE = [LOW BYTE MASK 
36 007777 HBHINB = 3H] BYTE, HI NIBBLE MASK 
5 170377 HBL = 170377 HI BYTE. LO NIBBLE MASK | 








I 13 









SEQ 163 
UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 6-1 
UDA DM PROGR ERS 


AM PARAMET 
58 177417 LBHINB = 177617 :LO BYTE, HI NIBBLE MASK 

59 177760 LBLONB = 177760 [LO BYTE, LO NIBBLE MASK 

61 000001 TIMEOUT = 1. :DRIVE TIMEOUT CODE 

62 000002 HEADER = 2. THEADER COMPARE FAILURE CODE 

63 000004 REVECT = 4. TREVECTOR NEEDED CODE : 
65 000002 6 = 2. ZFIRST WORD NOT START FRAME CODE | 
66 FRAME = ™ SFRAMING ERROR CODE | 
67 000010 CHECK = 8. [CHECKSUM ERROR CODE ! 
69 000001 TOOBIG = 1. NUMBER OF WORDS EXCEEDS 7064 | 
20 000002 = 2: [0M BUFFER ADDRESS IS LESS THAN 714 | 
2 3 BIT MASK | 
7% 000001 LARGE :BLOCK NUMBER TOO LARGE 


OVERFL sSECTOR NUMBER LARGER THAN 16 BITS 





J 13 


SEQ 164 
UDATS 3 DIS FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 7 

DM PROGRAM PARAMETERS 

4 sMAINTANENCE READ/WRITE REQUEST NUMBERS 

3 060000 TIMSIZ = 0.+60000 7GET FREE MEMORY PARAMETERS 

4 060001 T20LL = 1.+60000 SDOWNLINE LOAD DRIVE DIAGNO sTIC 

5 06000 T2CMD = g- #60000 ZMANUAL INTERVENTION TEST es, TOCOL 

6 06000 T4MPRM = - #60000 3GET MASTER PARAMETER SF on Su" QUESTIONS 

? 060004 T4UPRM = 4.+60000 7GET UNIT PARAMETERS FROM HW QUESTIONS 

8 060005 14881 = 5. +60000 3GET BAD BLOCKS (1 THRU 

9 060006 T4882. = 6.+60000 :GET REST OF BAD BLOCKS (15 AND 16) 
10 060007 T4SOFT = 7.+60000 zADD TO SOFT ERROR AND ECC 
11 060010 T4SEEK = 8.+60000 zADD 1 TO SEEK C 
12 060011 T4MXFR = 9.+60000 zADD TO MEGABITS READ AND WRITTEN 
13 06001 UTOTST = 10.+60000 :GET UNITS TO TE 
14 06001 ERRMES = 11.+60000 ZPRINT ERROR MESSAGE 
15 060014 RRMC = 12.+60000 3TEST 4 ERROR REPORTING 
16 060015 MESSAG = 13. #60000 * SINFORMATION MESSAGE 
Vv 060016 DONE = 14. +60000 zMARK DM PROGRAM AS NO LONGER RUNNING 
8 3 OTHER BIT DEFINITIIONS | 
21 000001 RCVRDY = 1 3 RECIEVER READY 1 = READ | 
22 000002 TIN = 2 3 ATTENTION BIT FOR RETURN DRIVE SIGNALS XFC | 
23 000004 DCLOCK = 4 : TRANSALT ERROR 
24 000100 AIL = 100 3 AVA ILABLE x - = AVAILABLE | 
25 000400 RCVERR = 400 3 RECIEVER 
$8 100000 RWRDY = 100000 : IF SET, uDAY ts ABLE TO READ AND/OR WRITE TO DRIVE | 
$8 : SDI COMMANDS AND RESPONSES 
30 000204 CON = 204 3 DISCONNECT DRIVE | 
31 000006 ERECOV = 6 : ERROR RECOVERY 
32 000201 = 201 3 CHANGE MODE | 
33 000213 DRVONL = 213 3 DRIVE ONLINE | 
34 000014 RVRUN = 14 3 DRIVE RUN 
35 000005 DRVCLR = 5 3 DRIVE CLEAR OPCODE 
36 000207 GETCHR = 207 3 GET CHARACTERISTICS 
37 000210 TSUB = 210 3 GET SUBUNIT CHARACTERISTICS 
38 000011 GETSTA = 11 : GET STATUS | 
39 - 000216 IRECLB = 216 3 RECALIBRATE 
40 000012 INSEEK = iF : INITIATE SEEK 
41 000176 COMPLT = 176 3 SUCCESSFUL COMPLETI 
42 000175 UNSSUC = 175 3 UNSUCCESSFUL COMPLETION 
4 000170 CHRRES = 170 3 GET CHARACTERISTICS RESPONSE 
44 000167 SBCRES = 167 3 GET SUBUNIT CHARACTERISTICS RESPONSE 
45 000366 STSRES = 366 : GET STATUS RESPON 
46 000350 ECHOC = 50 : DIAGNOSTIC ECHO COMMAND AND RESPONSE | 
48 : ERROR CODES 
50 000000 FTILSYS = : SYSTEM FATAL ERROR 
51 040000 FILDEV = 40000 3 DEVICE FATAL 
3 100000 = 100000 3 HARD ERROR 
5 140000 ERSOFT = 140000 > SOFT ERROR 
54 040000 = <ERHARDG*CERSOF T>! <ERSOF T@*CERHARD> 3 CHANGE SOFT TO HARD ERROR 








OONOURWR— 


TEST 4 SPECIFIC INFORMATION 


eSBTTL TEST 4 SPECIFIC INFORMATION 


NUMBCR OF WORDS IN SECTOR TO FILL 
INITIAL EDC VALUE 


| tt jaggy ene RE 2 ea ee AR ae oe Sa . ; 
diy SEQ 166 


UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR=82 18:08:21 PAGE 9 
MACRO DEFINITIONS 
1 .SBTTL MACRO DEFINITIONS 
5 : MESSAGE CONTROL TABLE MACRO 
5 . -MACRO MSG CMDBUF,CMDSZ,RPLBUF, RPLSZ SUCCOM 
6 <WORD CMDBUF DRESS OF COMMAND 
? <WORD CMDSZ serze F COMMAND IN BYTES 
aR ;WORD RPLBUF «ADDRESS OF REPLY 
9 ;WORD RPLSZ SSIZE OF REPLY IN WORDS 
10 IF NB NUMBER 
I -WORD SUCCOM z SUCCESSFUL COMPLETION CODE 
13 ENDM 





UDA 
MAC 


13 
RO 


DISK FUNCT 
DEFINITION 


I 
Ss 





ONAL DMACR X04.01 135-APR-82 18:08:21 PAGE 10 
«MACRO BCS 


Mm 13 


LAB. e 





UDAT3 DIS 
MACRO 





N 13 





TIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 11 


4 
m 
wn" 
— 
=$ 
me 
o 
a= 


N 
PUSH REGISTER MACRO 


«MACRO PUSH R9 
eIRP X,<R9> 


-ENDR 
-ENDM 


POP REGISTER MACRO 


MACRO POP R9 
-IRP X,<R9> 


-ENDR 
~ENDM 


VSWN =O DCONAMUSWh= 


1 
1 
1 
1 
1 
1 


MOV X,=(SP) 


MOV (SP)+,Xx 









UDATS DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 12 
MACRO DEFINITIONS 


PONTO 2 2 ot es 
RW SOWNANRWUSBOOONOURWNS 





sERROR MACROS 

see MACROS ARE CALLED TO REPORT ERRORS TO THE HOST PROGRAM. 
THE MACRO NAMES ER val yee ERRHRD, ERRSFT. EACH RESULTS IN THE HOST 

BEING _ TO REPORT T 

; ARGUMENT MS$) RESSAGE POINTER 


5 (Pas) PARAMETER #8 

THE MESSAGE POINTER MUST POINT TO AN ADDRESS IN THE OVERLAY ‘™MS‘’ IMMEDIATELY 
3FOLLOWIN G THE MAIN CODE. ANY ADDRESS MODE MAY USE S1, @R 

3 THE “11a MUST CONTAIN AN ASCII FORMAT STRING TO DETERMINE THE MESSAGE 
THE PARAMETER ARGUMENTS ARE OPTIONAL. THEY SHOULD BE SUPPLIED ONLY WHEN 
THERE IS ali TO BE otis TO THE HOST THAT WILL BE USED IN PRINTING THE 
MESSAGE. THESE PARAME ARGUMENTS ARE THE ADDRESS OF DATA TO BE PASSED 
sUSING ADDRESSI IRED. 
sALL_REGISTERS ARE RETURNED UNCHANGED. IT SHOULD * ane THAT fe 
s CONTAINING SOMETHING OTHER THAN A REGISTER NAME (E.G. #100 OR MEMA 
ASSEMBLE TO INSTRUCTIONS THAT SAVE AND RESTORE A REGISTER ON THE STACK. 


-MACRO ERRSF MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S 
NARG ARGS$ 


eRADIX 10 

— FTLSYS ,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$,\ERRN 
-MACRO ERRDF MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S 

eNARG ARGS$ 

eRADIX 10 

—— FTLDEV.MS$,P1$,P2$ ,P3$,.P4$,P5$,P6$,P7$,P8$, \ERRN 


-MACRO ERRHRD MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S 

-NARG ARGSS 

“RADIX 10 

ERRORS ERHARD ,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S, \ERRN 


-MACRO ERRSFT MS$,P1$,P2$,P3$,P4$,P5$,P6$.P7$,P8$ 
NARG ARGS$ 


eRADIX 10 
— ERSOFT ,MS$,P1$,P2$,P3$,P4$,P5$,P6$.P7$,P8$, \ERRN 


SEQ 16 





C 14 





-MACRO PARGS. ,ADDRS 
ae PTYPES, ADDRS 
-IF EQ,<PTYPES&70> 
fe EQ,<PTYPES&7>-REGSS,RSTR$ \REGSS 


MOV ADDRS$,-(SP) 


: misy 
-IF EQ,<PTYPES&7>~-1 sPICK A REGISTER TO USE 
_Resuse2 sSELECT R2 IF R1 IS USED IN PARAMETER FETCH 
Ps ce, sOTHERWISE USE R1 
-IF NE .<REGUS-REGSS> zIF REGISTER NOT ALREADY SAVED 
nstné. \REGSS sRESTORE CURRENT SAVED REGISTER 
saves \REGUS sTHEN SAVE SELECTED REGISTER 


-EN 
GETPS \REGSS$,ADDRS 
-ENDC 
-ENDM 


RUNS SESSSRSSSS VESEY 


eats DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 13 
RO DEFINITIONS 
3; THE FOLLOWING MACRO ACTUALLY PROCESSES THE ERROR CALL TO THE HOST PROGRAM 
? MACRO + ETS, MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S, ERRNS 
5 BRMS=ARGSS=1 
6 IF LT,<PRMS> 
7 -E ROR; NOT ENOUGH ARGUMENTS IN ERROR CALL 
8 -ENDC 
9 REGS$=-1 
10 -lIF GE,<PRMS-8.>,PARGS. P8&$ 
11 -lIF GE. <PRMS-7. >,PARGS. P7$ 
12 olIlF »<PRMS ->,PARGS. 6$ 
13 -1IF GE,<PRMS-5.>,PARGS. P5$ 
14 elIF GE,<PRMS-4.>,PARGS. P4$ 
15 oIIF GE,<PRMS-3.>,PARGS. P3$ 
16 ~lIF GE,<PRMS-2.>,PARGS. P2$ 
17 ollF GE .<PRMS-1. >,PARGS. P1$ 
18 IF GE REGS$ 
19 RSTR$ \REGSS 
20 -ENDC 
21 SRADIX 10 
22 LIST 
23 CALL RERROR sERROR # ERRNS’. 
24 eNLIST 
25 RADIX 8 
26 LIST 
27 «WORD ETS$+ERRN 
28 «WORD <PRMS*10000>+mMS$ 
eNLIST 
ERRN=ERRN+1 
-ENDM 


SEQ 170 





D 14 






UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 14 
MACRO DEFINITIONS 


eMACRO_SAVR$ REGN 
«LIST 


eNLIST 
REGSS=REGN 
~ENDM 


»MACRO_RSTR$ REGN 
«LIST 


eNLIST 
REGS$=-1 
NDM 


-MACRO GETP$ REGN,ADDRS 
«LIST 


SOONAUVUSWN =O OONOU LW 


OND et ek et et ot ot ot os Ls os 


eNLIST 
ENDM 


MOV R*REGN, SAVREG 


MOV SAVREG,R’REGN 


MOV ADDRS,R°REGN 
MOV R°REGN,=(SP) 


SEQ 171 


E 14 


UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 15 
MACRO DEFINITIONS 


1 : 
¢ : PRIMARY ERROR REPORTING (TEST 4) 
4 .MACRO SOFTER NUM,ARGS 
5 ERROR ERSOFT,NUM,<ARGS> 
6 MOV #ERRMES ,OUT.RO 
‘ ~ENDM | 
9 «MACRO REPSFT SFTFLG.ECCFG,SEKFLG | 
10 IF NB, SFTFLG 
11 MOV #1,0UT.02 
12 oIFF 
13 CLR ouT.02 | 
14 -ENDC 
15 IF NB,ECCFG | 
16 MOV #1,0UT.03 
17 FF | 
18 CLR ouT.03 | 
19 -ENDC | 
20 IF NB, SEKFLG 
21 MOV #1,0UT.04 
23 CLR OUT.04 
24 -ENDC | 
25 PUSH RO 
26 MOV U.UNUM(RS5) ,RO 
27 ADD U. SUBUC(RS) ,RO 
28 MOV RO, OUT. 
29 MOV #T4SOFT,RO 
30 CALL HOSTRO 
31 POP RO 
32 .ENDM 
34 .MACRO HARDER NUM,ARGS | 
35 ERROR ERHARD,NUM,<ARGS> 
36 MOV #ERRMES ,OUT.RQ 
3 -ENDM 
39 -MACRO DEVFTL NUM,ARGS 
40 ERROR FTLDEV,NUM,<ARGS> 
41 MOV #ERRMES ,OUT.RQ 
; -ENDM 
44 -MACRO SYSFTL NUM,ARGS 
45 ERROR FTLSYS,NUM,<ARGS> 
46 MOV #ERRMES ,OUT.RO 
‘ ~ENDM | 
49 MACRO ERROR TYPE,NUM,ARGS 
50 -RADIX 10 
51 NUMPTR = 5 
5 MOVMSG #MS°NUM,4 
5 LIF NB, <ARGS> | 
54 .IRP =X, <ARGS> 
55 MOVMSG X,\NUMPTR 
56 , NUMPTR = NUMPTR ¢ 1 | 
' 


F 14 


UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 15-1 
MACRO DEFINITIONS | 
58 -ENDC 
59 MOV LUNIT,OUT.03 
60 MOV #NUM! TYPE+3000. ,R2 
61 MOV R2,0UT.02 
62 MOV #.,0UT.01 | 
63 «RADIX 
o ~ENDM 
66 -MACRO CERROR STNUM,ARGS 
67 eRADIX 10 
NUMPTR = STNUM 
69 -IRP  —_ KX, <ARGS> 
70 MOVMSG X,\NUMPTR 
71 NUMPTR = NUMPTR + 1 
72 -ENDR 
73 «RADIX | 
ee -ENDM 
76 -MACRO ERRORC ARGS 
77 eRADIX 10 
79 MOVMSG X,\NUMPTR | 
80 NUMPTR = NUMPTR + 1 
81 eENDR ' 
-¥4 »RADIX | 
HH -EN | 
aH -MACRO MOVMSG ARG, INDX | 
87 IF LT, INDX=-10 
88 MOV ARG, OUT.0° INDX 
89 ~1FF 
90 MOV ARG, OUT. * INDX | 
91 -ENDC 
92 EN 
Gz 
-MACRO ENDERR POS 
eRADIX 10 
IF NB,POS 
NDERR POS 
NDERR \NUMPTR 
~ENDC 
eRADIX 
~ENDM 


«MACRO NDERR POS 


s NE POs 
MOVMSG #SER22.POS 
MOV #POS+1,ERRPOS ; SET THE POSITION 


CLR ERRPOS : CLEAR THE POSITION. 


: MESSAGE REPORTING MACRO 


DeSadedadadadaSadadaSasasad 
RUNASSRVE ARAVA SSS IRAR 





S 
> 
~ 
Ww 


G 14 
SEQ 174 


TIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 15-2 


I 
NITIONS | 


2 
E 


SERRE PWWWWW MRMVMNVNNVNNNN 33 


ec ee ee ce ce ee ee ce cD ee ee ee ed ee ce ed ed ed ed ed od ed 


Soe 
ooo 


-MACRO a3se NUM, ARGS 


IR x > 
MOVMSG X,\NUMPTR 
NUMPTR = NUMPTR + 1 


PUSH <RO,R1> 
MOV L 

MOV 

CALL HOSTRQ 
POP <R1,R0> 


-MACRO os NUM, ARGS 


~ 
zx 


e 
m 
2 
So 
oo 


PUSH <RO,R1> 
MOV 


#MESSAG,RO 
CALL HOSTRQ 
POP <R1,RO> 


a 


SEQ 175 


H 14 
ONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 16 


sASSUME MACRO 
eMACRO ASSUME P1,P2 
olf NE ,P1=P2 
a : THE ASSUMPTION THAT THE ABOVE VALUES ARE = IS FALSE 





I 14 


UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR=82 18:08:21 PAGE 17 
MACRO DEFINITIONS | 


j sRETURN DRIVE STATUS MACRO WITH ERROR REPORTING 
2 «MACRO DOSTAT,LABS,E1,E2 
4 eNLIST 
5 -NLIST MEB 
6 eLIST ME 
7 LIST 
8 CALL RDSTAT 3; GET DRIVE STATUS 
9 BIT #10000,R1 3; SEE IF ANY ERRORS 
10 BEQ 2s g RROR, BRANCH 
11 BIT #4000,R1 ; SEE IF XMIT ERROR 
12 BEQ 1$ : IF SO, BRANCH 
13 eNLIST ME 
14 eLIST MEB 
15 DER €1 ; REPORT INVALID STATUS ERROR 
16 eNLIST MEB 
17 eLIST ME 
4 LABS ; BRANCH TO DONE 
20 eNLIST ME 
21 -LIST MEB 
22 HARDER E2 ; REPORT XMIT ERROR 
23 eNLIST MEB 
24 eLIST ME 
25 BR LABS ; BRANCH TO DONE 
26 2$: 


| 
| 
1$: | 
| 
| 
} 
| 








UDAT3 
MACRO 


i) 
i) 
1 
2 
3 
4 
5 
6 
7 
8 
9 


ISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 18 
EF INITIONS 
2 XOR THE CONTENTS OF TWO REGISTERS 
‘ «MACRO RXOR _REG1,REG2 
MOV REG2,-(SP) SAVE REGISTER REG2 


BIC REG1,REG2 
BIC (SP)+,REG1 
BIS REG1,REG2 


CLEAR COORESPONDING BITS IN REG2 
CLEAR COORESPONDING BITS IN REG1 
OR WHAT'S LEFT 


SEQ 177 


—— — HF 


SEQ 178 






CONVERT .BLKW CALLS TO ACTUAL WORDS GENERATED 
-MACRO .BLKW COUNT 

;REPT COUNT 

WORD 0 








UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 20 


I 
MACRO DEFINITIONS 
SDI INTERCHANGE WITH DRIVE WITH ERROR REPORTING 
»MACRO TALKX ERRLAB,E1,E2 


1 

2 

3 

& «NLIST 

5 eNLIST MEB 

6 LIST ME 

7? «LIST 

8 CALL TALK : INITIATE SDI INTERCHANGE 
9 TST R2 : SEE IF ERROR OCCURRED 
10 BEQ 12$ : IF NOT, BRANCH 

11 BPL 11$ : IF SO, BRANCH 

12 eNLIST ME 

13 etIST MEB 

14 HARDER €E1 :SEND COMMAND ERROR 

15 eNLIST MEB 

16 LIST 

17 ERRLAB 

18 

19 eNLIST ME 
20 LIST MEB 
21 HARDER €E2 sRECEIVE COMMAND ERROR 
22 eNLIST MEB ; 
23 s. T 
24 ERRLAB 
25 
26 eNLIST 
27 eNLIST ME 
28 LIST MEB 
29 

30 





UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR=-82 18:08:21 PAGE 21 
MACRO FOR OVERLAY TABLE 










.SBTTL MACRO FOR OVERLAY TABLE 
-MACRO DFOVLY LABL$,ONAME , SAREA, EAREA 

“WORD OVL. "ONAME' #4 

CIF NE, OCNT$=LABL$ 

-ERROR : OVERLAY NUMBER AND POSITION IN TABLE DO NOT MATCH 


OCNTS+1 


i ne —_— ~<--y 


SEQ 181 
UDATS DISK FUNCTIONAL DMACR X04.01 13-APR=82 18:08:21 PAGE 22 
TOS = REAL TIME DRIVE STATE ROUTINE WITH ERROR REPORTING (T 













} -SBTTL RTDS = REAL TIME DRIVE STATE ROUTINE WITH ERROR REPORTING (TEST 4) | 
: : DIFF BETWEEN SEND + RECEIVE ERRORS, REPORT HERE | 
5 000720 020746 RTDS: CALL RTDSL : GET REAL TIME DRIVE STATE | 
6 000721 115002 TST R2 3 SEE IF ERROR OCCURRED 
7 000722 010745 BEQ 1$ 3 IF NOT, BRANCH 
8 00072 DEVFTL 13 : REPORT DEVICE MEATAL ERROR 
000723 104200 000461 001037 MOV #MS13,0UT.04 
000726 104300 001475 001036 MOV UNIT, OUT.03 
000731 104202 045705 MOV PT SIF TLDEVS 3000. .R2 | 
000733 104020 001035 MOV R2,0UT.02 
000735 104200 000735 001034 MOV #.,0UT.01 
000740 104200 060013 001033 MOV #ERRMES ,OUT.RO 
9 000743 ENDERR 0 
000743 114000 003103 CLR ERRPOS : CLEAR THE POSITION 
10 000745 000000 1$: RETURN 
| 
12 -SBTTL RTDSL = CALL RDSTAT | 
13 000746 RTDSL: 
14 000746 104302 002636 MOV SDI,R2 3 GET INTERCONNECT CODE 
15 000750 020754 CALL RDSTAT | 
16 000751 103201 077674 BIC #077674,R1 3 CLEAR UNUSED BITS 
7 000753 000000 RETURN 
| 
19 -SBTTL RDSTAT = GET DRIVE'S REAL TIME DRIVE STATE 
$0 000754 RDSTAT: 
22 ZRETURN DRIVE STATUS 
33 ZSTATUS RETURNED IN DM REGISTER 1 
4 ; INPUT R2 MUST HAVE INTERCONNECT CODE 
27 000754 PUSH  <R3,RO> 3 SAVE R3 AND RO 
000754 100463 MOV R3,-(SP) 
000755 100467 MOV RO,-(SP) 
28 000756 104203 024000 MOV #24000,R3 3 ERROR COUNT | 
29 000760 060007 1$: XFC STATUS 3 GET DRIVE'’S STATUS 
30 000761 . 102201 000004 BIT #DCLOCK,R1 : SE IF DRIVE CLOCK IS PRESENT 
31 000763 010775 BEQ $ : IF ANCH 
32 000764 102201 000400 BIT #RCVERR,R1 : RECIEVER ERRORS 
33 000766 010774 BEQ 2$ 3 IF NOT VALID, BRANCH 
34 000767 117403 DEC R3 3 DECREMENT ERROR COUNT 
35 000770 050760 BNE 1$ : IF ERROR COUNT NON-ZERO, BRANCH 
000771 104202 177777 MOV #177777 ,R2 7 MARK AS RECEIVE ERROR 
37 000773 000775 BR 3$ 
38 000774 114002 2$: CLR R2 3 NOE 
39 000775 3$: PoP <RO,R3> : RESTORE Reo. R3 
000775 104267 MOV (SP)+,RO 
MOV (SP)+.R3 





000776 
40 000777 


2 


; RETURN TO CALLING MODULE 


B 15 82 
SEQ 182 
le DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 23 


STRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


| 
1 ~SBTTL HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. | 
¢ 001000 HOSTRQ: | 
4 sSEND REQUEST BUIFER TO HOST AND WAIT FOR RESPONSE. 
5 sCLEAR ARGUMENT AREA OF OUT BUFFER IN PREPARATION 
§ FOR NEXT HOSTRQ CALL. ! 
8 : INPUTS: | 
9 : RO = HOST REQUEST NUMBER 
19 ; OUT BUFFER LOADED WITH DATA 
12 001000 PUSH — <RO, R1,R2> 
001000 100467 MOV RO,-(SP) 
001001 100461 MOV R1,-(SP) 
901008 100462 MOV R2,-(SP) 
13 001003 104300 001475 001036 MOV LUNIT ,OUT.03 
14 001006 104070 001033 MOV RO,OUT.RQ ; STORE REQUEST NUMBER IN BUFFER 
15 001010 104207 001033 SNDAGN: MOV = #OUT.RO,RO ; SEND BUFFER TO HOST | 
16 001012 104201 000043 MOV = #BUFS1Z,R1 
17 001014 060016 XFC MRD 
18 001015 115001 TST R1 3 CHECK FOR ERROR 
19 001016 051010 BNE SNDAGN 3; IF ERROR, TRY AGAIN 
20 001017 104207 001033 MOV = #OUT.RQ,RO ; WAIT FOR RESPONSE FROM HOST 
21 001021 104201 000043 MOV  #BUFSIZ,R1 
22 001023 060017 XFC MWR 
23 001024 104200 177777 001033 MOV = #1, OUT. RO ; MAKE REQUEST ILLEGAL 
24 001027 PoP <#z ,R1,RO0> 
001027 104262 MOV (SP)+,R2 
001030 104261 MOV (SP)+-R1 | 
001031 10’ 267 MOV (SP)+,RO 
25 001032 002000 RETURN 
} 
| 
| 
| 


ae ee nn ne a ey 


¢ 15 

SEQ 183, 

UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR=-82 18:08:21 PAGE 24 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


1 gSTORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 
| 

$ yOUT BUFFER = DATA TO SEND TO HOST | 

5 001033 000000 OUT.RQ: .WORD 0 HOST REQUEST CODE | 

6 001034 000000 OUT.01: .WORD 0 :DATA ARGUMENT 1 

7 001035 000000 OUT.02: .WORD 0 ZDATA ARGUMENT é | 

8 001036 000000 OUT.03: .WORD 0 ZDATA ARGUMENT 

9 001037 000000 OUT.04: .WORD 0 :DATA ARGUMENT 4 | 

10 001040 000000 OUT.05: .WORD 0 ZDATA ARGUMENT 5 

11 001041 000000 OUT.06: .WORD 0 DATA ARGUMENT 6 | 

12 00106¢ 000000 OUT.07: .WORD 0 ZDATA ARGUMENT 7 

13 001043 000000 OUT.08: WORD 0 [DATA ARGUMENT 8 | 

14 001044 000000 OUT.09: .WORD 0 ZDATA ARGUMENT 9 

15 001045 000000 OUT.10: .WORD 0 ZDATA ARGUMENT 10 

16 001046 000000 OUT.11: .WORD 0 ZDATA ARGUMENT 11 

17 001047 000000 OUT.12: .WORD 0 ZDATA ARGUMENT 12 

18 001050 000000 OUT.13: .WORD 0 ZDATA ARGUMENT 13 | 

19 001051 000000 OUT.14: .WORD 0 ZDATA ARGUMENT 14 

20 90105¢ 000000 OUT.15: .WORD 0 3DATA ARGUMENT 15 

21 001053 000000 OUT.16: .WORD 0 ZDATA ARGUMENT 16 

22 001054 000000 OUT.17: .WORD 0 ZDATA ARGUMENT 17 

23 001055 000000 T.18: .WORD 0 ZDATA ARGUMENT 18 

24 001056 000000 -19: .WORD 0 ZDATA ARGUMENT 19 

25 001057 000000 OUT.20: .WORD 0 ZDATA ARGUMENT 20 | 

26 001060 000000 .21: .WORD 0 ZDATA ARGUMENT 21 

27 001061 000000 .22: .WORD 0 3DATA ARGUMENT 22 | 

28 90106¢ 000000 .23: .WORD 0 3DATA ARGUMENT 23 

29 001063 000000 .24: .WORD 0 :D GUMENT 24 

30 001064 000000 -25: .WORD 0 ZDATA ARGUMENT 25 

31 001065 000000 -26: .WORD 0 ZDATA ARGUMENT 

32 001066 000000 .27: .WORD 0 ZDATA ARGUMENT 27 | 

33 001067 000000 .28: .WORD 0 ZDATA ARGUMENT 28 

34 001070 000000 "59: “WORD 0 “DATA ARGUMENT | 

35 001071 000000 -30: .WORD 0 ZDATA ARGUMENT 30 

36 001072 000000 .31: .WORD 0 ZDATA ARGUMENT 31 

37 001073 000000 32 -WORD 0 ZDATA ARGUMENT 32 

38 001074 000000 33: .WORD 0 ZDATA ARGUMENT 33 

39 001075 000000 : -WORD 0 3DATA ARGUMENT 34 

40 000043 BUFSIZ = . > OUT.RO :SIZE OF BUFFER | 


D 15 
SEQ 184 
UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 25 

TALK = SOI LEVEL 2 INTERCHANGE ROUTINE 


1 .SBTTL TALK = SDI LEVEL 2 INTERCHANGE ROUTINE 
: 001076 TALK 
4 : TALK SENDS THE COMMAND TO THE DRIVE. IF AN ERROR OCCURRS, R2 IS 
2 : RETURNED NONZERO 
7 001076 PUSH <R4,R5> zy SAVE POINTER TO UNIT AND SUBUNIT PARAMETERS 
001076 100464 MOV R4,=(SP) 
001077 100465 MOV R5.=(SP) 
8 001100 104302 002636 MOV SD1,R2 : GET UNIT SDI SELECT MASK 
9 001102 104205 000001 MOV #1,R5 : SEND TIMEOUT DEFAULT IS ONE 
10 001104 104207 002644 MOV #SNDONE ,RO : MOVE SNDONE ADDRESS TO RO | 
11 001106 106037 CMP R3,RO : SEE IF ONLY TO BE SENT ONCE 
12 001107 041112 BCC 10 : IF $0, BRANCH 
13 001110 104205 001750 MOV #MAXSND RS + SEND MAXIMUM NUMBER OF TIMES (ONL INE) 
14 001112 104137 10$: MOV (R3) ,RO : POINTS TO SDI COMMAND BUFFER 
15 001113 104631 000001 MOV 1(R3),R1 : LOAD BYTE COUNT 
16 001115 060004 XFC SEND : SEND SDI COMMAND 
17 001116 115001 TST 1 : SEE IF SDI COMMAND SENT SUCESSFULLY 
18 001117 011145 BEQ 15$ : IF SO, BRANCH 
19 001120 117405 DEC : DECREMENT TIMEOUT 
20 001121 051112 BNE 10$ : IF UNEXPIRED, BRANCH 
21 001122 POP : RESTORE R5 
001128 104265 MOV (SP)+,R5 
22 00112 PUSH = R3 : SAVE SDI PACKET POINTER 
001123 100463 MOV R3,-(SP) 
23 001124 HARDER 1 
001124 104200 000000 001037 MOV #MS1,OUT.04 
001127 104 001475 001036 MOV LUNIT,OUT.03 
001132 104202 105671 MOV #1 !ERHARD+3000. ,R2 
001134 104020 001035 MOV R2,0UT.02 
001136 104200 001136 001034 MOV #..0U;.01 
001141 104200 060013 001033 MOV #ERRMES ,OUT.RO 
24 001144 001335 BR 50$ : BRANCH 
25 001145 15$: POP RS t RESTORE RS 
001145 104265 MOV (SP)+,R5 
26 001146 106203 002707 CMP #LONG,R3 : SEE IF LONG TIMEOUT TO BE USED 
27 001150 071154 BMI : IFS 
28 001151 104304 001461 MOV SDISTO,R4 | AG WAS SHORT TIMEOUT 
29 001153 001156 BR : BRANCH 
30 001154 104304 0014 20$: MOV SDILTO.R RG : R4 HAS LONG TIMEOUT 
31 001156 104637 00000 25$: MOV stn : POINT TO RECEIVE BUFFER 
32 001160 104631 00000 MOV R53), aT + NUMBER OF WORDS IN RESPONSE 
33 0011 PUSH : SAVE POINTER TO COMMAND 
001162 100463 MOV R3,-(SP) 
3% 001163 060005 KFC RCV : RECEIVE SDI RESPONSE 
5 001164 POP 3 : RESTORE R3 
001164 104263 MOV +,R3 
36 001165 115001 TST 1 : SEE IF SDI RESPONSE RECEIVED SUCESSFULLY 
7 001166 011412 BEQ 608 : IF $0 
38 001167 1 000001 CMP #1,R1 : SEE wif TIMEOUT 
39 001171 051216 BNE 308 : IF ANCH 
40 001172 404 DEC 4 : ae TIMEOUT VALUE 
41 001173 051156 BNE 25$ ; F LIMEOUT IESD REO BRANCH 
42 001174 PUSH RB : 
001174 100463 MOV R3,-(SP) 
43 001175 HARDER 2 





E 15 | 
SEQ 185 
Rare DISK FUNCTIONAL DMACR X04.01 i 18:08:21 PAGE 25-1 

ALK = SDI LEVEL 2 INTERCHANGE ROUTINE 


001175 104200 000014 001037 MOV #MS2,0UT.04 
001200 104300 001475 001036 MOV LUNIT ,OUT.03 
001203 104202 105672 MOV #2 ERHARD+3000. ,R2 
001205 104020 001035 MOV R2,0UT.02 
001207 104200 001207 001034 MOV #.,OUT.01 
001212 104200 060013 001033 MOV #ERRMES ,OUT.RO 
44 001215 001335 BR 50$ : BRANCH 
45 001216 106201 000002 30$: CMP #2,R1 t SEE IF FIRST WORD NOT START FRAME 
46 001220 051242 BNE 35$ : IF NOT, BRANCH 
47 001221 HARDER 3 
001221 104200 000032 001037 MOV #™S3,0UT.04 
001224 104300 001475 001036 MOV LUNIT,OUT.03 
001227 104202 105673 MOV #3 ERHARD+3000. ,R2 
001231 104020 001035 MOV R2,0UT.02 
001233 104200 001233 001034 MOV #..0UT. 
001236 104200 060013 001033 MOV #ERRMES ,OUT.RO 
48 001241 001335 BR 50$ : BRANCH 
49 001242 106201 000004 35$: CMP #4,R1 : SEE IF FRAMING ERROR 
50 001244 051266 BNE 40$ : IF NOT, BRANCH 
51 001245 HARDER 4 
001245 104200 000063 001037 MOV #MS4,OUT.04 
001250 104300 001475 001036 MOV LUNIT,OUT.03 
001253 104202 105674 MOV #4 'ERHARD+3000. ,R2 
001255 104020 001035 MOV R2,0UT.02 
001257 104200 001257 001034 MOV #..OUT.01 
1262 104200 060013 001033 MOV #ERRMES ,OUT.RO 
52 001265 001335 BR 50$ : 
53 001266 106201 000010 40$: CMP #10,R1 : SEE IF CHECKSUM ERROR 
54 001270 051312 BNE 45$ ANCH 
55 001271 HARDER 
001271 104200 000110 001037 MOV #MSS,0UT.04 
001274 104300 001475 001036 MOV LUNIT OUT .03 
001277 104202 105675 MOV #5! ERHARD*+ 3000. .R2 
001301 104020 001035 MOV R2, QUT .02 
001303 104200 001303 001034 MOV #..OUT.01 
001306 104200 060013 001033 MOV #ERRMES ,OUT.RO 
56 001311 001335 BR 50$ : BRANCH 
57 001312 106201 000020 45$: CMP #20,R1 : SEE IF BUFFER TOO SMALL 
58 001314 051353 55$ ; IF NOT, BRANCH 
59 001315 HARDER 
001315 104200 000135 001037 MOV #MS6,0UT.04 
1320 104300 001475 001036 MOV LUNIT ,OUT.03 
001323 104202 105676 MOV #6! ERHARD+3000. .R2 
001325 104020 001035 MOV R2,0UT.02 
001327 104200 001327 001034 MOV #..O0UT.01 
001332 104200 060013 001033 MOV #ERRMES ,OUT.RO 
60 001335 50$:  CERROR 5,<#SEROO,COMND> 
001335 104200 2347 001040 MOV #SEROO, OuT.05 
001340 104 002637 001041 MOV .06 
61 001343 ENDERR 7 : FLAG END OF REPORTING BUFFE 
001343 104200 003052 00104 MOV s ree OuT.0 
001346 104200 000010 00310 MOV +1, ERR nee : SET THE POSITION 
62 001351 POP R3 : SAVE SDI PACKET POINTER 
001351 104263 MOV (SP)+,R3 
63 00135¢ 001457 BR 65 : EXIT 
64 00135 55$: HARDER + UNKNOWN ERROR RETURNED BY UDA 
001353 104200 000160 001037 MOV #MS7,OUT.04 





ort DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 25-2 


K 


= SDI LEVEL 2 INTERCHANGE ROUTINE 


001356 


76 
77 001461 
78 001462 


— 
So ERERE 
3 S33s8 


Se SSE PRP 


aug 23 


—— 
Ssa8 
SEES 
MNIONWN & S 
UW 
NN 


R PPeeee 
SSsxss 


002347 
002637 


003052 
000011 
000004 


000221 


002347 
002637 
000004 
001043 
003052 
000012 


001036 


001037 
001036 


001034 
001033 


001040 
001041 
001042 


001044 
003103 


CERROR 


ENDERR 


60$: 


CERROR 


ENDERR 


65$: POP 
RETURN 


SDISTO: .WORD 
SDILTO: .WORD 


5.<R1,#SEROO, COMND> 


#ERRME 
5, <#SEROO, COMND,4(R3),RO> ; REPORT FURTHER ERRORS 
Vv #SEROO 


10. 
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MOV 
3 FLAG END OF — BUFFER 


; REPORT ERROR 
MOV 


LUNIT, 


#7 !ERVARD’ 3000. 2 


#.,OUT.01 
#ERRMES ,OUT.ROQ 


3; EXIT 
auee as NO ERROR OCCURED 


F COMMAND ACCEPTED 


E 
IF SO, BRANCH 


: RESTORE R4 


R1,0UT.05 
MOV ny! OUT.06 
D,OUT.07 
ER22,0UT.08 
MOV *ee1. ERRPOS 
MOV #MS8 OUT .04 
MOV LUNIT ,OUT.03 
MOV #8! ERHARD+3000. .R2 
MOV eOUT.02 
MOV ee T. 1 
MOV $,OUT.RQ 
MO -OUT.05 
MOV COMND ,OUT. 
MOV 4(R3) ,OUT.07 
MOV RO, OUT .08 
MOV #SER22 ,0UT .09 
MOV #9+1 ,ERRPOS 


: SDI SHORT TIMEOUT 
; SDI LONG TIMEOUT 


T.03 


SEQ 186 


: SET THE POSITION 


: SET THE POSITION 


MOV (SP)+,R4 


SEQ 187 
UDATS DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 26 
TO = CALCULATE TIMEOUT INTERVALS 


~SBTTL TO = CALCULATE TIMEOUT INTERVALS 


2 001463 TO: 

: : SALEULATE THE TIMEOUT IN 9SEC INTERVALS (SDI RECEIVE XFC TAKES 
6 : 

7 001463 1oseot 000001 MOV #1,R1 ; SET UP Lose SHIFTER 

8 001465 10501 1$: ADD R1,R1 ; DOUBLE THE TIMEOUT VALUE 

9 001466 133007 DEC RO : DECR ERENT COUN 

10 001467 05146 BNE 1$ 3; if INCOMPLETE, BRANCH 

11 001470 115407 2s: INC RO : INCREMENT 9 SEC C 

12 001471 107201 000011 SUB #9.,R1 ; SUBTRACT 9 SEC oy TIMEOUT 

13 001473 031470 BPL § 3; IF MORE TIME TO GO, BRANCH 

13 001474 000 RETURN ; RETURN TO CALLING OeRDERANY 

18 001475 177777 LUNIT: .WORD -1 ;LOGICAL UNIT NUMBER (-1 FOR NOT AVAILABLE) 
18 -SBTTL LINIT = INIT THE DRIVE 

19 001476 104302 002636 LINIT: MOV SDI,R2 3 R2 HAS INTERCONNECT CODE 

20 001500 060011 XFC DINIT 

$3 001501 000000 +E TUPN 





H 15 
SEQ 188 
anh MAA FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 27 


1 .SBTTL STACK AREA 
¢ STACK AREA 
4 901502 123456 - WORD 123456 sEND MARKER FOR STACK 
6 001542 123456 STACK: .WORD 123456 ‘MARKER FOR STACK UNDERFLOW 
8 002773 SUB = SUB + CR zMODIFY SUB TO POINT AT SUBUNIT CHAR | 
. 005670 ERRN=3000. :START ERROR NUMBERS AT 3000. 
11 001543 003050 SER18E: .WORD SER18A : FOR MULTIPLE SUBUNIT ERROR REPORTING 
12 001544 003045 .WORD SER18B 
13 001545 003042 -WORD SER18C 
14 001546 003037 .WORD SER18D 
16 : 
v ; EACH OVERLAY TABLE IS COMPOSED OF TWO WORDS: 
19 : 0) LOW ORDER STARTING ADDRESS OF OVERLAY 
20 ; 1) <1::0> HI ORDER STARTING UNIBUS ADDRESS 
3} : <15::2> LENGTH OF OVERLAY | 
23 000000 MSSG$ = 0 
24 000000 OCNT$ = 0 
25 001547 OTABLE: DFOVLY MSSG$.MS 
001547 000000 .WORD 0 
001550 016234 .WORD OVL.MS*4 
26 001551 DFOVLY SETUP,SU | 
001551 000000 . WORD | 
001552 003730 .WORD  OVL.SU®4 
27 001553 DFOVLY TEST,TS 
001553 000000 WORD 
001554 011124 .WORD  OVL.TS*4 
28 000003 


NUMOVL = <. = OTABLE> / 2 





_—_—_—_—_— — oC ee eenn“"5 
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SEQ 189 
UDAT3_DISK FUNCTIONAL DMACR x04. 01 13-APR=82 18:08:21 PAGE 28 
TEST 3 START AND LOOP ON UNITS 


1 .SBTTL TEST 3 START AND LOOP ON UNITS 
2 THE DIAGNOSTICS TO ALL UNITS SELECTED. 
3 ITEST CODE WILL BE CALLED FOR EACH DISK SUBUNIT TO BE TESTED. 
4 ; LUNIT WILL CONTAIN LOGICAL UNIT NUMBER OF DRIVE FOR ERROR REPORTS | 
5 : SDI WILL CONTAIN SDI INTERCONNECT CODE FOR SELEC TED DRIVE 
s : UNITNB WILL CONTAIN AN EVEN NUMBER FOR TESTING FIRST SUBUNIT OF A DRIVE 
c ; AN ODD NUMBER FOR TESTING SECOND SUBUNIT OF A DRIVE | 
13 001555 114001 T3STRT: CLR R1 ZSTART WITH UNIT 0 INDEX 
11 001556 104207 002615 PORT2: MOV #UNITS,RO : GET POINTER TO UNITS TABLE 
12 001560 105017 ADD : ADD INDEX 
13 001561 104173 MOV (RO) ,R3 : GET CONTENTS OF TABLE 
14 001562 031571 BPL 1$ : IF THIS UNIT IS PRESENT, BRANCH 
15 001563 102201 000003 BIT #3,R1 ; SEE IF ON SUBUNIT 0 OF UNIT 
16 001565 051623 BNE PORTS : IF NOT, TEST Next SUBUNIT | 
17 001566 105201 000003 ADD #3. R1 > IF NO SUBUNIT 0, THEN NO UNIT = SKIP OTHER SUBUNITS 
18 001570 001623 BR ATS : BYPASS IF N 
19 001571 102203 040000 1$: BIT #20000, R3 : SEE IF THIS UNIT IS TO BE TESTED | 
20 001573 051623 BNE : IF NOT, CH 
21 001574 104010 002635 MOV RI RTAITN 3 STORE UNIT INDEX 
22 001576 104030 001475 MOV R3.LUNIT : STORE LOGICAL UNIT NUMBER FOR DRIVE 
23 001600 104202 000001 MOV #UNITO,R2 : GET UNIT 0 INTERCONNECT CODE 
24 001602 110601 ROR R1 : DIVIDE UNITN8 BY FOUR 
25 001603 110601 ROR R1 
26 001604 103201 177760 BIC #LBLONB,R1 : CLEAR UNUSED BITS 
27 001606 117401 PORT3: DEC Ri 
28 001607 071614 BMI PORTS ; FOR EACH DRIVE OVER O SHIFT R2 LEFT 
29 001610 110202 ROL R2 
30 001611 103202 000001 BIC #1 Re 3 CLEAR CARRY ROTATED INTO REG (IF ANY) 
31 001613 001606 BR PORT | 
32 001614 104020 002636 PORT4: MOV R2,SD1 : STORE SDI INTERCONNECT CODE | 
33 001616 001633 BR OVRLAY ; BRING 0 OVERLA 
34 : PERFORM TEST ‘on THIS DRIVE | 
35 : TEST ORETURNS TO TESTX ) 
36 001617 104206 001542 TESTX: MOV #STACK, SP + RESET STACK DUE TO JUMPS OUT OF 
37 : SUBROUTINES 
38 001621 104301 002635 MOV UNITNB,R1 : GET UNIT INDEX 
39 001623 115401 PORTS: INC R1 : INCREMENT INDEX 
40 001624 106201 000020 CMP #16. R1 : CHECK IF 16 DRIVES ALREADY SELECTED 
41 001626 051556 BNE —- PORT? ; REPEAT FOR ALL DRIVES 
42 001627 104207 060016 DONECD: MOV #DONE ,RO + END OF PROGRAM 
43 001631 021000 CALL HOSTRQ 
001632 001627 BR DONECD : REPEAT IF RETURNED 
| 
{ 
| 
| 
] 
| 
| 
J 











1 
2 
3 001633 104206 001542 
% 001635 104307 001730 
5 001637 103207 177776 
6 001641 115407 
7 001642 104070 001731 
8 001644 110207 
9 001645 104205 oafoos 
10 001647 104671 550 
11 001651 104012 
12 01652 110602 
13 001653 110602 
14 001654 103202 140000 
15 001656 103201 177774 
16 001660 104203 005247 
17 001662 104677 001547 
18 001664 060013 
19 001665 115001 
20 001666 011724 
51 001667 117405 
52 001670 051647 
23 001671 
001671 104200 002220 001037 
001674 104300 001731 001040 
001677 104200 002306 001041 
001702 104300 001475 001036 
001705 104202 04573 
001707 104020 001035 
001711 104200 001711 001034 
001714. 104200 060013 001033 
24 001717 104200 177777 001036 
25 001722 021753 
36 001723 001727 
57 001724 115400 001730 
28 001726 025247 
29 001727 (001617 
31 001730 000000 
00 000000 


3 eee BRING IN OVERL 
aSTA 


OVRLAY: Ck, $P 
HOV OVRLNM,RO 
BIC #177776,RO 
INC RO 
MOV RO,OVRPNT 
ROL RO 
MOV #3,R5 

1$: MOV OTABLE+1(RO) ,R1 
MOV R1,R2 
ROR 
ROR R2 
BIC #140000,R2 
BIC Adds R1 
MOV #0VR R3 
MOV OTABLE (RG) .RO 
XFC UREAD 
TST R1 
BEQ 2$ 
DEC RS 
BNE 1$ 
DEVFTL 34,<OVRPNT,#SER39> 
MOV #-1,0UT.03 
CALL TESTED 
BR 3$ 

2$: INC OVRLNM 
CALL OVRLPT 

3$: BR TESTX 

OVRLNM: .WORD 0 

OVRPNT: .WORD 0 


UDATS DISK FUNCTIONAL DMACR X04.01 13-APR=-82 18:08:21 PAGE 29 
OVRLAY. = OVERLAY PROCESS FOR BRINGING IN OVERLAY 


SBTTL et at - OVERLAY PROCESS FOR BRINGING IN OVERLAY 


; RESET STACK DUE TO JUMPS OUT OF 


GET WHICH oy a TO BRING IN 
T LAST BIT 


TER 
SAVE OVERLAY NUMBER FOR ERROR 
oer eo IFT FOR PROPER POINTER 


TRIES 
GET THE HI ge BITS OF UNIBUS ADDRESS 
GET NUMBER WORDS OF TRANSFER 
ROTATE BIS o CORRECT POSITION 


CLEAR UNUSED BITS 

CLEAR UNUSED BITS FOR HI ORDER 

POINT TO WHERE TO et OVERLAY IN UDA RAM 
GET LO ORDER UNIBUS ADDRESS 

eoae? THE OVERLAY INTO UDA MEMORY 


IF zr yery 
ELSE T 


AGAIN 
IF RETRIES NOT ALL USED, BRANCH 
; UNABLE TO READ FROM HOST MEMORY 
Vv $34 ,0UT.04 
MOV OVRPNT, aes 05 
MOV #SER39 OU T.06 
UNIT "Out -0 
MOV #341 FFLDEW*3000. .R2 
MOV R2,0UT.02 
MOV #. ,OUT.O1 
MOV #ERRMES ,OUT.RQ 
FLAG AS NOT ASSOCIA‘ED WITH ANY UNIT 
AND REPORT ERROR 
D BRANCH 
READY a es OVERLAY 


GET 
GO EXECUTE C 
HERE IF ERROR 


OVERLAY NUMBER 











oly 
ERR 


pore Po 
NA 
Mvinwt 

o 


MEWN=OOONOW 
ssssessssss 


1 
1 
1 
1 
1 
1 


ot aa et ot et 
“ 
o 
hb 


SRF 
Norm 
m=O 
Woo 


“0228-4 O-— 
RNARRR 

W— Winner 
62SSss 
NM—WWS 


003120 
001041 


003052 
000006 
001033 
005.93 


002636 
001033 


000377 
002645 


001040 


001040 
003103 


002731 


TESTEW: 


TESTEV: 
TESTEX: 


TESTEY: 
TESTED: 


DR.CLR: 


FUNCTIONAL DMACR X04.01 13-APR=82 18:08:21 PAGE 30 


- SBTTL 
CERROR 





ERROR EXIT 
5. <A#SER23,R1> 


TESTED 
5 


#OUT.RQ,R3 
ERRPOS ,R3 


#LOBYTE ,ERRORS 
#CR.CLR,R3 
TALK 





PRINT REAL TIME DRIVE STATE ONLY 
MOV #SER23 05 


MOV 


MOV 
MOV 
SET UP POSITION 


#SER22,0UT.05 


#5+1,ERRPOS 
IN R3 


GET STATUS FROM ST 
R2 HAS faite CODE 


AND INIT 
PRINT ERROR 


CLEAR ALL ERROR 


s 


GO TO CALLING ROUTINE 


SEQ 191) 


: SET THE POSITION 


UDATS DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 31 
FNDCYL = FIND CYLINDER 








j .SBTTL FNDCYL = FIND CYLINDER 
; : FNDCYL FIND CYLINDER 
5 : INPUTS: R4& => HIGHEST CYL (VAR1) 
6 : R5 => DESIRED BN (VAR2) 
? : = VAR3 
g : R1 = VAR4 
10 001770 FNDCYL: 
11 001770 106200 000104 003102 CMP #°D, LETTER z1S IT A DIAGNOSTIC BLOCK? 
12 001773 052006 BNE FND3 
13 3; te FOR DBN AREA 
14 001774 104205 003047 MOV #LCDBN,RS 
15 001776 104204 003054 FNDCY2: MOV #FDIACYL RG 
16 002000 103200 170000 003055 BIC #*CHBHINB,FDIACYL+1 
17 002003 104303 003060 MOV SECTRK,R3 
18 002005 002034 BR FND4 
19 002006 106200 000114 003102 FND3: CMP #'L, LETTER 31S IT A LOGICAL BLOCK? 
20 002011 052025 BNE 1$ 71F NOT, BRANCH 
21 : *** FOR LBN AREA 
22 002012 114000 003063 CLR 
23 002014 114000 003064 CLR 
24 002016 104204 003063 MOV 
25 002020 1043 003004 MOV : R3 = LBN'S PER TRACK (VAR3) 
26 002022 103203 177400 BIC 
27 002024 0020 BR FN : CONTINUE 
2 : *e* FOR XBN AREA 
29 002025 104204 003056 : V WF zSET POINTER TO FIRST XBN CYL=>VAR2 
30 002027 103200 170000 003057 BIC 
31 002032 104303 003060 MOV :R3 = SECTORS PER TRACK (VAR3) 
32 002034 104302 002774 FND4: MOV S 
33 002036 103202 007777 BIC 
34 002040 101642 000001 BIS 1(R4) ,R2 
35 002042 100642 00000 MOV R2,1(R4) 
36 00204 4$: 
37 002044 104247 (R4)+,RO ZSTART LOADING VARIABLES 
00 104070 003110 RO, VARI 
9 002047 104147 (R&) RO 
40 002050 104070 003111 RO, VAR1+1 
41 002052 104257 (R5)+,RO 
42 002053 104070 003112 : MOV RO, VAR2 
43 002055 104157 MOV (R5) RO 
002056 104070 00311 MOV RO, VAR2+1 
5 002060 104030 003114 MOV R3,VAR3 
002062 104010 00311 MOV R1,VARG 
47 002064 104207 003110 MOV #VAR1,RO : RO => VARIABLES 
002066 104201 002773 MOV #SUB,R1 : R1 => SUBUNIT CHARACTERISTICS 
9 002070 060020 XFC CVT [CONVERT TO CYLINDER VALUE 
50 902071 106200 000104 003102 CAP #°D.LETTER ; DON'T COMPARE IF IN DBN AREA 
52 002075 106300 003120 003107 CMP GROUP, OLDGRP : HAVE WE GONE OVER 2 CYL BOUNDARIES? 
53 002100 032114 BPL 6$ : IF NOT, 
54 002101 107300 003070 003061 SUB BLOCKC, TSTBLK : ELSE, GO BACK ONE CYLYINDER 
55 002104 042107 BCC 5$ : IF NOT CARRY, BRANCH 
002105 117400 003062 DEC TSTBLK+1 
57 002107 114000 00310 5$: CLR OLDGRP : NEW GROUP 


M15 


UDATS DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 31-1 
FNDCYL = FIND CYLINDER 


R4 
R5 
FNDCYL 
003107 6$: V GROUP , OLDGRP 
7$: MOV CYLLO,TSTCYL 
MOV CYLLO*1, TSTCYL+1 


4 
003065 MOV GROUP, TSTCYL+2 
RETURN 





: RESET POINTERS 
3 AND TRY AGAIN 


3 SAVE IN OLD GROUP FOR NEXT TIME THROUGH 
STORE IN TSTCYL 





1 
2 
3 
4 
5 
6 
7 
8 002131 
002131 
002132 
002133 
9 002134 
10 002136 
11 002137 
12 002141 
13 002142 
14 002144 
15 002146 
16 002147 
17 002150 
18 002151 
19 002152 
002152 
002153 
002154 
20 062155 





» SBTTL 
STRST 


INPUT 
OUTPUT 


PUSH 


RETURN 


N 15 





UDATS DISK FUNCTIONAL DMACR X04.01 13-APR=82 18:08:21 PAGE 32 
STRST = STORE INFORMATION IN AREA ‘ST° 


STRST = STORE INFORMATION IN AREA ‘ST‘ 
STORE ST 


R3_=> OUTPUT BUFFER 
OUTPUT BUFFER FILLED WITH VALUES FROM ST 


<RO,R1,R2> 
MOV RO,-(SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 

SDI ,R2 sR2 HAS INTERCONNECT CODE 

STATUS 3GET DRIVE STATE 

#077674,R1 sCLEAR UNUSED BITS 

R1,(R3)+ 3 STORE IN OUT BUFFER 

#7,R2 3: R2 IS # OF WORDS TO MOVE 

#ST+7,R0 ; RO => STATUS 

-(RO),R1 

R1, (R3)+ 

1$ 

<R2,R1,R0> 


MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 
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SOOONAOUE WN 


- 

Mronrononontuny 
RRERESSSS 
ROWSOONW—N 


ee me eed ed aed ed ed 
DWDONAUSWN— 
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Ssssssssssssss 
00-02 223s 


MIPIPINOTUNRS 
wd at 
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MPM 
So 
_ 
=—rnuw— 
Nm 
=] 
Ww 


NUS 
SS 
S 
=] 
ue — 
w 


102201 
052321 





001633 


002637 


001037 


-SBTTL SEEK 
3 SEEK 
sSEEK TO CYLINDER POINTED TO BY CONTENTS OF R1 
3 INPUTS: 
; R1 = POINTER TO CYLINDER NUMBER 
; R2 = SDI INTERCONNECT 
SEEK: PUSH <RO,R1,R3> 
MOV RO,-(SP) 
MOV R1,-(SP) 
sp MOV R3,-(SP) 
MOV (R1)¢,INS+1 sPUT CYLINDER INTO COMMAND 
MOV (R1)+*, INS#2 
MOV (R1),INS+3 sPUT GROUP INTO COMMAND 
SEEKA: MOV #CR.SEK,R3 POINT TO COMMAND 
MOV #MS. SEK ,COMND : SET _UP_FOR ERROR 
CALI. TALK : INITIATE SDI INTERCHANGE 
TST 2 3 SEE IF ERROR OCCURRED 
BEQ SEEK1 : IF NOT, BRANCH 
CALL TESTEX 3 IF SO, REPORT 
BR SEEKS 2 AND EXIT 
SEEK1: CLR R3 sSET UP WORST CASE SEEK TIME 
SEEK2: MOV $D1,R2 3 MOVE MASK TO R2 
CALL RDSTAT : GET DRIVE STATUS 
TST R2 3 WAS IT OK? 
BEQ 2s : IF SO, BRANCH 
BIT #RCVERR,R1 3 SEE WHICH ERROR 
BNE 1$ 3 AND BRANCH 
HARDER 10 3 REPORT INVALID STATUS ERROR 
MOV #MS10,0UT.04 
MOV LUNIT ,OUT.03 
MOV #10! ERHARD+3000. ,R2 
MOV R2,0UT.02 
MOV #. ,OUT.01 
MOV #ERRMES ,OUT.RQ 
CALL TESTEW 3 BRANCH TO DONE 
1s BR SEEK 
HARDER 12 3 REPORT XMIT ERROR 
MOV #MS12,0UT.04 
MOV LUNIT ,OUT.03 
MOV #12! ERHARD+3000. ,R2 
MOV R2,0UT.02 
MOV - OUT. 
MOV #ERRMES ,OUT.RQ 
CALL FH 3 BRANCH TO DONE 
2$ BR SEEK 


BIT #RWRDY,R1 
BNE SEEKS 3 
INC R ; 
BNE seeks 

HARDER 27,<INS+1,1INS+2, INS*3> 


31S _R/W READY SET? 
; YES 


[KEEP WAITING 
SEEK COMPLETE TIME OUT 


#S27 ,OUT.04 


SEQ 195 





eats DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 33-1 


45 002324 


sue 
Sssxess 
We -WNVNLS 
WWOUWUWIN 


~N 


UREPEEERER 
So 


Om SSB ws so 


C 
POP <R3,R1,R0> 


en 
RRR 
Mmrorn 


INS+1,0UT.05 
INS+2,0UT.06 
INS+3,0UT.07 


LUNIT ,OUT.03 
#27! ERHARD+3000. ,R2 
R2,0UT.02 


ee 01 
#ERRMES ,OUT.RQ 


MOV (SP)+,R3 
MOV (SP)+,R1 
MOV (SP)+,RO 
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2 sesesse 


22 002344 
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2 002370 


33333 
SFELE 


Wass 


& RSRRR 
MMM OO ato 


Nm —frororn 


o=— a at a a et 
ow 


- 
So 


ed edd td ed ed 

COO 2a 
NESSES 
ooo 


es 


003121 
003646 


000130 


002775 
170377 
120000 
0001064 
002775 
170377 
002776 


170377 
140000 


000377 


BN. 
3 *** FOR XBN AREA 
MOV 


BEQ 
3; *** FOR LBN AREA 
MOV 


; ss FOR DBN AREA 
11$: MoV 
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UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 34 
READ1 = READ SECTORS ON A TRACK FOR TEST 


-SBTTL READ1 = READ SECTORS ON A TRACK FOR TEST 


TREAD SECTORS ON THE SELECTED TRACK UNTIL ONE IS READ CORRECTLY 
[OR THE MAXIMUM NUMBER OF SECTORS IS READ 


S MAX NUMBER OF SECTORS TO READ 


R3 HA 
TRACK HAS TRACK NUMBER 


RS => POINTER TO BLOCK NUMBER OF FIRST SECTOR 


S: 
R2 IS CLOBBERED 
PUSH <RO,R1,R3,R4,R5> 


MOV TRACK ,R4 
MOV #RBUFO+RW.LOW,RO 
MOV (R5)+,R1 
MOV R1,(RO)+ 
MOV (R5),R1 


CMP #°X, LETTER 
9$ 


SUB+HIXBN,R5 
ROR R5 
ROR R5 
ROR R5 


ROR R5 
BIC #HBLONB RS 
hy #HD. XBN,R5S 


10 
CMP #'D LETTER 
SUB+HILBN,R5S 


BIC #HBLONB RS 
ASSUME HD.LBN,0 
BR 10$ 


SUB+HIDBN,RS 
ROR R5 
ROR RS 
ROR R5 
ROR R 


5 
BIC #HBLONB RS 
BIS #HD.DBN.RS 
ADD R5,R1 
MOV R1,(ROS+ 
mov (RO),R1 
BIC #LOBYTE .R1 


MOV R17. (RO) 


A 


MOV R4,-(SP) 
MOV R5S,-(SP) 


zR4 IS TRACK 
PUT BLOCK NUMBER IN 


READ BUFFER 


‘DO WE DO eee Se FOR XBN? 


IF NOT, BRANC 


DO SPECIAL PROCESSING TO PUT HEADERIN PLACE 


SHIFT TO NEXT NIBBLE 


; STRIP OFF UNUSED PORTION 
; SET HEADER CODE 


; DO WE ss FOR DBN? 


IF SO, BRANC 


; GET HI LBN VALUE (DON'T HAVE TO ROR) 


GET HIGH ORDER BITS OF STARTING DBN 
MOVE TO CORRECT POSITION 


CLEAR UNUSED BITS 
SET HEADER CODE 


:PUT IN TRACK NUMBER 
3 (MERGE WITH REAL-TIME COMMAND) 


UDATS 
READ1 





002412 


SSVEALATILSIIV 


SScanccecces 


104207 


102201 


102201 
052515 


o-0— 
ab eh at 


S735 

mow 

ee ZENS sem 
Meese Qeaoaa Quy 


wry 


003644 
002636 


000400 


003646 


001037 
001036 


001034 
001033 
001037 
001036 


001034 
001033 


001037 
001036 


001034 
001033 


001037 
001040 
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DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 34-1 
= READ SECTORS ON A TRACK FOR TEST 


READIA: MOV #RBUFO,RO 
MOV SDI ,R2 
CALL _—RDSTAT 
TST R2 
BEQ 2$ 
BIT #RCVERR,R1 
BNE 1$ 
HARDER 10 


CALL ——‘TESTEW 
BR READ 1X 


HARDER 12 


1$: 


CALL =‘ TESTEW 
Ce BR READ 1X 
; BIT #RWRDY,R1 


BNE READIC 
HARDER 24 


CALL TESTEV 
BR READ 1X 
READIC: we 


INC 
MOV R1,(RO)+ 
BCC READIB 
MOV (RO),R1 
8 a 

1, (RO) 
READ 1B: 


+ REPORT XMIT ERROR 


SEQ 198 


1, 


sPOINT TO READ —— 

MOVE MASK TO R 

oe DRIVE oo 

S_ IT OK? 
rt SO, BRANCH 
SEE IF ANY ERRORS 
EPOR 
REPORT INVALID STATUS ERROR 
Vv #™S10 4 


LUNIT ,OUT.03 
MOV #10! ERHARD+3000. ,R2 
MOV R2,0UT.02 


#. OUT. 1 
#ERRMES ,OUT.RQ 


Vv 
BRANCH TO DONE 


#™S12,0UT.04 
LUNIT ,OUT.03 

MOV #12! ERHARD+3000. ,R2 
MOV R2,0UT.02 

- ,OUT.01 
Vv #ERRMES ,OUT .RO 
: BRANCH TO DONE 
3 ay READ WRITE READY IS STILL HIGH 
:READ/WALTE READY nce OUT BEFORE READ 


T,OUT.03 
MOV #24! ERHARD* 3000. .R2 
MOV Re -Out .0¢ 


v #ERRMES ,OUT.RO 


EREAD we ose eeren OR INDEX PULSE 84 READ 


MAX 
SREPORT ERROR IF ALL READ 
2 INCREMENT BLOCK NUMBER 


GO READ NEXT SECTOR 


BR VREABIA 
READIE: HARDER 28,<LETTER,RBUFO+RW.LOW,RBUFO*RW. eee INS? INS+2, INS+3,,RBUFO+RW.CMD> 


MOV LETTER. OUT .05 
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SEQ 199 
UDAT3 DISK FUNCTIONAL DMACR X04. Fon Sale 18:08:21 PAGE 34-2 
READ] = READ SECTORS ON A TRACK 


002545 104300 003646 001041 MOV RBUF O+RW. LOW, OUT.06 
002550 104300 003647 001042 MOV RBUFO+RW.HI,OUT.07 
002553 104300 002741 001043 MOV INS+1,0UT.08 
002556 104300 002742 001044 MOV INS*+2, :0 
002561 104300 002743 001045 MOV INS*#3,0UT. 10 
002564 104300 003650 001046 MOV RBUFO+RW. CMD ,OUT.11 
002567 104300 001475 001036 MOV UNIT, OUT. 
002572 104202 105724 MOV $28! ERMARD* 3000. .R2 
002574 104020 001035 MOV R2,0UT.02 
002576 104200 002576 001034 MOV #.,0UT. 
002601 104200 060013 001033 MOV #ERRMES ,OUT.RO 

90 002604 104307 001033 MOV OUT.RO,RO 

1 002 021000 CALL HOSTRQ 

92 002607 READ1X: POP <R5S,R4,R3,R1,R0> 
002607 104265 MOV (SP)+,R5 
002610 104264 MOV (SP)+.R4 
002611 104263 MOV (SP)+.R3 
002612 104261 MOV (SP)+.R1 

2613 104267 MOV (SP)+-.RO 


002613 
93 002614 000000 RETURN 


ach ae ee ee ee 





REPLY 
SIZE OF REPLY IN WORDS 


SEQ 200 
| UDAT3 DISK FUNCTIONAL DMACR x04.01 13-APR-82 18:08:21 PAGE 35 
UNITS, SDI COMMANDS AND PROGRAM VARIABLES 
1 .SBTTL UNITS, SDI COMMANDS AND PROGRAM VARIABLES 
g zPROGRAM VARIABLES 
$ ZUNIT NUMBER STORAGE FOR DISK DRIVES TO TEST 
6 002615 000020 UNITS: .REPT 16. : 16, SUBUNITS (8 MAX) 4 ON EACH UNIT 
: -WORD 177777 : ALL UNITS AS NON-EXISTANT TO START WITH 
002615 177777 “WORD 177777 : MARK ALL UNITS AS NON-EXISTANT TO START WITH 
002616 177777 <WORD 177777 3 MARK ALL UNITS AS NON-EXISTANT TO START WITH 
002617 177777 WORD 7777 3 MARK ALL UNITS AS NON-EXISTANT TO START WITH 
002620 177777 “WORD 177777 : MARK ALL UNITS AS XISTANT TO START WITH 
002621 177777 “WORD 177777 3 MARK ALL UNITS AS NON-EXISTANT TO START WITH 
002622 177777 “WORD 177777 3 MARK ALL UNITS AS NON-EXISTANT TO START WITH 
002623 177777 “WORD 177777 ; MARK ALL UNITS AS NON-EXISTANT TO START WITH 
002624 177777 “WORD 177777 3 MARK ALL UNITS AS NON-EXISTANT TO START WITH 
002625 177777 “WORD 177777 3 MARK ALL UNITS AS NON-EXISTANT TO START WITH 
002626 177777 “WORD 177777 3 MARK ALL UNITS AS NON-EXISTANT TO START WITH 
002627 177777 “WORD 177777 3 MARK ALL UNITS AS NON-EXISTANT TO START WITH | 
002630 177777 “WORD 177777 3 MARK ALL UNITS AS NON-EXISTANT TO START WITH 
002631 177777 <WORD 177777 3 MARK ALL UNITS AS NON-EXISTANT TO START WITH 
002632 177777 “WORD 177777 3 MARK ALL UNITS AS NON-EXISTANT TO START WITH 
002633 177777 “WORD 177777 3 MARK ALL UNITS AS NON-EXISTANT TO START WITH 
002634 177777 “WORD 177777 3 MARK ALL UNITS AS NON-EXISTANT TO START WITH | 
10 002635 000000 UNITNB: .WORD 0 ZNUMBER OF UNIT CURRENTLY UNDER TEST | 
1 :POINTER TO TABLE ABOVE | 
13 002636 000000 SDI: .WORD 0 3SD1 INTERCONNECT CODE FOR XFC CALLS 
15 002637 000000 COMND: .WORD 0 : POINTER TO COMMAND MESSAGE 
16 ; MESSAGE TABLES 
18 002640 CR.ONL: MSG ONL.2.ST,7,COMPLT ¢ DRIVE ONLINE 
002640 002722 .WORD ONL ADDRESS OF COMMAND 
002641 “WORD 2 zSIZE OF COMMAND IN BYTES 
002642 002751 “WORD ST zADDRESS OF REPLY 
002643 0000 “WORD 7 :SIZE OF REPLY IN WORDS 
002644 000176 “WORD COMPLT SUCCESSFUL COMPLETION CODE 
002644 SNDONE = :PR EVIOUS COMMANDS CAN BE SENNT 10 AN OFFLINE DRIVE 
20 002645 CR.CLR: MSG bRC.2.ST.7.COMPLT : DRIVE CLEAR 
002645 002730 .WORD DRC ZADDRESS OF COMMAND 
002646 WORD :SIZE OF COMMAND IN BYTES 
2647 002751 ;WORD ST ZADDRESS OF REPLY 
002650 -WORD 7 :SIZE OF REPLY IN WORDS 
002651 000176 -WORD COMPLT 3 SUCCESSFUL COMPLETION CODE 
21 002652 CR.DIS: MSG DIS,2,ST,7,COMPLT + DISCONNECT 
002652 002726 .WORD DIS SADDRESS OF COMMAND 
002653 ;WORD 2 zSIZE OF COMMAND IN BYTES 
002654 002751 ;WORD ST DRESS OF REPLY 
002655 “WORD 7 :SIZE OF REPLY IN WORDS 
002656 000176 .WORD COMPLT 3 SUCCESSFUL COMPLET ION CODE 
22 002657 CR.GCR: MSG GCR,1,CR,12.,170 : GET CHARACTERISTICS 
002657 002732 WORD GCR SADDRESS OF COMMAND 
002 wo :SIZE OF _ COMMAND In 6 BYTES 
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UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 35-1 


SEQ 201 


UNITS, SDI COMMANDS AND PROGRAM VARIABLES 


002663 000170 -WORD 170 3 SUCCESSFUL COMPLETION CODE 
23 002664 CR.SCR: MSG SCR,2,SUB,21.,167 : GET SUBUNIT CHARACTERISTICS 

002664 002733 eWORD SCR “ADDRESS OF COMMAND 

002665 ig eWORD 2 sSIZE OF COMMAND IN BYT 

002666 00277 -WORD SUB zADDRESS OF REPL 

002667 000025 «WORD 21. sSIZE OF REPLY IN 

002670 000167 -WORD 167 3 SUCCESSFUL COMPLETION CODE 
24 002671 CR.GST: MSG GST.1,ST,7,366 : GET STATU 

002671 002735 -WORD GST ‘ADDRESS OF COMMAND 

002672 000001 .WORD :SIZE 0 - COBAND IN BYTES 

002673 002751 -WORD ST ADDRESS OF REPLY 

002674 000007 ~ WORD :SIZE OF "REPLY IN WORDS 

002675 000366 WORD 366 3 SUCCESSFUL COMPLETION CODE 
25 002676 CR.MOD: MSG MOD,3,ST,7,COMPLT 3 MODE 

002676 002744 -WORD MOD ZADDR OF COMMAND 

002677 000003 -WORD 3 SIZE OF COMMAND IN BYTES 

2700 002751 -WORD ST ZADDRESS OF Ane 

002701 000007 - WORD SIZE OF REPLY IN WOR 

002702 000176 -WORD COMPLT 3 SUCCESSFUL COMPLETION CODE 
26 002703 CR.SEK: MSG INS,6,ST,7,COMPLT : INITIATE SEEK 

002703 002740 -WORD INS ZADDRESS OF C 

002704 000006 - WORD SIZE OF COMMAND IN BYTES 

002705 002751 -WORD ST ADDRESS OF REPLY 

2706 000007 -WORD 7 zSIZE OF REPLY IN WORDS 
002707 1 -WORD COMPLT : SUCCESSFUL COMPLETION CODE 
002707 LONG = .-1 3 LONG TIMEOUT COMMANDS FOLLOW 

28 002710 CR. INR: MSG INR,1,ST,7,COMPLT : INITIATE RECALIGRATE 

002710 002737 - WORD ADDRESS OF COMMAND 

002711 -WORD SIZE OF COMMAND IN 

002712 002751 -WORD ST ADDRESS OF REPLY 

002713 -WORD 7 3SIZE all REPLY IN WORDS 

002714 000176 -WORD COMPLT SUCCESSFUL COMPLETION CODE 
29 002715 CR.RUN: MSG RUN,1,ST,7,COMPLT UN 

002715 002736 -WORD RUN : ADDRESS OF COMMAND 

002716 -WORD 1 zSI1ZE OF COMMAND IN BYTES 

002717 002751 «WORD ST ADDRESS OF REPLY 

002720 00000 -WORD 7 ZSIZE OF REPLY IN WORDS 
- 002721 000176 -WORD COMPLT 3 SUCCESSFUL COMPLETION CODE 
3 3 LEVEL 2 COMMAND MESSAGE DATA STRUCTURES 
33 002722 000 213 ONL : -BYTE 0,213 3: BRING DRIVE ONLINE 
34 002723 000077 <WORD 77 
35 002724 000 003 DIA: BYTE 0,3 3 DIAGNOSE 
36 002725 000000 -WORD 
37 002726 000 204 DIS: -BYTE 0,204 3; DISCONNECT 
38 002727 000000 D «~O 

002730 000 005 DRC: -BYTE 0,DRVCLR 3 DRIVE CLEAR 
40 002731 000000 ERRORS: . 0 3 ERROR FLAGS 
41 00273. 000 207 GCR: BYTE 0,GETCHR 3 GET CHARACTERIST 
42 00273 000 210 SCR: -BYT 0,GETSUB 3 GET SUBUNIT CHARACTERISTICS 

002734 000000 SUBUNT: . 0 3 SLeUNIT ree ECTION IN LOW ORDER BYTE 
44 002735 000 011 GST: BYTE 0,GETSTA 3 GET STA Tus 
45 002736 000 014 RUN: -BYT 0,14 3 SPIN UP DRIVE 
46 00273 000 216 INR: -BYT 0, IRECLB 3 INITIATE RECALIBRATE 
47 002740 000 01 INS: -BYT 0, INSEEK 3 INITIATE SEEK 
48 002741 000000 -WOR 0 : INS CYLINDER/ HEAD ARGUMENTS 








UDATS DISK FUNCTIONAL DMACR X04.01 13-APR=-82 18:08:21 PAGE 35-2 


UNITS, SDI COMMANDS AND PROGRAM VARIABLES 


49 002742 000000 
50 002745 000000 
51 002744 000 201 
000000 
53 002746 362 377 
54 002747 006 377 


56 002750 000 014 
5 000014 


61 002751 
62 002760 


64 

65 003017 000000 

66 003020 000000 
002766 


003013 


000000 
06 000000 
000000 


SECTRK: 


TSTBLK: 


CURPAT: 
SECCNT: 


AREA: 


LETTER: . 


ERRPOS: 
WFLAG: 


FLA 
OLDGRP: 


G: ° 
GRPCNT: 


: BYTE 


RESPONSE MESSAGE DATA BUFFERS 


DISK LOCATION POINTERS 


. 
~e So 
nw = 
N 
N 


oa 
— wr fr 


-S AWOOCOO 
= 


&e 


7? 
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31. 
SUB, CR+11. 


0 


0 
SUB-5 
5 


2 
8. 
DMSDI-4 


ooo Oo09O SO 90023229103 —]2<WN —fMrownwn 


; CHANGE MODE 


RUN COMMAND 


STATUS MESSAGE BUFFER 
CHARACTERISTICS MESSAGE BUFF 


DUMMY SDI CONTROL BLK 

# OF SECTORS IN HEADER SEARCH 
POINTER TO SUBUNIT CHAR. 

WORD DMSDI+7 e. CLOBBERED BY UDA 

SO SET ASIDE SPACE 

RESERVED FOR UDA + als REVECTORING 
SKIP SPACE TO POINTER 

PRI REV INFO WRITTEN IN DMSDI+8 AND 9 


; FIRST READ ONLY DBN 


FIRST READ ONLY CYL AND GROUP 


FACTOR 
; FIRST 4 enn gh CYLINDER 
; FIRST XBN CYLINDER 


SECTORS PER TRACK 
TEST BLOCK NUMBER 


TEST CYLINDER NUMBER 
BLOCKS ON pate ol Perse 


K_NUMBER 
NUMBER OF SECTORS PER GROUP 
NUMBER OF SECTORS PER CYL 
NT GROUP NUMBER 


SECTOR COUNT 
TO STORE AREA LETTER L OR X (BN) 


; TO STORE CURRENT AREA L, D OR X (BN) 


FOR WRITE PROTECTION TEST 


TEST ALL CYLINDER as 
COUNT OF CYL*S HANDLE 
HOLDS OLD GROUP VALUE. FROM EVL COMPUTE 


SEQ 202 
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UDAT3 DISK FUNCTIONAL DMACR X04.01 lace 18:08: 21} 
UNITS, SDI COMMANDS AND PROGRAM VARIABLES 


INDEXS: 


CHAIN: 


; WORD 
- WORD 
: WORD 
/ {WORD 
/ ——.WORD 


. 8 
oo 
Se 


Oo 





Sooooooooo 


FOR CONVERT XFC 


READ AND WRITE CHAIN AREA 
STATUS AREA 

BUFFER POINTER 

LO ORDER HEADER 


REAL _TIME COMMAND AND TRACK NUMBER 
POINTER TO DUMMY SDI CONTROL BLOCK 
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UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR=82 18:08:21 PAGE 36 
DATA PATTERNS 


1 -SBTTL DATA PATTERNS 
2 Oot 000004 PATPTR: .WORD 4 ¢ FOUR PATTERNS WILL BE TESTED 
3 003133 003137 ~WORD PAT4 
4 003134 003160 ° PATS 
5 003135 003201 . PAT6 
S 003136 003222 WW PATS 
: 3 THE DATA PATTERNS (LENGTH OF PATTERN IN WORDS, FOLLOWED BY PATTERN) 
10 003137 000016 PAT4: .WORD 16 3 SHIFTING ONES 
11 003140 000001 -WORD 000001 
12 003141 000003 -WORD 000003 
13 003142 000007 -WORD 000007 
14 003143 000017 -WORD 000017 
15 003144 000037 -WORD 000037 
16 003145 000077 -WORD 000077 
17 003146 000177 -WORD 000177 
18 003147 000377 -WORD 000377 
19 003150 000777 -WORD 000777 
20 0031 001777 -WORD 001777 
21 003152 003777 -WORD 003777 
22 003153 007777 -WORD 007777 
23 003154 017777 -WORD 017777 
24 003155 037777 -WORD 037777 
25 003156 077777 ~WORD 077777 
26 003157 177777 eWORD 177777 
27 003160 000016 PATS: .WORD 16 : SHIFTING ZEROS 
28 003161 177776 WORD 177776 
29 003162 177774 WORD 177774 
30 003163 177770 WORD 177770 
31 003164 177760 WORD 177760 
32 003165 177740 WORD 177740 
33 003166 177700 -WORD 177700 
003167 177600 WORD 177600 
35 003170 177400 WORD 177400 
36 003171 177000 WORD 177000 
37 003172 176000 -WORD 176000 
38 003173 174000 -WORD 174000 
39 003174 17 -WORD 170000 
40 003175 160000 WORD 160000 
41 003176 140000 ° 140000 
42 003177 100000 -WORD 100000 
43 003200 000000 «WORD 000000 
44 003201 000016 PAT6: .WORD 16 3 ALTERNATING ZERO WORD AND ONE WORD IN 
45 003202 000000 -WORD 000000 3 3-2-1-1-1 
003203 000000 -WORD 000000 
47 003204 000000 -WORD 000000 
48 003205 177777 eWORD 177777 
003206 177777 eWORD 177777 
50 003207 177777 eWORD 177777 
51 003210 WOR 000000 
36 003211 «WORD 000000 
5 stats 177777 eWORD 177777 
54 003213 177777 WORD 177777 
55 005214 «WORD 00000 
56 003215 177777 WORD 17777 
57 003216 000000 -WORD 000000 
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READ DATA BUFFERS 





UDATS DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 36-1 
DATA PATTERNS 


58 003217 


-0—0—0—] 300] 30 00—=0 = 


NMMUPIUIPOPIWN 


257. 


RSTOP 
tie 


RREAL 
DMSDI 


WRITE DATA BUFFER 


FIRST BUFFER 
STATUS AND LINK POINTER 
POINTER TO DATA 


LEVEL 1 SDI COMMAND 
POINTER TO DUMMY SDi CONTROL BLOCK 


M 16 
SEQ 206 
UDATS DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 37 





START, GETU<POLL ALL PORTS>, RBUFD, & FCHAIN 

\ .SBTTL START, GETU<POLL ALL PORTS>, RBUFD, & FCHAIN 

3 IF GE, <.+#<255. #3>>=7774 

4 eERROR 

> -ENDC 

003652 RBUFD:; .BLKW 274. ; READ DATA BUFFER 
10 ’ FORMAT CHAIN 
11 003652 F CHAIN 
12 s REPT 255. 3 UP TO 240+ DBNS/TRK MAXIMUM 
13 Z ~ WORD 0 3; BUFFER POINTER 

14 ; «WORD 0 + LO ORDER DBN 

15 ; .WORD 0 : HI ORDER DBN 

16 ; .ENDR 9 
17 F ~ WORD 0 : EXTRA WORD FOR END~OF-CHAIN FLAG 
18 003652 START: 
19 003652 GETU: 
20 .SBTTL GETU = POLL ALL PORTS, THEN GET UNITS TO TEST 
32 ; GET THE UNITS TO TEST 
24 : 
32 3 POLL ALL PORTS AND FILL IN A UDA PORT INFORMATION TABLE (UNITS) 
27 003652 114000 001730 CLR OVRLNM 3 CLEAR OVERLAY NUMBER TO INITATE 

; *** SET UP OVERLAY TABLE 

29 003654 104302 007774 MOV OVSTRT,R2 : GET STARTING ADDRESS OF OVERLAY (LO) 
30 003656 104303 007775 MOV OVSTRT+1,R3 : GET STARTING ADDRESS OF OVERLAY | (HI) 
31 003660 104020 001547 MOV R2,0TABLE : MOVE STARTING ADDRESS OF OVER 

32 003662 104207 002 MOV #NUMOVL=1,R0  : RO = NUMBER OF OVE 

33 003664 104205 001547 MOV #OTABLER5 : RS => OVERLAY 

34 003666 104651 000001 1$: MOV VRS). Ri : R71 HAS OVER LAY LENGTH 

35 003670 110601 ROR : SHIFT TO MAKE BYTES 

36 003671 102201 100001 BIT #100001.R1 : CLEAR UNUSED BITS 

37 003673 105012 ADD R1,R2 : FIND ADDRESS OF NEXT OVERLAY 

38 003674 043676 BCC : IF NO CARRY BRAN ANCH 

39 003675 115403 INC RS : PROPOGATE CAR 
40 003676 100652 000002 2s: MOV R2,2(R5) : STORE STARTING. ADDRESS OF NEXT OVERLAY 
41 003700 104651 000003 MOV 5(R5), R1 : GET OVERLAY LENGTH (<<2) 
42 003702 101031 BIS : SAVE HI ORDER OVERLAY ADDRESS 
43 003703 100651 000003 MOV RT SCRS) : Say 
44 003705 105205 000002 ADD #2.R5 : POINT TO NEXT OVERLAY AREA 
45 003707 117407 DEC : DECREMENT T 
46 003710 053666 BNE 1$ : IF ALL OVERLAYS NOT SET UP, BRANCH 
? 3 *** NOW DO REGULAR GETU 
48 003711 104205 000001 MOV #1,R5 : MOVE INITIAL MASK TO RS 
49 003713 104204 002615 MOV #UNITS RG : R4 POINTS TO UNIT TABLE 

50 003715 5$: PUSH RG + SAVE R4 

003 100464 MOV R4,=(SP) 

51 003716 104052 MOV RS,R2 : MOVE MASK TO R2 

52 003717 020754 CALL = RDSTAT : GET DRIVE . STATUS 

53 003720 115002 TST R2 : SEE IF ERR 

54 003721 01372 BEQ 10$ : IF NOT, BRANCH 

55 003722 104203 002626 MOV #SER10,R3 > NO DRIVE ATTACHED 

56 003724 100643 000001 MOV R3,1(R4) > SAVE ERROR MESSAGE 





N 16 


SEQ 207 
UDAT3 DISK FUNCTIONAL DMACR X04.01 13°APR-82_ 18: 08:21 PAGE 37-1 
GETU = POLL ALL PORTS, THEN GET UNITS TO T 
57 003726 004120 BR 85$ : REPO 
58 003727 114003 10$: CLR R3 ; SETS UP TIMEOUT COUNT 
59 003730 104052 15$: MOV R5,R2 : MOVE MASK TO R2 
60 003731 020754 CALL = RDSTAT : GET STATU Us.” 
61 003732 102201 000001 BIT #RCVRDY,R1 : SEE IF RECEIVER READY ASSERTED 
003734 053744 BNE 20$ 31 
63 003735 117403 DEC : DECREMENT COUNT 
736 053730 BNE 15$ ; IF INCOMPLETE, BRANCH 
65 003737 104203 002641 MOV #SER11,R3 ; RECEIVER READY NEVER ASSERTED 
66 003741 100643 000001 MOV R3,1(R4) : SAVE ERROR MESSAGE 
67 003743 004120 BR 85 : REPORT 
68 003744 102201 000100 20$: BIT #AVAIL,R1 ; SEE IF DRIVE IS AVAILABLE 
69 003746 053754 BNE 25$ : IF SO, BRANCH 
70 003747 104203 003134 MOV #SER4O,R3 : GET SECONDARY ERROR 
71 003751 100643 000001 MOV R3,1(R4) 3 SAVE 
72 003753 004120 BR 85$ : EXIT 
73 003754 104202 001750 25$: MOV #MAXSND ,R2 : SET UP MAXIMUM TRIES AT SENDING 
74 003756 104203 002671 MOV #CR.GST.R3 ; R3 POINTS TO GET STATUS COMMAND 
5 003760 104137 30$: MOV (RS). RO™ 3 SET ADR OF SDI COMMAND BUFF 
76 003761 104631 000001 MOV 1(R3),R1 : SET BUFFER LENGTH 
77 003763 PUSH = R2 : SAVE R2 
003763 100462 MOV R2,-(SP) 
78 003764 104052 MOV RS,R2 : SETUP FOR SEND 
79 003765 060004 XFC SEND : SEND COMMAND 
80 003766 POP R2 + RESTORE COUNT 
003766 104262 MOV (SP)+,R2 
81 003767 115001 TST R1 3 DID UNIT ACCEPT COMMAND | 
82 003770 014000 BEQ 35$ : IF SO, BRAN ANCH 
83 003771 117402 DEC R2 : DECREMENT COUNT 
84 003772 053760 BNE 30$ : IF UNEXPIRED. BRANCH 
85 003773 104203 002657 MOV WSER12,R3 : GET ERROR NUMBER 
003775 100643 000001 MOV R3,1(R4) : SAVE 
87 003777 004120 BR 85$ 
35$: PUSH RG : SAVE R4 
004000 100464 MOV R4,-(SP) 
89 004001 104204 000003 MOV #3,R4 3 SET UP SHORT TIMEOUT 
90 004003 104207 002751 40$: MOV ST.R 3 SET DATA BUFFER ADDRESS 
91 004005 104631 000003 MOV 3(R3),R1 : SET BUFFER LENGTH 
104052 MOV RS,R2 : SETUP FOR RECEIVE 
93 004010 060005 XFC RCV ; RECEIVE SDI COMMAND 
94 115 TST 1 : DID ERROR OCCUR 
95 004012 014052 BEQ 70$ : IF NOT, BRAN 
96 004013 106201 000001 CMP #1,R1 > SEE IF TIMEOUT 
97 004015 054024 BNE 458 : IF NOT, BRANCH 
98 004016 117404 DEC RG : DECREMENT TIMEOUT VALUE 
017 054003 BNE 408 : IF TIMEOUT, BRANCH 
100 004020 POP R4 : RESTORE R4 
004020 104264 MOV (SP)+,R4 
101 004021 104203 002671 MOV #SER13,R3 3 GET ERROR NUMBER 
102 0064023 004047 BR 65$ : BRANCH TO EXIT 
103 004024 45$: POP RG : RESTORE R4 
004024 104264 MOV (SP)+,R4 
104 004625 110601 ROR R1 : ROTATE INTO POSITION TO TEST 
105 004026 110601 ROR R1 3 SEE IF FIRST WORD NOT START FRAME 
106 004027 044033 BCC 50$ : IF NOT, BRANCH 
107 004030 194203 002704 MOV #SER14,R3 : GET ERROR NUMBER 
108 004032 004047 BR 655 ; BRANCH TO END OF LOOP 





L PORTS, THEN GET UNITS TO T 


110601 
044040 
104203 
004047 
110601 
044045 
104203 
004047 
104203 
100643 
004120 


002732 


002754 


002777 
000001 


50$: 


55$: 


60$: 
65$: 


UDATS DISK FUNCTIONAL DMACR X04.01 Lite tote i 08:21 PAGE 37-2 
GETU = POLL AL 


R1 

55$ 
#SER15,R3 
65$ 

R1 

60$ 
oars. oR3 
#SER17,R3 


RB, 1(R4) 
85$ 


SEE IF FRAMING ERROR 
F NOT, BRANCH 

ANCH TO END LOOP 
SEE IF CHECKSUM ERROR 
IF NOT, BRANCH 


ET ERROR NUMBER 
BRANCH TO END OF LOOP 
GET ERROR NUMBER 


SAVE 
BRANCH TO END OF LOOP 


SEQ 209 
UDAT3 DISK FUNCTIONAL DMACR X04.01 1S=APR=82 18:08: 21 PAGE 38 
GETU = POLL ALL PORTS, THEN GET UNITS TO T 
1 H 
¢ ; NOW FILL IN THE TABLE WITH ALL THE SUBUNIT NUMBERS 
4 00405 70$: POP Rs 3; RESTORE R4 
00405 104264 MOV (SP)+,R4 
5 004053 104207 177777 MOV = #=1,, RO ; GET "NO UNITS’ F 
6 004055 100647 000001 MOV =—s_ RO, 1(R4) : CLEAR ANY ERRORS THAT ARE FLAGGED | 
7 004057 100647 000002 MOV = RO, 2(R4) : CLEAR ANY ERRORS THAT ARE FLAGGED | 
8 004061 104307 002751 MOV —s STO ; RO HAS UNIT NUMBER 
9 004063 104072 MOV —-RO,R2 : Copy ROTOR 
10 004064 103207 170000 BIC § #SCHBHINB,RO =; RO HAS UNIT NUMBER 
11 004066 PUSH — <R1,R2> ; SAVE R1 AND 
004066 100461 MOV R1,-(SP) 
004067 100462 MOV R2,-(SP) ! 
12 004070 104052 VRS, R2 ; MOVE UDA PORT MASK TO R2 
13 004071 020754 CALL ——-RDSTAT : GET STATUS 
14 004072 102201 000002 BIT = #ATTN,R1 : SEE IF SPINABLE | 
15 004074 054077 BNE 7 ; IF SO, BRANCH 
16 004075 101207 010000 BIS #10000,R0 : SET "NOT SPINABLE’ FLAG | 
17 004077 75$: POP = <R2, R13 ; RESTORE | 
004077 104262 MOV (SP)+,R2 
004100 104261 MOV (SP)+.R1 | 
18 004101 101267 040000 BIS  #40000,R0 : ELAG UNIT AS NOT TESTED | 
19 004103 110702 SWAB sR ; SWAP R2°S BYTES | 
20 004104 110602 ROR Re : MOVE SUBUNIT MASK TO LO NIBBLE | 
21 004105 110602 ROR  R2 ; MOVE SUBUNIT MASK TO LO NIBBLE | 
22 004196 110602 ROR Re ; MOVE SUBUNIT MASK TO LC NIBBLE 
23 004107 110602 ROR = R2 ; MOVE SUBUNIT MASK TO LO NIBBLE | 
24 004110 103202 177760 BIC  #LBLONB,R2 3 CLEAR ALL BUT SUBUNIT BITS 
25 004112 10014 MOV —s_ RO, (R4) ; SET UNIT NUMBER IN UNITS | 
26 004113 110602 80$: ROR ; MOVE SUBUNIT BIT TO CARRY 
27 004114 044120 Bcc 8—s«a5S : IF E SUBUNITS, BRANCH 
28 004115 100247 MOV =——- RO, (RG) + ; MOVE SUBUNIT NUMBER TO TABLE 
29 004116 115407 INC — RO ; INCREMENT SUBUNIT NUMBER | 
30 004117 004115 BR 80$ : BRANCH 
33 | 
34 004120 85$: POP R4 ; R4 POINTS TO START OF UNIT JUST HANDLED 
004120 104264 MOV (SP)+,R4 
35 004121 105204 000004 ADD #4, RG : RG WILL POINT TO NEXT UNIT (CLEAR CARRY’FOR ROL) 
36 004123 110205 ROL 5 ; RS_HAS NEXT UNIT PORT MASK 
37 004124 106205 000020 CMP = #20, RS : SEE TF ALL PORTS TESTED | 
38 004126 053715 BNE 5$ : If NOT, BRANCH | 
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ISK FUNCTIONAL DMACR X04.01 13-APR-82 
= POLL ALL PORTS, THEN GET UNITS TO T 


105$: 


110$: 
115$: 





8:08:21 PAGE 39 


NOW GET THE PLUG NUMBERS TO TEST AND FIND THEM IN THE TABLE 


MOV #UTOTST,RO 3 GET WHAT SUBUNIT NUMBERS TO TEST REQUEST 
CALL -HOSTROQ : GET THE PLUG NUMBERS 
MOV #0UT.01,R0 : RO POINTS TO UNIT NUMBERS TO TEST 
MOV #UNITS,R1 : R1 POINTS TO UDA PORT INFORMATION 
MOV (R1) RO + R2 HAS UNIT 
BMI 115$ : IF NONE, BRANCH 
PUSH + SAVE R1 
MOV R1.-(SP) 
BIC #160000,R2 ; CLEAR "NOT TESTED’, LEAVE “UNSPINABLE’ SET 
CMP (RO) ,R2 : SEE IF IT IS A UNIT TO TEST 
BNE : NO MATCH 
MOV R2,(R1) : SAVE UNIT AS ONE TO TEST 
POP R1 : RESTORE STACK 
MOV (SP)+,R1 
BR 160$ : LOOK FOR THE NEXT ONE 
INC R1 : POINT TO NEXT SUBUNIT 
MOV R1,R2 : COPY TO R2 
SUB #UNITS ,R2 t SUBTRACT STARTING ADDRESS 
BIT #3,R2 : SEE IF STILL ON SAME UNIT 
BEQ 110$ : IF NOT, BRANCH 
MOV (R1),R2 t SEE IF ANY MORE SUBUNITS 
BPL 100$ : IF $0, BRANCH 
PoP R1 : RESTORE R1 
MOV (SP)+,R1 
ADD 4 : LOOK AT NEXT 


#4,R1 $ UNIT 
CMP WUNITS*16.,.R1 ; SEE IF ENTIRE TABLE SEARCHED 
BNE 95$ : IF NOT, BRANCH 
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001036 
001040 
002615 


000001 


010000 
003156 
003031 


000004 
001542 


120$: 


125$: 


130$: 
135$: 


140$: 


145$: 


150$: 


155$: 


160$: 


ENDGTU: 


DIDN'T FIND ae ereectee 


UDA PORTS AND 
MOV (RO) ,OUT. 03 
MOV #OUT -05,8 
MOV #UNITS 

MOV (RS se a 
BPL 125$ 

MOV . 1(R5).RO 
MOV RO, (R4)+ 
BR 155$ 

PUSH = RS 

BIT #10000,R0 
BEQ 13 

MOV #SER41,RO 
BR 135$ 

MOV #SER18,RO 
MOV RO, (R4S+ 
CLR RO 

MOV (R5)+,R1 
BMI 145$ 

INC RO 

CMP #4,RO 

BNE 140$ 

MOV SER18E=1(RO) ,R1 
MOV 1, (R4)+ 
POP 

PUSH = RS 

MOV (R5)+,R1 
MOV R1,(R4)+ 
DEC RO 

BNE 150$ 

POP RS 

ADD #4,R5 

CMP #UNITS#16. RS 
BNE 120$ 
DEVFTL 2000 

MOV OUT.RO,RO 
CALL -HOSTRO 

BR DONE CD 
INC RO 

MOV (RO) .R2 
BPL 9 

BR T3STRT 





UDAT3 DISK FUNCTIONAL DMACR X04.01 lise to te hy 08:21 PAGE 40 
GETU = POLL ALL PORTS, THEN GET UNITS TO T 


UNITS == DUMP ALL KNOWLEDGE OF THE 


SAVE UNIT NUMBER IN REQUEST BUFFER 
ae POINTS TO OUTPUT BUFFER 


UNIT 
F WAS FOUND, BRAWCH 
GET POINTER to ERROR MESSAGE 
eH IN OUTPUT BUFFER 
SAVE POINTER TO UNIT TABLE 


SEE IF DRIVE UNSPINABLE 
IF SPINABLE 


MOV RS,-(SP) 


BRANCH 
: REPORT ORivE(e) UNSPINABLE 


BRANCH 
—— TO ERROR MESSAGE 
CLEAR COUNT 


GET UNIT NUMBER 
; IF ers BRANCH 


INCREMENT COUNT 
SEE IF MAX 


IF NOT, LOOP 
GET POINTER TO CORRECT ERROR MESSAGE 
MOVE jens e re BUFFER 


RESTOR 

MOV (SP)+,R5 
SAVE R5 

MOV R5,-(SP) 
GE ole SUBUNIT NUMBER 
DE CREMEN NT COUNT 
IF COUNT INCOMPLETE, BRANCH 
RESTORE R5 


MOV (SP)+,R5 


; POINT TO NEXT UNIT TABLE 
; iF whe IF ENTIRE TABLE SEARCHED 


F NOT, BRANCH 
; REPORT FATAL ERROR (WILL SHOW UP AS A 5000) 
thee: 04 


MOV e 2 
MOV T,OUT.03 
MOV #2000 (FTL BEV~3000. .R2 
MOV R 02 
MOV #. ,OUT.01 
MOV #ERRMc SOUT .RO 

SET UP FOR REPORT 

REPORT ERROR 

END TEST 

POINT TO NEXT UNIT TO TEST 

CHECK NEXT UNIT 

FIND IN UDA PORT INFORMATION 

START TEST 








UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 40-1 
REST OF FORMAT CHAIN 


48 


52 005247 


56 005247 


OVRLPT 


-SBTTL REST OF FORMAT CHAIN 
eBLKW = <<255.. #3>=<ENDGTU-GETU>> 
ENDPNT = . 

OVERLAYS START HERE!!! 


SEQ 213 
UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 41 
1 SBTTL MESSAGES 
2 ;MESSAGE STORAGE OVERLAY 
4 ° 
5 005247 DMOVLY MS.0 
005247 064156 .WREDC :OQUTPUT EDC FOR THIS OVERLAY 
: “NLIST BEX 
8 000000 042 126 111 MST: — .ASCII\'TIME-OUT ON SEND'N\ 
9000011 122 061 ~~ 122 -ASCLI\RIRI\ 
10 000013 000 YTE 0 
11000016 042,—S«124.-=«117.MS2:_—ZASCIIA''TIME~OUT ON RECEIVE"N\ 
12 000027 «122s «61—Ss«éd1222 -ASCLINRIRI\ 
13 000031 000 YTE 0. 
14 000032 042» 106-171. MS3:——“ASCIIA'FIRST WORD RECEIVED WAS NOT A START FRAME'N\ 
15 000060 122 061 ~~ 122 -ASCLIRIRI\ 
16 000062 000 YTE 0. 
17 006068 062,—«S««'106-=S«'122: MS4: ~~ CASCIIN FRAMING ERROR ON LEVEL 0 RESPONSE"N\ 
18 000105 == 1226; —Ss«éi122 -ASCLI\RIRT\ 
19 000107 000 YTE 0 
20 000110 -042-~«S«103.—«S«110- MSS: “ASCII\"'CHECKSUM ERROR ON LEVEL 0 RESPONSE"N\ 
21000132 «= 122,s«61Ss«éd1222 ASCII\RIRI\ 
22 000134 000 “BYTE 0 
23000135 042 122 105 MS6: — ‘ASCII\"RESPONSE LONGER THAN EXPECTED’ N\ 
24000155 122 061 122 ASCII\RIR1\ 
25 000157 000 “BYTE 0 
000160 042 103 117 MS7: — ‘ASCII\'CODE FROM RECEIVE WAS UNINTELLIGIBLE FROM SUBSYSTEM = ‘“HI6N\ 
27 000216 «=—s-:122 1 122 -ASCLINRIRI\ 
28 000220 000 YTE 0. 
000221 042 ~«=«103.—=S«117- SB: “ASLII\"'COMMAND DID NOT RETURN EXPECTED RESPONSE CODE"W\ 
30 000251 122 061 ASCIINRI\ 
31 000252 042 040% 040 -ASCII\"* EXPECTED RESPONSE ‘H8N\ 
32 000267 042 «S040 S040 “ASCII\'"" ACTUAL RESPONSE  “H@N\ 
3 000 122 061 ASCIINRI\ 
34 000305 000 “BYTE 0 
5 00030 04g 106 = 122 MS9:_—-ASCII\"DRIVE NOT ASSERTING RECEIVER READY IN DRIVE STATE"W\ 
37 000341 042 10610110: ayeiy ane TO RECEIVE VALID DRIVE STATE"NR1\ 
39 000366 «= 042, —ss103-—Ss«107s MST: TI\"'CANNOT RECEIVE DRIVE STATE FROM DRIVE'N\ 
40 000412 042,103‘ ASCLIN"CHECK IF DRIVE 18 POWERED ONS NRIN 
41 000433 000 “BYTE 0 
¢ 000434 042 © 104 = 122: MS12:— -ASCII\"DRIVE STATE RECEIVED HAS BAD PARITY"NRI\ 
43 000460 000 ‘Bvt 
000461 042 116 117 MS13:  [ASCII\"NO VALID STATE FROM DRIVE'WRI\ 
45 000500 000 “BYTE 0 
46 000501 042 123 125 MS14: ASCII \"'SUBUNIT CHARACTERISTICS SAY THERE ARE ZERO READ ONLY GROUPS'W\ 
47 000540 042,—Sss117'—i<“‘ié«‘iiYG “ASCII \"IN THE DIAGNOSTIC AREA’ W\ 
48 000554 000 “BYTE 0. 
49 000335 = 04g 123125 WSIS: ASCII \"'SUBUNIT CHARACTERISTICS SAY THERE ARE LESS THAN 1 READ/WRITE"N\ 
30 000614 = 048 107122 “ASCII \““GROUPS IN THE DIAGNOSTIC AREA'N\ 
32 000632 04211610516: “ASCII NEITHER R/W READY NOR ATTENTION SET AFTER RECALIGRATE COMMAND" WR1\ 
54 0006 0677 O42 123-125 MST7:—-ASCII\"'SUBUNIT CHARACTERISTICS SAY LESS THAN 1 DIAGNOSTIC CYLINDER'W\ 
56 000737 = 042,-—S ss‘ 122,-—=Ss«105-sMS18: —[ASCII\"'READ/WRITE READY DROPPED BEFORE FORMAT OPERATION’ W\ 





eget iS WAL he oe eal es a oe nN ad 
SEQ 214 


UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR=82 18:08:21 PAGE 41-1 
MESSAGES 


57 000770 BYT 
58 000771 943 106 117 ~MS19: “ASC I\\"FORMAT OPERATION REPORTED TIMEOUT FAILURE‘N\ 
59 dh Ed 04 040 040 “at I\"" CYLINDER *D28"', GROUP ‘D8’. TRACK ‘D8''."'N\ 


o~0o~-—o 


YTE 
60 001 000 YTE 0. 
61 001080 042-«=«101-~=S«*106-«-MS20: + “ASCII\"AFTER RECAL, ERROR BITS WERE SET'NRI\ 
62 001072 000 YTE 
63 001073 1164211421: -ASCII\N' LOGGABLE INFORMATION AFTER RECAL"WR1\ 
65 001117 = C42 122105. MS22:—ASCII\"READ/WRITE READY DROPPED BEFORE WRITE OPERATION’ W\ 
67 001151 = 042,103,117 S23: ASCII\"'COULD NOT WRITE AND READ ANY BLOCK ON THIS TRACK. ON LAST BLOCK:"N\ 
68 001212 = 042 ss127~—Ss«122 ASCII’ WRITE OPERATION REPORTED FAILURE = ERROR CODE "08"* OCTAL."N\ 
69 001251 = 42104102 “ASCII\"DBN "D246". CYLINDER “D286. GROUP "DB". TRACK "D8™."N\ 
71 001506 = 042 122,105 MS 24: -ASCII\" READ/URITE READY DROPPED BEFORE READ OPERATION’ W\ 
3 Q01337 = Gag 103117 S25: -ASCIIN'“COULD NOT WRITE AND READ ANY BLOCK ON THIS TRACK. ON LAST, BLOCK:"W\ 
74 001400 90422122‘ “ASCIT\;READ, OPERATION REPORTED FAILURE -— ERO} “08"* OCTAL."N\ 
001436 042 106 102 ASCII\"DBN "D24"". CYLINDER "D28"". GROUP "DB'’. TRACK "D8"."N\- 
76 001472 000 “BYTE 0 
77 001473 «= 042, 103.117 S26: —--ASCII\'“COULD NOT WRITE AND READ ANY BLOCK ON THIS TRACK. ON LAST BLOCK:"™\ 
78 001534 042 104 101 “ASCIINDATA COMPARE FAILURE ON WORD "D16"."N\ 
79001557 042 ss105-—Ss«‘130 “ASCII EXPECTED DATA "H16N\ 
80 001572 9042S s101—s«103 ASCIIN“ACTUAL DATA "HIGN\ 
81 001604 042 103 131 "ASCLIN"CYLINDER “D28", GROUP "DB". TRACK “DB"*."W\ 
82 001632 000 “BYTE 0 
85 001633 «bg 123105 MSZ7:— -ASCIIN SEEK COMPLETE TIME-OUT == READ/URITE READY DID NOT SET."W\ 
84 001670 042 123 105 ASCII\"'SEEK WAS TO CYLINDER ‘D28". GROUP "D8". 'N\ 
85 001715 000 “BYTE 0 
86 OOI716 =» «ag 1G 17 MS2B:_—ASCIIN'NO BLOCK ON THIS TRACK, CAN BE READ. LAST, BLOCK TRIED:"W\ 
87 001752 = 101 061k “ASCIIAT'BN “D24". CYLINDER “D26". GROUP "DB". TRACK “D8™."W\ 
89 002007 042 101 126 MS29: [ASCII \AVAILABLE WAS NOT ASSERTED AFTER DISCONNECT'N\ 
90 00203 = 042040040 “ASCII \"* STATE RECEIVED "HI6N\ 
002052 000 “BYTE 0 
92 002053 042 111 116 MS30:  <ASCII\"INVALID COMMAND 'H16"' WAS SUCCESSFUL'W\ 
93 002076 000 -BYTE 0 pea 
00 042 103 117 MS31:  ZASCII\''COMMAND WITH “RI"’ LENGTH = "D8" WAS SUCCESSFUL'W\ 
95 002127 000 “BY 
96 002130 042 125.116 MS32:_— ASCIIN"UNIT DID NOT REPORT TRANSMITTION ERROR'NRI\ 
38 002136 = 042 125116 MS33: ASCII" UNIT ACCEPTED AN INVALID GROUP NUMBER FROM GROUP SELECT LEVEL 1°W\ 
100 902220 = 042 125116 MS34: —ASCIIN"UNABLE TO CORRECTLY READ OVERLAY “DSNR1\ 
102 002245 = 42123-12535: ASCIIN"'SUCCESSFULLY WROTE IN DBN AREA WHEN DRIVE WAS WRITE PROTECTED'N\ 
10% 002306 = 042124 110. SER39: -ASCII\"THIS UDA AND ALL DRIVES ATTACHED WILL BE REMOVED FROM TESTING'W\ 
106 002347 042 103 117 SEROO: <ASCII\“COMMAND WAS ‘R1\ 
107 002357 000 “BYTE 
108 002360 042 117 116 MS.ONL: :ASCII\'ONLINE'W\ 
109 002364 000 “BYTE 
110 002365 = 042, «104 «= 122,-sMS.CLR: SASCII\'DRIVE CLEAR'W\ 
111 002374 000 “BY 
112 002375 042, «104 = 111s MS.DIS: ZASCII\DISCONNECT'N\ 
113 002403 000 -BYTE 0 





UDAT3 D 
Ss 


ISK 

SAGES 

114 sit reg 
115 00242 
116 00242 
117 00244 
118 00244 
119 002451 
120 002452 
121 002461 
1s¢ 002462 
123 002465 
124 002466 
125 002501 
126 002502 
127 002507 
128 002510 
129 002535 
130 002561 
131 002572 
132 002603 
133 002614 
134 002625 
135 002626 
136 002640 
137 002641 
138 002656 
139 002657 
140 002670 
141 002671 
142 002703 
143 002704 
144 002 


145 002732 
146 002753 


147 002754 
148 002776 
149 002777 
150 003030 
151 003031 
152 003036 
153 003037 
154 003042 
155 003045 
156 003050 
157 003051 
158 003052 
159 003065 
160 003117 
161 003120 
162 003133 
163 003134 
164 003155 
165 003156 
166 003170 
167 003171 
168 003175 
169 003176 
170 003203 





SERRSRSCSRSSCSLSS 


SRSTSRSLESRRERSESLSCSUSESceTSTSTSoS 


Stss 


107 
107 
107 
103 
123 


105 
105 
105 
110 
105 


MS.GCR: 
MS.SCR: 
MS.GST: 
MS.MOD: 
MS.SEK: 
MS.INR: 
MS .RUN: 
MS2000: 


SER10: 
SER11: 
SER12: 
SER13: 
SER14: 
SER15: 
SER16: 
SER17: 
SER18: 


SER18D: ° 
: -ASCI1 \D6", *\ 
: eASCII \D6"", °\ 
: II \D6N\ 





FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 41-2 


“ASCLIN"GET COMMON CHARACTERISTICS’ N\ 
“ASCIIN'GET SUBUNIT CHARACTERISTICS’ N\ 
“ASCLIN'GET STATUS''N\ 
ASCII\''CHANGE MODE'N\ 
“BYTE 
-ASCIIN"SEEK'W\ 
“ASCII INITIATE RECALIBRATE’ N\ 
"ASCIIN''SPIN UP*'N\ 

YTE 0 


ASCII \"'UNABLE FIND REQUESTED DRIVE FOR TESTING’ N\ 
SCII_ \'"THE FOLLOWING Ag ftsseLs ON THE PORTS’N\ 


AscIt \"'NO DRIVE ATTACHED’ N\ 

ones? \"'RCVR ROY NEVER ASSERTED’ N\ 

ony \""TIMEOUT OF SEND’ W\ 

ty \""TIMEOUT OF RECEIVE’'N\ 

“nea! \''FIRST WORD RECEIVED WAS NOT START FRAME’'N\ 

eASCII \"'FRAMING ERROR ON LEVEL 0 RECEIVE'W\ 

nay \""CHECKSUM ERROR ON LEVEL 0 RECEIVE’'W\ 

meet \""RESPONSE LONGER THAN EXPECTED FOR GET STATUS CMD'W\ 
*aeta \'DRIVE “R1\ 

eASCII \D6"", “N 


TE 0 
SASCII\REAL TIME STATE “H16N\ 
“ASCII\"'STATUS (R TO L): °H16S2H16S2H16S2H16S2H16S2H16S2H16N\ 


“ASCIIN’ REAL TIME STATE “}H16N\ 

-ASCII \"DRIVE NOT AVAILABLE TO THIS UDA'N\ 
“ASCII \"DRIVE NOT SPINABLE’'W\ 
ASCII\"'COMMAND''\ 

“BYTE 

“ASCII\"'RESPONSE’'\ 

‘BYTE 0 


SEQ 215 





= EAT FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 41-3 ed 
i OO se os 127 110 SERS2: ROSEN pen A CONTINUE OR END FRAME DID NOT FOLLOW A START FRAME’WN\ 
\t7 Oo asee os4 127 110 SERS3: at ee AN END FRAME WAS SENT WITH NO START FRAME’'N\ 
7? Ooe iS 93 127 110 SERS4: —* AN END FRAME WITH A BAD CHECKSUM WAS SENT’N\ 
we ot tre] 934 127 110 SERSS: so A CONTINUE FRAME WAS SENT WITH NO START FRAME'W\ 
fa 4 peree 934 127 110 SERS6: rs hal TWO CONSECUTIVE START FRAMES WERE SENT’ W\ 
181 003410 042 127 110 SERS7: .ASCII\’WHEN AN END FRAME WAS SENT AFTER A START FRAME TIMED OUT’ W\ 
is 003445 000 BYTE 0 
184 003446 OVL.MS =. 








eS ae eet 


UDAT3 yy FUNCTIONAL DMACR X04.01 ine; 18:08:21 PAGE 42 
OVERLAY 1 = SETUP ( AND START TESTING ) 


SEQ 217 


1 .SBTTL OVERLAY 1 = SETUP ( AND START TESTING ) 
2 003446 DMOVLY SU,OVR 
003446 012143 WREDC ProuTPUT EDC FOR THIS OVERLAY 
3 POT TITITITITITITITITITT LITT T TTL TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT 
4 FRAAAAAAAAAAEAAARAERAREREEAEEARAERARRAEARAAAREREEREEREREEERREERRERRERERREREES 
5 J RRAAAEAAARERAREEERAREREEEEEERERERERAEREREREREREREREEEEEEREEEEEEREEEEEEEERE 
6 FERRARA EAAAEEEARAEAEAREEEEEEEERERAEEARARAREEEERREERERERAEREREREEREREEEEEERREEEE 
? 000001 SETUP = 1 
8 .SBTTL INIT DRIVE AND LOOK AT DRIVE SIGNALS 
10 :START OF TEST CODE 
12 + INPUTS: 
13 : LUNIT = LOGICAL UNIT NUMBER OF DRIVE UNDER TEST 
14 ; SDI = SDI INTERCONNECT CODE FOR DRIVE | 
| 
16 ZINITIALIZE THE DRIVE 
18 05247 106302 002636 STRTIST: MOV SDI,R2 :GET SDI SELECT CODE 
19 C05251 060011 XFC DINIT SINITIALIZE THE DRIVE 
21 :WAIT FOR DRIVE TO ASSERT RECEIVER READY | 
32 sTIME OUT AFTER ...? 
24 005252 104201 001400 MOV #1400,R1 : SETUP TIMEOUT | 
25 005254 117401 1$: DEC R1 : DECREMENT DELAY | 
26 005255 055254 BNE 1$ : LOOP UNTIL DONE 
27 005256 114005 CLR 5 : GET TIMEOUT COUNTER | 
28 005257 104201 000310 2$: MOV #200. ,R1 : INNER LOOP TIMEOUT 
29 005261 117401 3$: DEC 1 : DELA | 
005262 055261 E : ONTIL DONE 
31 005263 020720 CALL RTDS > GET REAL TIME DRIVE STATE | 
32 005264 115002 TST 2 : SEE IF ERROR OCCURRED 
33 005265 015271 BEQ 4$ : IF OK, CONTINUE | 
34 005266 PUSH RI ) 
005266 100461 MOV R1,-(SP) 
35 005267 021732 CALL ‘TESTEW 3 IF SO, BRANCH 
% 005270 POP R1 
005270 104261 MOV (SP)+,R1 
37 005271 102201 000001 4$: BIT #RCVRDY,R1 z CHECK RECEIVER READY LINES 
38 005273 055317 BNE T : ADVANCE IF ASSERTED 
39 005274 117405 DEC RS + DECREMENT TIME OUT COUNTER 
40 005275 055257 BNE 2$ + IF UNEXPIRED, CH 
41 005276 HARDER 9 [REPORT ERR 
0052 104200 000306 001037 MOV #™S9,OUT.04 
5301 104 001475 001036 MOV LUNIf ,OUT.03 
5304 104202 105701 MOV #9 ERHARD+ 3000. .R2 
005306 104020 001035 MOV R2,0UT.0 
$0831 102900 boodTs Solos a ee, ae 
42 005316 021740 CALL _—«*TESTEV sEXIT TESTING THIS DRIVE 





SEQ 218 
_ UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 43 
_ GET DRIVE CHARACTERISTICS 


1 -SBTTL GET DRIVE CHARACTERISTICS 

¢ GET DRIVE CHARACTERISTICS 

4 005317 104200 000003 001461 T: MOV #3,SDISTO : SET UP_TEMPORARY SHORT TIMEOUT VALUE 
5 005322 104203 002657 MOV #CR.GCR,R3 : POINT TO GET CHARS COMMAND 
6 005324 104200 002404 002637 MOV #MS.GCR,COMND 

? 005327 021076 CALL TALK 3 SDI INTERCHANGE 

8 005330 113006 TST : SEE IF ERROR OCCURRED 
9 005331 01533 BEQ : IF NOT, BRANCH 

10 005332 021746 CALL TESTEX : IF SO, REPORT 

11 005333 104307 002760 1$: MOV CR+SHRTTO,RO : GET SHORT TIMEOUT 

12 005335 103207 177760 BIC #LBLONB,RO 3 CLEAR UNUSED BITS 

13 005337 021463 CALL TO : SET UP TIMEOUT 

14 005340 104070 001461 MOV RO,SDISTO : SAVE IN SHORT TIMEOUT 
15 005342 104307 002761 MOV CR+LONGTO,RO : GET LONG TIME 

16 005344 103207 177760 BIC #LBLONB,RO 3 CLEAR UNUSED BITS 

17 005346 021463 CALL TO : SET UP TIMEOUT 

H 005347 104070 001462 MOV RO,SDILTO 3 SAVE IN LONG TIMEOUT 
20 
21 
22 
25 -SBTTL ISSUE ONLINE COMMAND 

€6 : ISSUE ONLINE COMMAND AND CHECK RESPONSE 

28 005351 104203 002640 MOV #CR.ONL ,R3 : POINT " At COMMAND 
29 005353 104200 002360 002637 MOV #MS .ONL , COMND 3 SET UP_FOR ERROR 

30 005356 021076 CALL TALK 3 SDI INTERC HANGE 

31 005357 115002 TST R2 : SEE IF ERROR OCCURRED 
32 005360 015362 BEQ 2s : IF NOT, BRANCH 

33 005361 021746 CALL TESTEX : IF SO, REPORT 


34 005362 2$: 


4 


| UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 44 
NE COMMAND 


| ISSUE ONLI 


ISSUE ONLINE COMMAND 
ISSUE GET STATUS COMMAND AND CHECK THAT ATTENTION DROPS 


#CR.GST,R3 
#MS.GST,COMND 
TALK 


TOA 
TESTEX 
RT 


DS 
— 


POINT % GET STATUS COMMAND 
SET UP_FOR ERROR 

SDI INTERCHANGE 

SEE IF ERROR OCCURRED 

IF NOT, BRANCH 


IF SO, REPORT 

GET REAL TIME pt he: STATE 

IS ATTENTION ASSERT 

COMMAND SHOULD HAVE CLEARED IT 


ATTEN NOT DEASSERTED 
TESTEW 


#LOBYTE ,ERRORS 
¢ 3 


#MS.CL 
TALK 


2 -SBTTL 
4 005362 104203 002671 MOV 

5 005364 104200 002443 002637 MOV 

6 005367 921076 CALL 

7 005370 113006 TST 

8 005371 01537 BEQ 

9 005372 021746 CALL 
10 005373 020720 TOA: CALL 
11 005374 102201 000002 BIT 

12 005376 015400 BEQ 

13 3 ERROR - 
14 005377 021732 CALL 
15 005400 T0B 

16 

17 
18 
19 
20 
21 SBTTL 
$¢ ; ISSUE DRIVE CLEAR C 
2 000377 002731 MOV 
26 005405 104200 002365 002637 MOV 
27 005410 021076 CALL 
28 005411 5002 ST. 
29 005412 015414 8EQ 

30 005413 021746 CALL 


| 
| 
2 
4 005400 104200 
25 005403 104203 002645 MOV 
7 


| 
EE EL LC a OR LE oF 


1$ 
TESTEX 


o 


R,COMND 


ISSUE DRIVE CLEAR COMMAND 
COMMAND 


MOVE TO DRIVE CLEAR SDI AREA 
POINT [0 DRIVE CLEAR 

SET UP FOR ER 

SDI INTERCHANGE 

SEE IF ERROR OCCURRED 

IF NOT, BRANCH 

IF SO, REPORT 


SEQ 219 





} 
i 
SEQ 220 
UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 45 
ISSUE CHANGE MODE COMMAND 
1 -SBTTL ISSUE ge 23 MODE COMMAND 
¢ 005614 is ISSUE CHANGE MODE COMMAND TO ENABLE DIAG CYL ACCESS 
4 005414 104203 002676 MOV ose fe Re 3 POINT TO CHANGE MODE COMMAND 
5 005416 104300 boSecs 002745 MOV E1,MODE : WRITE yt DIAG CYL ACCESS, NO FORMATTING 
6 005421 104200 002452 002637 MOV #MS .MOD , COMND ; SET UP FOR ERROR 
7 005424 021076 CALL TALK : SDI INTERCHANGE 
8 005425 115002 TST R2 : SEE IF ERROR OCCURRED 
9 005426 015430 BEQ 2$ : IF NOT, BRANCH 
005427 021746 CALL TESTEX : IF SO, REPOR 
12 
13 
14 
15 
16 -SBTTL SPIN UP DRIVE 
17 ;SPIN UP DRIVE 
18 005430 1osees 002715 $: MOV #CR.RUN,R3 : POINT TO RUN COMMAND 
19 005432 104200 002502 002637 MOV #MS .RUN, COMND : SET UP _FOR ERROR 
20 005435 o71076 CALL TALK : SDI INTERCHANGE 
21 005436 115002 TST R2 ; SEE IF ERROR OCCURRED 
22 005437 015441 BEQ 3$ : IF NOT, BRANCH 
23 005440 021746 CALL TESTEX : IF SO, REPORT 


24 005441 3$: 





a —_ - — 4 





SEQ 221 


UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 46 
ISSUE INITIATE RECALIBRATE COMMAND 





1 .SBTTL ISSUE INITIATE ORE CALIBRATE COMMAND 
é : ISSUE INITIATE RECALIBRATE C 
4 005441 104203 002710 MOV wer, INR, R3 : POINT TO RECALIBRATE COMMAND 
5 005443 104200 002466 002637 MOV #MS. INR, COMND : SET UP FOR ERROR 
6 005446 021076 CALL _—«*iTALK : SDI INTERCHANGE 
7 005447 115002 TST : SEE IF ERROR OCCURRED 
8 005450 015454 BEQ 4$ ; IF NOT, BRANCH 
9 005451 PUSH = R1 | 
005451 100461 MOV R1,=(SP) 
10 005452 021746 CALL _—*TESTEX 
11 00545 POP R1 | 
005453 104261 MOV (SP)+,R1 | 
12 005454 104204 000004 4$: MOV #4,RG : R4 IS DECREMENT COUNTER | 
13 005456 020720 T3C: CALL TDS : GET DRIVE SIGNALS | 
14 005457 115002 TST R2 : SEE IF ERROR | 
15 005460 051732 BNE TESTEW : IF SO, BRANCH 
16 005461 102201 000002 BIT #ATIN,R1 : DID ATTENTION SET? 
17 005463 015562 BEQ T3D NO | 
18 : CHECK ERROR BITS = IF SET, REPORT "AFTER RECAL ERROR BITS ARE SET’' OR SOMETHING THEN EXIT 
19 : IF LOGGABLE INFO BIT SET (NO ERROR BITS) MESSAGE LOGGABLE INFO AFTER RECAL, CONTINUE TEST) 
20 005464 PUSH —R1 7 SAVE R 
005464 100461 MOV R1,-(SP) | 
21 005465 104203 002671 MOV #CR.GST,R3 : POINT TO GET STATUS COMMAND 
2 005467 104200 002443 002637 MOV #MS.GST.COMND : SET UP FOR ERROR 
23 005472 021076 CALL _—s*iTALK : SEND AND RECEIVE COMMAND 
24 005473 11500 TST + ANY ERRORS? 
25 005474 055525 BNE 5$ ; IF 150, EXIT 
26 005475 104303 002753 MOV ST+ST.ERR,R3 T ERROR INFORMATION 
27 005477 102203 000350 BIT #<sT. FE+ST.RE+ST.PE+ST. vis RS Y ERRORS? 
28 005501 015532 BEQ iF ok CONTINUE | 
29 005502 HARDER 40. ASER22 
005502 104200 001050 001037 MOV 04 
005505 104200 003052 001040 MOV PSE RoS OUT OS 
005510 104 001475 001036 MOV LUNIT, 
005513 104202 105714 MOV #20! ERHARD+3000. .R2 | 
005515 104020 001035 MOV R2,0UT.02 
005517 104 005517 001034 MOV . ,OUT.01 
5522 060013 001033 MOV #ERRMES ,OUT.RO | 
5$: POP R1 | 
MOV (SP)+,R1 
MOV #OUT.06,R3 : ELSE SET UP ERROR INFO 


catl TESTEY 


T4A 
002752 73a: SIT neers ANY LOGGABLE INFO? 


; : IF NOT CONTINUE 
MOV #OUT.04,R3 ; IF SO, SET UP POINTER 
CALL STR + AND SET UP INFO 
MSSG 21, #SER22 
001035 MOV #MS21.0UT.02 
001036 MOV #SER22, our. 03 
V RO,-(SP) 
Rov R1.=(SP) 
001034 MOV LUNIT,OUT.01 
HOV #MESSAG,RO 


MOV (SP)+,R1 





UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 46-1 
ISSUE INITIATE RECALIBRATE COMMAND 


005560 104267 
39 005561 138: POP Ri 
005561 104261 
40 005562 102201 100000 T3D: BIT #RWRDY ,R1 
41 005564 055610 BNE T4A 
42 005565 117404 DEC R4 
43 005566 055456 BNE T3C 
44 00556 HARDER 16 
005567 104200 000635 001037 
005572 104300 001475 001036 
00557 Ho 43 105710 
005577 104020 001035 
005601 9g 44 005601 001034 
005604 104200 060013 001033 
45 005607 021732 CALL TESTEW 


SEQ 222 


MOV (SP)+,RO 


3 RESTORE R1 
MOV (SP)+,R1 


3; DID R/W READY SET? 
: IF SO, BRANCH 
3; TRY AGAIN? 
;R/W READY DID NOT SET AFTER RECALIBRATE COMMAND 
#MS16, 04 
LUNIT,OUT.03 
MOV #16! ERHARD+3000. ,R2 
MOV rae Se | 


MOV #ERRMES ,OUT.RO 





Sssssssssss 
oa 


MUMIA 


eS rr 


BAR 


OO $0 3 tt I I OO ot I = 


NO OONL VY EWN =O OONOUSwR— 
SSss 
ww 
Ww 
Ww 


MMR =. 


23 


33 005652 
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oa 


K_FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 47 
It CHARACTERISTICS 


-SBTTL GET SUBUNIT CHARACTERISTICS 
GET SUBUNIT CHARACTERISTICS 


UNITNB,R1 
#°C3,R1 
n0, /RO 


TESTEX 


GROUP 





; FIND SUBUNIT MASK FOR COMMAND 
; CLEAR UNUSED BITS OF INDEX 


; CLEAR UNUSABLE BITS 
POINT GET SUBUNIT CHARACTERISTICS 
SET = FOR ERROR 


NTERCHANGE 
SEE IF ERROR OCCURRED 


-SBTTL SEEK TO CYLINDER 0, GROUP 
SEEK TO CYLINDER 0, 0 
ieee R1 
TSTCYL 
ae tg TSTCYL+1 


#HBHINB, TSTCYL #1 
est CYL+2 


¢ LO ORDER CYL 0 
; HI ORDER CYL 0 


SEQ 224 
UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 48 
CALCULATE NUMBERS 
1 .SBTTL CALCULATE NUMBERS 
Q : CALCULATE NUMBER OF SECTORS PER TRACK 
3 : NO. OF SECTORS/TRACK =(NO. OF LBN'S/TRACK) + (NO. OF RBN'S/TRACK) 
5 005653 104301 002777 T4A1: MOV SUB+RBNTRK,R1 3 GET RBN'S/TRACK 
6 005655 103201 177600 BIC #177600,R1 
7 005657 104307 003004 MOV SUB+LBNTRK ,RO : GET LBN*S/TRACK 
8 005661 103207 177400 BIC #HIBYTE,RO : ZERO UPPER BITS 
9 005663 105071 ADD RO, : ADD NUMBER OF LBN’S TO RBN'S 
10 005664 104010 003060 mov R1.SECTRK ; SAVE 
11 005666 105011 R1. : COMPUTE SECTORS TIMES Two 
12 005667 104010 003020 mov R1.NSCSL : AS SECTORS READ BEFORE DECLARING 
13 : NO HEADER FOUND 
15 ;COMPUTE FIRST CYLINDER IN XBN AREA 
17 005671 104301 002773 MOV SUB+LBNCYL,R1 
18 005673 104010 003056 MOV R1,FXBNCYL 3 FIRST XBN CYLINDER (LO) 
19 005675 104307 002774 MOV SUB+LBNCYL+1,RO | 
20 005677 103207 170000 BIC #*CHBHINB,RO- ZCLEAR SUBUNIT CYL BITS 
31 005701 104070 003057 MOV RO, FXBNCYL+1 : FIRST XBN CYLINDER (HI) | 
t COMPUTE FIRST CYLINDER IN DBN AREA | 
25 005703 105301 003014 ADD SUB+XBNCYL,R1 : ADD NUMBER OF XEN CYLINDERS | 
26 005705 045707 BCC T48 : BRANCH IF NO CAR | 
27 005706 115407 INC RO t INCREMENT HI ORDE aR R CYL | 
28 005707 104010 003054 148: MOV R1,FDIACYL > STORE STARTING DBN CYLINDER | 
“9 005711 104070 003055 MOV RO.FDIACYL+#1 
31 ;COMPUTE LAST CYLINDER IN DBN AREA 
33 005713 104 003015 MOV SUB+DBNCYL .R3 : GET NUMBER OF DBN CYLINDERS 
34 005715 110703 SWAB RS 
35 005716 103203 177400 BIC #HIBYTE ,R3 
36 005720 055742 BNE T 
37 005721 HARDER 17 CHARACTERISTICS SAY LESS THAN 1 DIAGNOSTIC CYLINDER. 
005721 104 77 001037 MOV #S17,0UT.04 | 
005724 104 001475 001036 MOV LUNIT.OUT.03 
005727 104202 105711 MOV #17 ERNAR® 3000. .R2 
005731 104020 001035 MOV R2.OUT. 02 
005733 104 005733 001034 MOV #.,0UT.01 
005736 104 13 001033 MOV #ERRMES ,OUT.RO 
38 005741 021740 CALL _—«*TESTEV 
39 005742 T4C: 
; NO LONGER NEED LAST DIAG CYL = JUST SAVE STARTING DBN, LAST TRACK, LAST GROUP, LAST CYL 
; AND USE COMPUT KFC HEAVILY 
42 005742 117403 DEC RS ; REDUCE BY ONE AND ADD T 
43 005743 105031 ADD R3,R1 : FIRST DBN CYLINDER TO 
005744 045746 Bcc T4d : COMPUTE LAST CYLINDER 
45 005745 115407 INC RO 
6 005746 104010 003051 14D: MOV R1,LDIACYL z STORE LAST DBN CYLINDER 
47 005750 104070 00305 MOV RO.LDIACYL#1 
48 005752 104303 00277 MOV SUB+GRPCYL ,R3 3 GET GROUPS/CYLINDER 
005754 103205 177400 BIC #HIBYTE,R ; CLEAR UNUSED BITS 
50 005756 11740 DEC + LAST GROUP 
51 005757 104030 003053 MOV R3,LDIACYL*2 





| Realy gee iad ghia chi ekdidede os Oita: ag I eh erate 


UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 49 
READ ALL FACTORY FORMATTED TRACKS 


SEQ 225 


1 .SBTTL READ ALL FACTORY FORMATTED TRACKS 
2 ;READ ALL FACTORY FORMATTED TRACK 
; SREPORT ER! % IF ALL SECTORS + A TRACK READ WITH AN ERROR. 
3 ;COMPUTE DE. OF FIRST BLOCK ON FACTORY FORMATTED CYLINDER 
7 005761 114005 16: CLR RS 
8 005762 104303 002776 MOV SUB+TRKGRP,R3 ; TRACKS/GROUP 
9 005764 103203 177400 BIC #HIBYTE ,R3 
10 005766 104304 003060 MOV SECTRK,R4 : X SECTORS/TRACK 
| 11 005770 105035 T6A: ADD R3,R5 : TO COMPUTE NUMBER OF SECTORS PER GROUP 
| 12 005771 «1174 DEC RG 
13 005772 055770 BNE T6A 
14 005773 104050 003073 MOV RS, SECGRP : SAVE SECTORS/GROUP 
15 005775 PUSH R2 + SAVE R2 
005775 10046 MOV R2,-(SP) 
16 005776 104302 002775 MOV SUB+GRPCYL .R2 : GET GROUPS/CYL 
17 006000 103202 177400 BIC #HIBYTE ,R2 + CLEAR UNUSED BITS 
18 006002 PUSH = R2 + SAVE R2 
006002 100462 MOV R2,-(SP) 
19 006003 000 003074 CLR SECCYL 
20 006005 105300 003073 003074 2%: ADD SECGRP, SECCYL : GET SECTORS/CYL 
21 006010 117402 DEC R2 
22 006011 5 BNE 2$ 
23 006012 POP R2 : RESTORE R2 
006012 104262 MOV (SP)+,R2 
24 006013 104301 003015 MOV SUB+DBNCYL,R1 : GET CYLINDERS IN DBN AREA 
25 006015 110701 SWAB ORR 
26 006016 103201 177400 BIC #HIBYTE.R1 : TO COMPUTE BLOCK NUMBER OF FIRST BLOCK 
27 006020 114005 CLR R5 J treaR PRODUCT 
28 006021 105025 1$: ADD R2.R5 
29 90602 117401 DEC R1 
006023 056021 1$ 
31 006024 R2 : RESTORE R2 
006024 104262 MOV (SP)+,R2 
32 006025 114007 CLR RO 
33 006026 PUSH = RS ; SAVE NUMBER OF GROUPS IN DIAGNOSTIC AREA 
006026 100465 MOV RS,-(SP) 
34 006027 117405 DEC RS : SO DBN COMPUTED IS FIRST ON LAST GROUP 
35 006030 105301 003073 T6C: ADD SECGRP,R1 
36 006032 046034 BCC T6D 
37 006033 115407 INC RO 
38 006034 117405 16D: DEC R5 
39 006035 056030 BNE Tec 
40 006036 104010 003047 MOV R1, LCDBN 
41 006040 104070 003050 MOV RO. LCDBN+1 
42 006042 POP RS ; RS IS NUMBER OF GROUPS IN DIAG AREA 
00604¢ 104265 MOV (SP)+,R5 
43 006043 104 003015 MOV SUB+DBNCYL ,RO : GET NUMBER OF READ ONLY GROUPS 
44 006065 103207 177400 BIC #HIBYTE RO : CLEAR UNUSED BITS 
5 006047 056071 1 : IF READ ONLY GROUPS > 0 THEN BRANCH 
45 006050 HARDER 14 : TERO READ ONLY GROUPS 
006050 104200 000501 001037 MOV #MS14,0UT.04 
006053 104 001475 001036 MOV LUNIT.OUT.O 
006056 104202 105706 MOV #14 'ERHARD+ 3000. .R2 
006060 104020 00103 MOV Re, OUT.0 
006062 104200 006062 001034 MOV #..0UT.01 


‘Pao RC, Tee Ota a arias, any alia  eEME 2 Lee RE 


SEQ 226 
UDAT3 DISK FUNCTIONAL DMACR X04. 7 13-APR=82 18:08:21 PAGE 49-1 
READ ALL FACTORY FORMATTED TRAC 


006065 104200 060013 001033 MOV #ERRMES ,OUT.RO 
47 006070 001740 BR TESTEV 
48 006071 104300 003051 003044 1$: MOV LDIACYL ,ROFDC 
49 006074 104300 003052 003045 MOV LDIACYL+1,ROFDC+1 
0 006077 107075 SUB RO,RS : RS HAS NUMBER OF READ/WRITE GROUPS 
24 006100 01610 BEQ : IF R/W GROUPS ZERO, ERROR 
6 006101 03612 BPL 3$ 3; IF GREATER THAN ZERO, BRANCH 
53 006102 2s: HARDER 15 + NO READ/WRITE GROUPS 
006102 104200 000555 001037 MOV #™S15,0UT.04 
006105 104 001475 001036 MOV LUNIT.OUT.03 
006110 104202 105707 MOV #15 !ERHARD+3000. ,R2 
006112 104020 001035 MOV R2,0UT.02 
006114 104200 006114 001034 MOV #.,OUT.01 
006117 104200 060013 001033 MOV #ERRMES ,OUT.RO 
54 006122 001740 BR TESTEV 
55 006123 104304 002775 3$: MOV SUB+GRPCYL ,R4 : GET NUMBER OF GROUPS/CYL 
56 006125 103204 177400 BIC WHIBYTE RG : CLEAR UNUSED BIT 
57 006127 107047 4$: SUB R4,R0 3; SUBTRACT NUMBER or GROUPS/CYL 
58 006130 076141 BMI 58 
59 006131 016146 BEQ 6$ 
60 006132 107200 000001 003044 SUB #1, ROFDC ; DECREMENT STARTING READ ONLY CYL BY 1 
61 006135 046127 BCC : IF NO CARRY, LOOP 
62 006136 117400 003045 DEC ROFDC+1 : 
63 006140 006127 BR $ : BRANCH 
64 006141 104203 177777 S$: MOV #=1,R3 : SET UP FOR COMPLEMENT 
65 006143 103073 BIC RO,R3 : COMPLEMENT (1°S) 
66 006144 115403 INC R3 : 2°S COMPLEMENT 
67 006145 104037 MOV R3,RO + RESTORE TO RO 
68 006146 104070 003046 6S: MOV RO.ROFDC+2 : SAVE IN STARTING GROUP 
69 006150 114003 CLR R3 : CLEAR LO ORDER FIRST READ ONLY DBN 
70 006151 114004 CLR RG : CLEAR HI ORDER FIRST READ ONLY DBN 
71 006152 105303 003073 7$: ADD SECGRP,R3 3 ADD SEC/GRP TO LO ORDER STRT SEC 
72 006154 046156 BCC 8$ : IF NO CARRY, BRANCH 
73 006155 115404 INC R4 : PROPOGATE CARRY 
74 006156 117405 8$: DEC RS : DECREMENT COUNT 
75 006157 056152 BNE 7$ : 
76 006160 104030 003042 MOV R3,ROF 
77 006162 104040 003043 MOV R4.ROFDBN+1 
78 006164 104030 003071 MOV R3, CURBLK 
79 006166 104040 003072 MOV R4, CURBLK+1 
80 006170 104200 000104 003102 MOV #°D, LETTER MAKE DBN’S 
81 ; POINT TO CURBLK, CALL SOME SUB THAT LOOKS AT THE POINTER PASSED 
82 ; AND THE *LETTER® AND COMPUTS CYL, TRK, AND GRP. THEN RET 
83 * THEN SEE IF CYL COMPUTED IS > max CYL IF SO, THIS PHASE GF TEST IS OVER (BR TGX) 
84 006173 104205 003071 166: #CURBLER RS 
85 006175 021776 FNDCY : GO DIRECTLY TO DBN WILL BE PROCESSED 
6 > THEN see F CYL COMPUTED IS > MAX CYL. IF SO, THIS PHASE OF TEST IS OVER (BR TGx) 
87 006176 106300 003052 003064 is: cw LDIACYL +1, -TSTCYL#1 
saat rsa BA ier 
89 ies e850 003051 003063 CMP LDIACYL, TSTCYL 
” 006 046210 = sd Bcc 2 
e® 
006207 006233 BR T6F 
91 006210 104201 003063 MOV #TSTCYLRI1 
92 006212 022156 CALL SEEK 3 SEEK TO REQUESTED CYL 








003071 
003060 


177400 
003060 


003072 


UDATS DISK FUNCTIONAL DMACR_ X04.01 13-APR-82 18:08:21 PAGE 49-2 
READ ALL FACTORY FORMATTED TRACKS 


#CURSLK RS 
SECTRK,R3 

READ1 

#HIBYTE ,CURBLK+1 
SECTRK, CURBLK 
T6G 

CURBLK+1 

R4 

T66 

OVRLAY 


»*TEST 


sREAD EACH SECTOR TILL ONE READS OK 


: BRING IN REST OF THE CODE 


SEQ 227 





DWDONAVUEWN—ODODNOUSW W— 


bed ed ed a ds td a 


S8ss 


wee 


SF 


SSsss 


RRUNUSSSSESRLES LESS LSAP UNS YSYRRNVLS 
sssssssss 


MUMIA 


s 


167077 


000002 


_ 
Sad 
t=) 


So 

Se 

oo 
WAN 


So tte tet, et oe eet ee te ee + 
RRRERRRRRAVAGRERANC EAE 
SSSSSSSSSYVSESSSSLIESAT 

S33 3 a onas=s 


Ses 
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003070 


:0N T 
;0N T 


30N THAT GR AND TH 
sGROUP TO VERIFY HEADS 


EST = 2 
ZSTARTING WITH CYLINDER 0 
HE ISK. PERFORM A SE 
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UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR=82 18:08:21 PAGE 50 
SEEK TO SELECTED GROUP, READ HDR, SEEK TO DIAGNOSTIC AREA 


- SBTTL 
DMOVLY 
EDC 


o 
FS RRAAAARAAAAAAAAAAARAAEE 


:COMPUTE LBNS PER GROUP 


T?: CLR 


T7A: 


1$: 


T7C: MOV 
3 COMPUTE CYL 


; IF CYL < ST 


R 
SUB+TRKGRP RS 
#HIB 


A 
R1,BLOCKG 
BLOCK 
SUB+GRPCYL ,RO 
BYTE .R 
BLOCKS SLOCKE 


Y 
FXBNCYL,CYLLO 


FXBNCYL+1,CYLLO+1 


—_ 


ine GROUP, READ HDR, SEEK TO DIAGNOSTIC AREA 
sOUTPUT EDC FOR THIS OVERLAY 


SRAAAAAAAARAAARAARAAERRAEREEREEEEREREREEEERERERE 
PRhahalnishahaininiainisisiniiiint tbh hh hh hit it itititititiIiI Titi iiiiiLiLiLiLitt 
PRelehahainhshabatatiaiaiiainitdt dt hhh bbb iti ti tiriritiLiL iii LiLiLiIiitiLtiLiLiLititity 
ebeiaisinintntatatniaisinininidaiaiitt th hibit ite titititirit ii tititiLiLiLiLiLiLiLititity 


GROUP 0 AND INCREMENTING THROUGH EVERY GROUP 
EK 70 THE SELECTED GROUP, RE 

EN A SEEK TO THE FACTORY FORMATTE 

POSITIONED CORRECTLY. 


: LON*S/TRK X TRK/GROUP 


3GET LBN°S PER TRACK 
:CLEAR UNUSED BITS 





zSAVE IN BLOCKG 


¢ CLEAR OLD GROUP VALUE USED IN FNDCYL 
sAREA BEING SEEKED INTO IS LBNS 

3 MOVE TO LETTER FOR REPORTING 

sPOINT TO LBN NUMBE 


Poe | GRP. 
ARTING CYL THEN CONTINUE ELSE IF CYL 


>= STARTING DIAG CYL THEN OUT (BR T7x) 
+ ELSE IF CYL = STARTING XBN CYL CLR TSTBLK, K+1 AND T7Cc 


Y 
CYL = ber td XBN? 


: IF HERE AGAIN, BRANCH 


3 NOW IN A 

21F SO, CLEAR TSTBLK 
;CHANGE BLOCK COUN 
sCHANGE BLOCK COUNT PER CYL 





UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 50-1 
SEEK TO SELECTED GROUP, READ HDR, SEEK TO DIAGNOSTIC AREA 


57 005365 005321 BR T7C 
8 005366 300 003054 003063 15S: CMP FDIACYL, TSTCYL 
59 005371 055376 BNE 
60 005372 106300 003055 003064 CMP FDIACYL+1, TSTCYL#1 
61 005375 015470 BEQ T7X 
005376 104300 003101 003102 2s: MOV AREA, LETTER 
63 005401 104201 003063 MOV #TSTCYL,R1 
64 005403 022156 CALL SEEK 
65 005404 104205 003061 MOV #TSTBLK,RS 
005406 104303 003060 MOV SECTRK,R3 
67 005410 022325 CALL READ1 
69 005411 194200 000104 003102 3s: MOV #°D, LETTER 
70 005414 021770 CALL = FNDCYL 
71 005615 104201 003063 MOV #TSTCYL,R1 
72 005417 104303 003060 MOV SECTRK,R3 
73 005421 022156 CALL SE 
% 005422 104205 003047 MOV #LCDBN.RS 
115 106 INC GRPCNT 
#HIBYTE ,GRPCNT 
5$ 
RO 
#T4SOFT,RO 
LUNIT,OUT.01 
GUT .08 
T.0 
T.04 
OuT.05 
HOSTRQ 
RO 
BLOCKC, TSTBLK 
6$ 
TSTBLK+1 
PL SCKS, PSTOLE 


TSTBLK+1 
T7C 





Pan Foal AGAIN WITH XBN 

iif NOT, CONT INUE 

sIF SO, EXIT 

sSEEK TO CYLINDER 

;_ SET UP POINTER TO TEST BLOCK 


GET MAXIMUM NUMBER OF SECTORS TO READ 
sREAD UNTIL AT LEAST ONE RECORD READ WITHOUT ERROR 


COMPUTE CYL FROM LCDBN 


3 IN DIAGNOSTIC AREA 


3 R3 = SECTORS/TRACK 


;_SET UP POINTER TO TEST BLOCK 
sREAD UNTIL AT LEAST ONE RECORD READ WITHOUT ERROR 


3; SAVE RO 
MOV RO,-(SP) 
TO INTERRUPT HOST <<ONLY>> 
IDENTIFY UNIT 
NO SOFT ERRORS 
3; NO ECC CORRECTIONS 


; REPORT (NOTHING) 
: RESTORE RO 
MOV (SP)+,RO 
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UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 51 
CHECK WRITE PROTECT 


-SBTTL CHECK WRITE PROTECT 
MOV #-1 ,WFLAG 


CURBLK 
CURBLK+1 


CURTRK 
FDIACYL,TSTCYL 
FDIACYL+1, TSTCYL+1 
TSTCYL+2 


#TSTCYL,R1 
SEEK 
WRITEB 

RO 

1$ 

R1 


1$ 
35 


TESTEV 


K 2 


SEQ 230 


SET FLAG 
CLEAR BLOCK 


CLEAR TRACK 
POINT TO CYL TO TEST 


CLEAR GROUP 
R1 => TEST CYL 


; SEEK THERE 
; AND ATTEMPT TO WRITE 
; WAS IT SUCCESSFUL? 


IF NOT, THAT WAS EXPECTED 


REPORT ERROR 

MOV #MS35 ,OUT.04 

MOV LUNIT OUT .03 

MOV #35! ERHARD+3000. ,R2 

MOV R2,0UT.02 

MOV - -OUT.01 

MOV #ERRMES ,OUT.ROQ 
CLEAR DRIVE 


CLEAR FLAG 





SEQ 231 
UDATS DISK FUNCTIONAL DMACR X04.01 ae 18:08:21 PAGE 52 
CHANGE MODE TO ALLOW FORMATTING AND WRITING 


— 


~SBTTL CHANGE MODE TO ALLOW FORMATTING AND WRITING 


§ 005545 T8: 

4 ; FIRST CHANGE MODE TO ALLOW FORMATTING AND WRITING 

6 005545 104204 000004 MOV #4 ,RG : R46 HAS DECREMENT COUNTER 

7 005547 104203 002676 2s: MOV #CR.MOD,R3 : POINT TO CHANGE 

8 005551 104 002747 002745 MOV MODE2 , MODE : WRITE PROTECT, DIAG CYL ACCESS, NO FORMATTING 

9 005554 104200 002452 002637 MOV #MS MOD, COMND : SET UP FOR ERR 

10 005557 021076 CALL _—«*iTALK : INITIATE SDI INTERCHANGE 

11 005560 115002 : SEE IF ERROR OCC 

12 005561 015566 BEQ : IF NOT, BRANCH 

13 00356¢ 021746 CALL _—*‘TESTEX : IF SO, ERROR | 

14 00556 7406 DE : DONE? 

15 005564 055547 E $ : IF NOT, BRANCH (TRY AGAIN BECAUSE FORMA 

16 ; WON'T WORK WITH A WRITE PROTECTED DRIVE) 

17 005565 001617 BR TESTX : ELSE, EXIT 

18 005566 114000 003105 18: CLR FLAG > USE FLAG TO DECIDE IF WE FORMAT OR TEST A TRACK | 

20 .SBTTL FORMAT A TRACK THEN CHECK IT. 
; 

22 : FORMAT ALL TRACKS. THEN DO SEVERAL WRITES, READS AND DATA COMPARES 

23 : UNTIL ONE SECTOR PASSES. DO THIS FOR EACH TRACK IN EACH GROUP 

24 : ON EACH CYLINDER IN THE DIAGNOSTIC AREA EXCEPT FOR THE LAST 

35 : (FACTORY FORMATTED) CYLINDER ON THE PACK 

27 005570 104300 003054 003063 MOV FDIACYL, TSTCYL : START AT FIRST DIAGNOSTIC CYL | 

28 005573 104300 003055 003064 MOV FDIACYL #1 TSTCYL#1 

29 005576 104201 003063 MOV #TSTCYL,Ri : POINT TO CYLINDER TO SEEK TO 

30 005600 114000 003065 CLR TSTCYL SS" : START WITH GROUP 0 

31 005602 022156 CALL SEEK : SEEK TO FIRST DIAGNOSTIC CYLINDER 

32 005603 114004 CLR RG : START WITH DBN 0 

33 005604 104040 003061 MOV R4, TSTBLK 

34 005606 104040 003062 MOV RG. TSTBLK+1 : CLEAR BLOCK 

35 005610 104040 003076 T8A: MOV R4, CURTRK : SAVE TRACK NUMBER 

36 005612 115000 003105 TST FLAG + DO WE FORMAT | 

37 005614 055617 BNE 1$ : IF NOT ZERO TEST TRACK 

38 005615 026405 CALL  FORTRK : FORMAT THE TRA 

39 005616 005620 BR 2s : DO NOT TEST TRACK UNTIL ALL FORMATTED 

40 005617 026624 CALL =‘ TRKTST : TEST THE TRACK 

41 005620 105300 003060 003061 2$ SECTRK, TSTBLK : ADD SECTORS/TRACK 

42 005623 045626 BCC T8B : IF NO CARRY, BRANCH 

43 005624 115400 003062 INC TSTBLK+1 3 INCREMEN NT 

44 005626 104304 003076 T8B: MOV CURTRK,R4 : GET TRACK NUMBER 

45 005630 115404 INC R ; FICREMENT TRACK NUMBER 

46 005631 104303 002776 MOV SUB+TRKGRP,R3 > GET NUMBER OF TRACKS/GROUP 

47 005633 103203 177400 BIC #HIBYTE ,R3 + CLEAR UNUSED BITS 

48 005635 106034 CMP R3,R4 > SEE IF ALL TRACKS READ 

49 005636 055610 BNE TBA : IF NOT, BRANCH 

50 005637 114004 CLR : ZERO 

51 005€40 115400 003065 INC TSTCYL+#2 > MOVE TO NEXT GROUP 

52 005642 104301 002775 MOV SUBSGRPCYL, R1 3 GET GROUPS/CYLINDER 

53 005644 103201 177400 BIC #HIBYTE RI + CLEAR UNUSED BITS 

54 005646 106010 003065 CMP R1,TSTCYL#2 : COMPARE 

55 005650 055660 BNE ; IF At yhours NOT TESTED, BRANCH 

56 005651 104040 003065 MOV R4, TSTCYL #2 ; OUP 0 ON NEW CYLINDER 

57 005653 115400 003063 INC TSTCYL : INCREMENT CYLINDER 





FORMAT A TRACK 


58 005655 
23 005656 


005764 
95 005767 
96 005770 


THEN CHECK IT. 


te 
s 


vaeuneeed I 
ssxsxs 


AORRRRERONRAEE 


Raa 
om 


7 
1 
1 
1 
0 
1 
1 
1 
1 
1 
1 
1 
06 
1 
05 
1 


104200 
021740 
021761 


SNS 
Ww 


003064 
003063 


003064 
003065 
003063 


003105 
177777 


000001 
002775 
177400 


107000 


003044 
003045 
003046 


003105 


001462 


002753 
001037 
001036 


001034 
001033 


T8D: 


1$: 


T8T: 





UDAT3 71 FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 52-1 


BCC : IF NO CARRY, BRANCH 

INC TSTCYL#1 3 INCREMENT HI CYLINDER 

CMP TSTCYL,ROFOC : SEE IF ON fast LIL TADER (LO ORDER) 

BNE : IF NOT, BRANCH 

CAP TSTCYL+1,ROFDC+1 : See IF ON LAST CYLINDER (HI ORDER) 

CMP TSTCYL+2,ROFDC+2 : SEE IF "ON RESERVED GROUPS 

BEQ 3 IF SO, END THIS PHASE OF TEST 

MOV #TSTCYL,R1 : POINT 10. NEW CYLINDER OR GROUP 

CALL SEEK : ISSUE SEE 

BR TSA : BRANC 

TST FLAG : ARE WE DONE? 

BNE T8E : IF SO, BRANCH 

MOV #-1,FLAG : ELSE, CHANGE FLAG 

BR T08 3 AND CHECK TRACKS 

; *** NOW SEND INVALID SELECT GROUP COMMAND AND EXPECT ERROR 
TSE: MOV #1,SDILTO : CHANGE LONG TIMEOUT 

MOV #SUB+GRPCYL RO : RO HAS GROUP 

BIC #HIBYTE ,R : STRIP OFF UNUSED BIT 

CMP #LOBYTE RO : IS THIS UNIT USE MAX BITS? 

BEQ T11 : IF $0, BRANCH (DON'T DO TEST) 

BIS #SL.GRP,RO : SET SELECT GROUP CODE 

MOV RUN : STORE IN RUN 

CLR CR.RUN¢1 : SET a FOR LEVEL 1 EXCHANGE 

MOV #CR.RUN,R3 :R PACKET 

MOV 1,R2 * SEND > MESSAGE 

MOV (R35+,RO : SET UP PARAMETERS 

MOV (R3) ,R1 : 

XFC SEND > SEND COMMAND 

TST R1 : IF FAIL, BRANCH 

BNE T8F 

MOV #CR.GST, R3 : CHECK OUT STATUS 

BIT #<ST.PE+ST..RE+ST.FE+ST. WED ST.ERR+ST ;ERROR? 

BNE T8F F $0, BRANCH 

HARDER 33 : ELSE ERROR 
MOV 4#™S33,0UT.04 
MOV LUNIT,OUT.03 
MOV #33! ERHARD+3000. .R2 
MOV R2,0UT.02 

i MOV .,OUT.01 
ol MOV #ERRMES ,OUT.RO 
CALL =‘ TESTEV 
CALL  OR.CLR : CLEAR DRIVE OF ERROR 


TSF : 





SEQ 232 


UDATS 
SEND I 


0060 
0060 
0060 
0060. 
0060 
20 006027 
0060 
0060 
0060 
0060 
0060 
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DISK FUNCTIONAL DMACR 
NVALID LEVEL 2 COMMAND 


002637 


000758 


000400 
000377 
002750 

00 


000007 


T11: 


002716 


002736 2$: 
002736 


002674 


ens 13-APR-82 18:08:21 PAGE 53 


-SBTTL SEND INVALID LEVEL 2 € 
LR COMND 


RO 
#1,CR.RUN+1 
RO,RUN 


TSTCMD 
R 


R 

#SERS1 RS 
R5,CR.GST+3 
oon. 63! AS 


TSTCM2 
#7,CR.GST+*3 


SEQ 233 


CLEAR COMMAND nn eg A FLAG 


CLEAR SDI C 
; RESET PROPER LENGTH 
SET CODE 


SAVE 
MOV RO,-(SP) 


AND TEST 
RESTORE RO 
MOV (SP)+,R0 
TRY INVALID OPCODE ONCE 
EXIT WHEN TRIED ONCE WITH INVALID CODE 
ADD TO NEXT CODE 
IF NOT DONE, TEST AGAIN 
TRY WITH LOW BITS SET 


; RESTORE RUN COMMAND 
; STORE INVALID COMMAND LENGTH 


TRY AGAIN WITH 0 COMMAND LENGTH BUT INVALID COMMAN: 
DESTROY RESPONSE LENGTH 


RESTORE COMMAND LENGTH 
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UDATS DISK FUNCTIONAL DMACR 
SEND INVALID LEVEL 1 COMMAN 


Seeeeees 
gsvssuss 


104200 
026263 


002716 
070400 


003204 
107000 


131000 
131000 
003243 


070400 


003274 
131000 


152000 
000014 


131000 
003325 





002736 


002637 
002736 


002736 


002736 
002637 


002736 


002637 
002736 


002736 
002736 


002736 
002637 


; **® SEND CONTINUE WITH NO START 
MOV aM RUN 


B cos 13+APR=82 18:08:21 PAGE 54 


«SBTTL SEND INVALID LEVEL 1 COMMANDS 


; *ee SEND START THEN SELECT GROUP 
CLR CR.RUN+1 


L ° 
MOV #MS.STR,RUN 3 SET UP COMMAND 
CALL SND : SEND LEVEI. 1 START COMMAND 
MOV #SERS2, COMND 
MOV #SL.GRP,RUN 3 MCVE SELECT GROUP CODE INTO COMMAND 
CALL SNDLIA : SEND NEXT FRAME 
MCV #MS.END,RUN 3 SET UP END FRAME 
CALL TSTCMD 3 CHECK IF CAUGHT 
; *** SEND END WITH NO START 
MOV #MS.END, ; SET UP END FRAME 
MOV #SERS3, COMND 
CALL TSTCMD 3 CHECK IF CAUGHT 
; *#* SEND START THEN END WITH BAD CHECKSUM 
MOV #MS.STR,RUN 3 SET UP START FRAME 
CALL SNDLV1 3 SEND FRAME 
MOV #SERS4 , COMND 
MOV #MS.END,RUN : SET UP END FRAME (ZERO CHECKSUM) 
CALL TSTCMD 3 CHECK IF CAUGHT 


: SET CONTINUE FRAME 


BIS #RUNLBC ,RUN 

CALL SNDLV1 : SEND IT 

MOV #MS.END ,RUN : SET UP END FRAME 
MOV #SERSS , COMND 

CALL TSTCMD : CHECK IF CAUGHT 





SEQ 235 
UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR=82 18:08:21 PAGE 55 | 
ISSUE DISCONNECT COMMAND 
1 .SBTTL ISSUE bis ONNECT COMMAND 
¢ 006123 104203 002652 19: MOV #CR.DIS.R z POINT TO DISCONNECT COMMAND 
006125 104200 002375 002637 MOV #MS.D1S.COMND + SET UP FOR ERROR 
4 006130 021076 CALL _—*TALK : INITIATE SDI INTERCHANGE 
5 006131 115002 S : SEE IF ERROR OCCURRED 
6 00613¢ 016134 BEQ T10 
f 00613 021746 CALL _—«*TESTEX ; IF SO, BRANCH | 
9 .SBTTL CHECK AVAIL FLAG 
10 006134 114005 110: CLR RS ; SET UP TIMEOUT COUNTER | 
11 006135 104302 002636 TIOLOP: MOV SDI ,R2 : MOVE MAS 
12 006137 020754 CALL _——-RDSTAT : GET DRIVE STATUS 
13 006140 115002 TST R2 : WAS IT OK? | 
14 006141 016207 BEQ 2$ ; iF NO ERROR, BRANCH 
15 006142 102201 000400 BIT #RCVERR,R1 : SEE IF ANY ERRORS 
16 006144 056166 BNE 1$ : IF NOT, ERROR 
17 006145 HARDER 11 : REPORT INVALID STATUS ERROR 
006145 104200 000366 001037 MOV #Ms11 ,QUT..04 | 
006150 104300 001475 001036 MOV LUNIT,OUT.03 
006153 104202 105703 MOV #11 !ERHARD+3000. .R2 
006155 104020 001035 MOV R2,0UT.02 
006157 104200 006157 001034 MOV #. ,OUT.01 | 
006162 104200 060013 001033 MOV #ERRMES ,OUT.RO | 
18 006165 001732 BR TESTEW : BRANCH TO DONE 
19 006166 1$: | 
20 006166 HARDER 12 : REPORT XMIT ERROR 
006166 104200 000434 001037 MOV amsi2, OUT.04 
006171 104 001475 001036 MOV LUNIT.OUT.03 | 
006174 104202 105704 MOV #12! ERHARD+ 3000. .R2 
006176 104020 001035 MOV R2,0UT.02 | 
006200 104200 006200 001034 MOV #.,0UT.01 
006203 104200 060013 001033 MOV #ERRMES ,OUT.RO 
21 006206 001732 ‘s BR TESTEW : BRANCH TO DONE | 
23 00050 $44 102201 000100 BIT #AVAIL,R1 : SEE IF AVAILABLE 1S ASSERTED 
24 006211 056241 BNE T12 : IF $0, BRANCH TO LAST TEST 
25 006212 117405 DEC RS : DECREMENT TIMEOUT. COUNT 
26 006213 056135 BNE T10LOP : IF UNEXPIRED, BRANCH | 
27 006214 103201 077674 BIC #077674,R1 : CLEAR UNUSED BITS 
28 16 HARDER 29,R1 + REPORT 
006216 104200 002007 001037 MOV #MS29,0UT.04 
006221 104010 001040 MOV R1,0UT.05 
006223 104 001475 001036 MOV LUNIT OUT .03 
006226 104202 105725 MOV 'ERHARD+3000. .R2 | 
006230 104020 001035 MOV OUT .02 
32 1042 006232 001034 MOV #. our 
006235 104200 060013 001033 MOV #ERRMES ,OUT.ROQ 
29 006240 021740 CALL _—*TESTEV | 
31 
32 006241 112: | 
33 006241 104300 002750 002736 MOV RUNCMD , RUN ; RESTORE RUN COMMAND 
34 006244 104200 000001 002716 MOV #1,CR.RUN+1 : RESTORE COMMAND | ENGTH | 
35 006247 001617 BR TESTX ; BRANCH TO TEST NEXT UNIT | 





SEQ 236 
UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR=82 18:08:21 PAGE 56 
SNDLV1 AND TSTCMD 


1 .SBTTL SNDLVI AND TSTCMD 
¢ ; SEND LEVEL 1 START COMMAND 
SEND THE START FRAME AND RETURN 
%4 006250 101200 000014 002736 §NDLV1: BIS #RUNLBC ,RUN : SET RUN COMMAND 
5 006253 Iegas 002715 SNDL1A: MOV #CR.RUN,R 3 a. yp 
é 006255 104302 002636 V Sp R2 : R2 => PORT 
7 57 104237 MOV (R35+,RO t SET UP PARAMETERS 
8 006260 104131 MOV (R3),R1 
9 006261 060004 KFC SEND : SEND COMMAND 
10 006262 000000 RETURN 
12 3 tee TEST THE COMMAND 
13 ; INPUT RUN HAS LEVEL 1 OR 2 COMMAND SET UP 
14 : CR.RUN = = 0 To INITIATE LEVEL 1 TRANMITTION 
15 : ATEVER FOR LEVE 
16 : OUTPUT WILL NOT RETURN IF ERROR OCCURED 
18 006263 104203 002715 TSTCMD: MOV #CR.RUN,R3 3; SEND COMMAND 
19 006265 021076 TSTCM2: a TALK 
20 006266 115002 TST R2 : DID IT FAIL? 
21 006267 016277 BEQ TITER ; IF NOT, oo TO REPORT AND EXIT 
22 006270 104203 002671 MOV #CR.GST,R3 : CHECK STATUS 
23 006272 021076 CALL TALK GET STATUS 
24 006273 102200 000350 002753 BIT #<ST.PE+ST..RE+ST.FE+ST. uis' ST+ST.ERR 
25 006276 056403 BNE TSTCME ; BRANCH IF ERROR 
26 : *e® DID NOT FAIL -> ERROR 
27 006277 115000 002637 TI1ER: TST COMND : DID WE HAVE COMMAND a 
28 006301 056357 BNE T11X2 : IF SO, LEVEL 1 XMIT ERR 
29 006302 106300 002750 002736 CMP RUNCMD , RUN : ELSE, WHAT TYPE LEVEL a XMIT ERROR? 
30 006305 056333 BNE T11X 3 F RUN NOT SET TO RUN COMMAND, BRANCH 
1 006 HARDER 31,<R4,R5> 
006 104200 002077 001037 MOV #™S31,0UT.04 
006211 104040 001040 MOV Rs -0uT .03 
006313 104050 001041 MOV 
006315 104300 001475 001036 MOV git 
006 104202 105727 MOV fe THERMARG® S000. .2 
006322 104020 001035 MOV 
006324 104200 006324 001034 MOV ¢ 
006327 104 00 060013 001033 MOV #ERRMES ,OUT.RO 
32 006332 00175 BR TESTED 
33 00633 T11X1: HARDER 30,RUN 
006333 104200 002053 001037 MOV rinsed out 30 
006336 104 002736 001040 MOV 
006341 104300 001475 001036 MOV 
006344 104202 10572 MOV ¥ Saf caani® S00. 8 
006346 104020 00103 MOV 
006350 104 006350 001034 MOV oe 
006353 104 060013 001033 MOV #ERRMES ,OUT.RO 
be 006356 001753 BR TESTED 
5 00635 T11X2: HARDER 32,COMND 
006357 104200 002130 001037 MOV #MS32,0UT.04 
006 362 104 002637 001040 MOV COMND , OUT.05 
006365 104300 001475 001036 MOV LUNIT,OUT.03 
006370 104208 105730 MOV #32 'ERHARD+3000. .R2 
006372 104 001035 MOV R2,0UT.02 
006374 104200 006374 001034 MOV . OUT .01 
006377 104200 060013 001033 MOV #ERRMES ,OUT.RO 











SEQ 237 
UDAT3 DISK FUNCT LONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 56-1 | 
SNDLV1 AND TSTCMD 


36 006402 001753 BR TESTED 
37 006403 021761 TSTCME: CALL DR.CLR ; CLEAR ERROR 
38 006404 000000 RETURN 





2 


1 
2 
3 
4 
5 
6 
7 006405 
8 006407 
9 006411 
10 006412 
11 006413 
12 006414 
13 006415 
14 006417 
15 006421 
16 006423 
17 006425 
18 eoere: 
19 006431 
20 006432 
21 006433 
22 006434 
23 006435 
24 006436 
25 006437 
26 006440 
27 006441 
28 006443 
29 006444 
30 006446 
31 006447 
32 006450 
33 006451 
34 006453 
35 006454 
006454 
006457 
006462 
006464 
006466 
006471 
36 006474 
37 006475 
38 006475 
006475 
006500 
006503 
006505 
006507 
poets 
39 00651 
006516 
41 006516 
42 006520 
“3 006521 
006521 
006524 


SSSRRRILKSSooRe 
symssssassseses 


ee a ee ee ed ed ed ad ed ed 
MUMe 
-—NWwM 


R= 
REF 
RIN 


tt 
ab 


102201 
056542 


104200 
104 


003061 
002776 


170377 
140000 


FORTRK: 


FLOOP: 


FCARY: 


1$: 


2s: 


UDAT3 DISK Sat tack DMACR X04.01 13-APR-82 18:08:21 PAGE 57 
FORTRK = FORMAT TRACK 


~-SBTTL FORTRK = FORMAT TRACK 


FORMAT TRACK GIVEN BY CURTRK 
THE DATA WRITTEN IS UNPREDICT 


MOV TSTBLK,RO 
MOV SUB+HIDBN,R1 
ROR R1 

ROR R1 

ROR R1 

ROR 1 

BIC #HBLONB RI 
BIS #HD. 

BIS TSTBLK ef a 
MOV FF.R 
MOV SECTRK RG 
MOV #F CHAIN, RS 
MOV R3, (R5)+ 
MOV RO, (Rape 
MOV RI. (R5)+ 
INC 

BCC FCARY 

INC R1 

DEC RG 

BNE FLOOP 

MOV #F STOP,RO 
MOV RO, (RS) 
MOV SDI,R2 
CALL = RDSTAT 
TST R2 

BEQ 2$ 

BIT ARCVERR,R1 
BNE $ 

HARDER 10 

BR TESTEW 
HARDER 12 

BR TESTEW 
BIT #RWRDY,R1 
BNE F 

HARDER 18 


: BRANCH 


Vv 
: BRANCH TO DONE 


— WITH DBN GIVEN IN TSTBLK 


GET LO STARTING DBN 


GET HIGH ORDER BITS OF STARTING DBN 


MOVE TO CORRECT POSITION 


CLEAR UNUSED BITS 


BUFFER 
R4 CONTAINS NUMBER re mi TO FORMAT 


RS POINTS TO FORMAT 
MOVE POINTER in A TO CHAIN 


MENT HI 
: DECREMENT SECTOR COUNT 
BRANCH IF 


COUNT UNEXHAUSTED 
GET FORMAT END-OF-CHAIN FLAG 
ote pare § CHAIN 

MOVE MASK TO R2 
GET DRIVE STATUS 

WAS IT OK? 
IF NO ERROR, BRANCH 
ie ar. ANY ERRORS 


IF NOT, ERROR 
REPORT INVALID STATUS ERROR 
MOV rds § -04 
MOV UNIT ,OUT.03 
MOV #10! : ERHARD* 3000. R2 


MOV R2,0UT.02 


MOV #.,0UT.01 
MOV #ERRMES ,OUT.RQ 
TO DONE 
3 REPORT XMIT ERROR 
MOV #MS12,0UT.04 
MOV LUNIT ,OUT.03 
MOV #12! ERHARD+3000. ,.R2 
MOV R2,0UT.02 
MOV #. ,OUT.01 
MO #ERRMES ,OUT.ROQ 


: TEST R/W a 
;_IF ASSERTED 


READ/WRITE E READY OnopPED BEFORE FORMAT 


T.04 


MOV LUNIT,OUT.03 


SEQ 238 







UDAT3 DISK as toes DMACR K04.01 13-APR-82 18:08:21 PAGE 57-1 
FORTRK = FORMAT TRACK 


006527 104202 105712 
006531 104020 001035 
006533 Hog 344 006533 001034 
006536 104200 060013 001033 
006547 001740 BR TESTEV 
45 006542 og 3 4 003652 FGO: MOV #F CHAIN,RO 
46 006544 104 003000 MOV SUB+DATPRE ,R4 
47 006546 103204 177400 BIC #HIBYTE RS 
48 006550 104303 003000 MOV SUR+HDRPRE ,R3 
49 006552 110703. SWAB R 
50 006553 103203 177400 BIC #HIBYTE ,R3 
51 006555 104301 003076 MOV CURTRK,R1 
52 006557 104302 002636 MOV SDI ,R2 
53 006561 060001 XFC F 
54 0065 115001 TST R1 
55 006563 016623 BEQ FOREXT 
56 006564 HARDER 19,<INS+#1,INS+2, INS+3,C 
006564 Hb og 34 71 001037 
006567 104300 002741 001040 
006572 104300 00274 
006575 104300 002743 00104 
006600 104300 003076 00104 
006603 104300 001475 1 
006606 104202 105713 
006610 104020 001035 
006612 104200 006612 0010 
006615 Hh og 3 060013 001033 
57 006620 104307 001033 MOV OUT.RO,RO 
58 006622 021000 HOSTROQ 


CALL 
FOREXT: RETURN 


i 





Vv 
; BRANCH TO exit” 


SEQ 239 


MOV #18! ERHARD+3000. ,R2 
MOV R2,9UT.02 


. ,OUT.01 

#ERRMES ,OUT.RO 

POINT TO FORMAT CHAIN (FOR XFC) 
LENGTHS 


D BITS 
AR ees PREAMBLE LENGTH 
CLEAR eaeee BYTES 
TRACK NUMBER 
SET PORT INDICATOR 
FORMAT THE TRACK (BUFFER CONTENTS ARE A DON'T CARE 
SEE IF Sy 4 OCCURRED 


IF NOT, BR 
URTRK> TIMEOUT .* DRIVE OR en READY DROPPED 


MOV LUNIT OUT. 

MOV #19! ERWARi +3000. .R2 
MOV R2, i 02 

MOV #.,OUT.01 

MOV #ERRMES ,OUT.RQ 


; PRINT ERROR 





: SEQ 240 


UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR=82 18:08:21 PAGE 58 
TRKTST = TEST TRACK 





1 .SBTTL TRKTST = TEST TRACK 
g 006624 TRKTST: 

4 : TEST THE ENTIRE TRACK UNTIL AT LEAST ONE BLOCK IS SUCCESSFULLY 

3 : WRITTEN AND READ WITH SEVERAL DATA PATTERNS 

? 4 104307 003061 MOV TSTBLK,RO ; MOVE LO STARTING DBN TO CURRENT DBN 

8 6 104070 003071 MOV RO, CURBLK 

9 006630 104307 00306 MOV TSTBLK+1,RO 3 MOVE HI STARTING DBN TO CURRENT DBN 

10 006632 104070 00307 MOV RO, CURBLK+1 

11 006634 104301 003060 MOV SECTRK,R1 : GET SECTORS/TRACK 

1g 006636 117401 DEC RI 3 ADJUST FOR END LOOP WHEN NEGATIVE 

13 006637 104010 003100 TRKLOP: MOV R1,SECCNT : SAVE SECTORS LEFT IN SECTOR COUNT 

14 006641 104201 000001 MOV #1,R1 ; MOVE 1 TO CURRENT PATTERN 

15 006643 026666 CALL WIRCMP ; WRITE THAN READ AND COMPARE THE SECTOR 

16 006644 115007 TST RO 3 SEE IF WRITES, READS AND COMPARES WERE GOOD 

17 006645 016665 BEQ TRKEXT : IF $0, CH 

18 006646 104307 003071 MOV CURBLK RO 3 GET LO CURRENT BLOCK NUMBER 

19 006650 115407 INC RO 3 INCREMENT DBN NUMBER 

20 006651 104070 003071 MOV RO, CURBLK + SAVE 

21 006653 046661 BCC RKBOT : BRANCH IF NO CARRY 

22 006654 104307 003072 MOV CURBLK+1,RO : GET HI DBN NUMBER 

23 006656 115407 INC R : INCREMENT 

24 006657 104070 003072 MOV RO, CURBLK+1 : SAVE 

25 006661 104301 0031 TRKBOT: MOV SECCNT,R1 : GET SECTOR COUNT 

26 006663 117401 DEC R1 : DECREMENT COUNT 

27 006664 036637 BPL TRKLOP 3 BRANCH IF COUNT POSITIVE 

28 006665 000000 TRKEXT: RETURN 








| .* SEQ 241 


a DISK FUNCTIONAL DMACR X04.01 io 18:08:21 PAGE 59 
WRTCMP = WRITE A DATA PATTERN AND COMPAR 


1 -SBTTL WRICMP = WRITE A DATA PATTERN AND COMPARE 

¢ 006666 WTRCMP: 

& : WRITE A DATA PATTERN TO A vers aa" READ _IT BACK, THEN DO A DATA 

5 : COMPARE ON THE DATA. DO T HIS AS MANY TIMES AS THERE IS PATTERNS. 

S : CURRENT PATTERN NUMBER IN ‘CURPAT‘ 

8 006666 003077 MOV R1,CURPAT 3 R1 IS CURRENT Se part NUMBER 

9 006670 105201 003132 ADD #PATPTR,R1 3 R1 NOW POINTS TO PATTERN TO GENERATE 
10 poeers 026713 CALL GENPAT 3 GENERATE y PATTERN IN THE OUTPUT BUFFER 
11 00667 26 CALL WRITEB 3 WRITE THE PATTERN 

12 006674 500 TST RO 3 SEE_IF ANY ERROR OCCURRED 

13 006675 056712 BNE WTREXT : IF SO, BRANCH 

14 006676 027175 CALL READB . 3 READ THE BLOCK BACK 

15 006677 500 TST RO 3 SEE IF ANY ERRORS OCCURRED 

16 006700 056712 BNE WTREXT : IF So, Cc 

17 006701 027402 CALL CMPDAT 3 COMPARE THE DATA 

18 006702 115007 TST RO 3 SEE_IF ANY ERRORS OCCURRED 

19 006703 056712 BNE WTREXT : IF SO, BRANCH 

20 006704 104 003077 MOV CURPAT ,R1 3 GET CURRENT PATTERN 

21 006706 11540 INC 3 NEXT PATTERN 

22 006707 106301 003132 CMP PATPTR,R1 : COMARE AGAINST MAXIMUM PATTERN NUMBER 
23 006711 036666 BPL WIRCMP : IF LESS OR EQUAL, LOOP 

24 006712 000000 WTREXT: RETURN 





SEQ 242 
UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 60 
GENERATE A PATTERN 


-SBTTL GENERATE A PATTERN 


: 006713 GENPAT: 
4 : GENERATE THE DATA PATTERN IN THE OUTPUT BUFFER 
a ; Rt POINTS TO POINTER TO PATTERN BUFFER WHICH 1s PATTERN LENGTH 
i ; 1 WORD) FOLLOWED BY THAT MANY WORDS OF PATTERN 
9 006713 PUSH = R2 : SAVE R2 
006713 10046, V R2,-(SP) 
10 006714 10411 MOV (R1) RO : RO POINTS TO START OF PATTERN BUFFER 
11 006715 104205 000400 MOV #256. ,R3 + R3 HOLDS PATTERN COUNT 
i 006717 104204 003243 MOV #OBUFF , : R4 POINTS TO OUTPUT BUFFER 
13 006721 104071 GENOUT: MOV : R1 POINTS TO START OF PATTERN BUFFER 
14 006728 104215 MOV (R1)+,R5S : RS CONTAINS LENGTH OF PATTERN 
15 006723 104212 GENIN: MOV (ai) R2 3 GET WORD OF PATTERN 
16 006724 100 4@ MOV (RE) : MOVE TO BUFFER 
17 006725 11740 DEC R : DECREMENT BUFFER COUNT 
18 006726 016732 BEO GENEXT : IF BUFFER F EXIT 
19 006727 117405 DEC R : DECREMENT PATTERN COUNT 
20 906730 056723 BNE GENIN : IF NON-ZERO, BRANCH 
21 006731 006721 BR GENOUT : START PATTERN OVER AGAIN 
22 006732 GENEXT: POP : RESTORE R 
006732 104262 MOV (SP)+,R2 


23 006733 000000 RETURN 





| a2 SEQ 243 


pt DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 61 
WRITEB - WRITE A SECTOR 


1 .SBTTL WRITEB = WRITE A SECTOR 
é 006734 WRITEB: 
: 3 WILL WRITE ONE SECTOR OF DATA TO THE DISK 
6 006734 104207 140000 MOV #WSTOP,RO 
7 006736 104070 003124 MOV oak RW. STAT*CHAIN; MOVE END=OF =CHAIN TO CHAIN 
8 006740 104307 003071 MOV k, : MOVE LO DBN TO CHAIN | 
9 006742 104070 003126 MOV no, RW. LOW+CHAIN | 
10 006744 104307 003072 MOV URBLK+1,RO : MOVE HI DBN TO CHAIN 
11 006746 104301 002776 MOV Srey ep R1 3; GET HIGH ORDER BITS OF STARTING DBN 
i 006750 110601 ROR R1 : MOVE TO CORRECT POSITION 
13 006751 110601 ROR R1 
14 006752 110601 ROR R1 
15 006753 110601 ROR R1 
16 006754 103201 170577 BIC #HBLONB,R1 : CLEAR UNUSED BITS 
17 006756 101201 BIS #HD.DBN,R1 3 SET HEADER CODE ) 
18 006760 101017 BIS R1,RO : SET IN RO : 
19 006761 104070 003127 MOV RO. RW.HI+CHAIN | 
20 006763 104307 003076 MOV CURTRK, RO : MOVE TRACK + RTC TO CHAIN | 
21 006765 101207 122400 BIS #WREAL ,R* : SET REAL TIME COMMAND WRITTE | 
22 006767 104070 003130 MOV RO, RW. CMO+CHAIN 
23 006771 104207 003243 MOV #OBUFF, R : MOVE OUTPUT BUFFER TO CHAIN 
24 006773 104070 003125 MOV RO, RW. BUF +CHAIN 
25 006775 104302 0026 MOV SDI ,R2 : MOVE MASK TO R2 
26 006777 020754 CALL RDSTAT 3; GET DRIVE STATUS 
007000 11500 TST R2 : WAS I | 
28 007001 01704 BEQ 2$ + IF NO ERROR, BRANCH | 
007002 102201 000400 BIT #RCVERR,R1 : SEE IF ANY ERRORS | 
30 007004 057026 BNE $ : IF NOT, ERROR 
31 007005 HARDER 10 3 REPORT. INVALID STATUS ERROR 
007005 104200 000341 001037 MOV #MS10,0UT.04 
007010 104 001475 001036 MOV LUNIT,OUT.03 
007013 104202 105702 MOV #10! ERHARD+3000. .R2 
007015 1040 001035 MOV R2,0UT.02 
007017 104 007017 001034 MOV #. .OUT.01 
007022 104200 060013 001033 MOV #ERRMES ,OUT.RO 
32 007025 001732 BR TESTEW : BRANCH TO DONE 
33 007026 1$: 
34 007026 HARDER 12 : REPORT XMIT ERROR 
007026 104200 34 001037 MOV #MS12,0UT.04 
007031 104300 001475 0010 MOV LUNIT.OUT. 
007034 104202 105704 MOV Me EAnaRd+ 3000. .R2 
007036 104020 001035 R2,0UT. 
007040 104200 007040 001034 MOV #. .OUT.01 
007043 104200 060013 001033 MOV #ERRMES ,OUT.RO 
35 007046 001732 = BR TESTEW : BRANCH TO DONE 
37 007047 102201 100000 BIT #RURDY RI : SEE IF READ/URITE READY IS ASSERTED 
38 007051 057100 BNE wGO : IF 
39 007052 104307 003100 MOV SECCNT,RO : GET SECTOR on COUNT 
40 007054 057174 BNE WRT : IF NONZERO, DO NOT REPORT ERROR 
41 007055 HARDER 22 ;READ/WRITE OSRDPPED READY BEFORE WRITE 
007055 104200 001117 001037 #MS22,0UT.04 
00 104 001475 001036 ROY LUNIT. OUT. 
00706 104208 105716 MOV ‘ 2! ERHARD+3000. .R2 
007065 104020 00103 MOV OUT .02 





UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 61-1 
WRITEB = WRITE A SECT 


38 


SSss8 


SSssn 


eS ae ed ed ce ed ed ed ed etd ed ed ed 
N 


RVRRRRRRRRRRKKK 


™m 
So 


Ss 


MOV 
WRTEXT: RETURN 









I 
#CHAIN,RO 


SUB+DATPRE ,R4 


ty AD R4 
WRITE 

RO 

WFLAG 

WRTEXT 

R1 


WRTEXT 
SECEM « RO 


OUT.RQ,RO 
phy 


Be Ge Se Ge Be Ge Se Se Se Be Be Be Be 


MOV 


MOV 
FLAG ERROR 
BRAN 


PO 

MOVE DATA PREAMBLE LENGTH TO R4 
CLEAR UNUSED BITS 

oe THE BL 
FLAG AS_NO ERRORS 

ve se. ck TEST WHEN WRITE PROTECTED? 

SEE IF AN ERROR OCCURRED 

IF NOT, BRANCH 

oRTENT ; IF "ERROR SHOULD BE REPORTED 
23,<R1,CURBLK, CURBLK+1, 1is#1, INS#2, aati sy 7 — DURING WRITE 


: MAKE RO NONZERO TO REPORT ERROR 





01 
PERRME $,0UT.RQ 


LUNIT ,OUT.03 
+ ta oR2 


#.,OUT.01 
#ERRMES ,OUT.RQ 


SEQ 245 
UDAT3 DISK FUNCTIONAL opnace X04.01 13-APR=82 18:08:21 PAGE 62 
READB = READ ONE SECTOR 

1 .SBTTL READB = READ ONE SECTOR 

2 007175 READB: 

4 ; READ ONE SECTOR FROM DISK 

6 007175 104207 100000 MOV #RSTOP,RO : MOVE END-OF=CHAIN TO CHAIN 

7 007177 104070 003124 MOV RO,RW. STAT#CHAIN 

8 007201 104307 003076 MOV CURTRK. RO : MOVE TRACK NUMBER AND RTC TO CHAIN 

9 007203 101207 013400 BIS #RREAL._RO : SET REAL TIME READ COMMMAND 

10 007205 104070 003130 MOV RO. RW. CMD+CHAIN 

11 007207 104207 003652 MOV : MOVE POINTER TO INPUT BUFFER INTO CHAIN 

12 007211 104070 003125 MOV RO. Rw.BUF+CHAIN 

13 007213 104302 002636 DI,R2 : MOVE MASK TO R2 

14 007215 020754 CALL = RDSTAT t GET DRIVE STATUS 

15 007216 115002 R2 : WAS IT OK? 

16 007217 017265 BEQ 2$ + IF NO ERROR, BRANCH 

17 007220 102201 000400 BIT #RCVERR,R1 : SEE IF ANY ERRORS 

18 007222 057244 BNE 1$ : IF NOT, ERROR 

19 007223 HARDER 10 : REPORT INVALID STATUS ERROR 
007223 104200 001037 MOV #™S10,0UT.04 
007226 104300 001475 001036 MOV LUNIT.OUT.03 
007231 104202 105702 MOV #10! ERHARD+3000. ,R2 
007233 104020 001035 MOV R2,0UT.02 
007235 104200 007235 001034 MOV #..OUT.01 
007240 104200 13 001033 MOV #ERRMES ,OUT.RO 

20 007243 001732 BR TESTEW : BRANCH TO DONE 

21 007244 1$: 

22 007244 HARDER 12 : REPORT nit ERROR 
007244 104200 34 001037 #MS12,0UT.04 
007247 104300 001475 001036 nov LUNIT.OUT.03 
007252 104202 105704 MOV #12; ERWARD+3000. .R2 

7254 106020 001035 MOV R2,0Ui .02 
7256 104200 007256 001034 MOV #..0UT.01 

007261 104200 060013 001033 MOV #ERRMES ,OUT.RO 

33 007264 001732 af BR TESTEW : BRANCH TO PONE 

25 007265 102201 100000 BIT #RWRDY,R1 : SEE IF READ/WRITE READY IS ASSERTED 

26 007267 057314 BNE RGO : 

27 007270 104307 003100 MOV SECCNT,RO : GET SECTOR COUNT 

28 007272 057401 BNE REDEXT : IF NONZERO NOT REPORT ERROR 

29 007273 HARDER :READ/URITE E SRDEPED READY BEFORE READ 
007273 104200 001306 001037 #Hs24, OUT.04 
007276 1475 001036 MOV IT. OUT.03 
007301 104202 105720 MOV #34 ERHARG® 3000. .2 
007303 104020 00103 MOV 
007305 1 007305 001034 MOV 1 
007310 104200 13 001033 MOV #ERRMES ,OUT.RO 

30 007313 007374 BR REDERR : GO PRINT THE ERROR 

31 007314 104302 002636 RGO: MOV SD1,R2 : SET PORT INDICATOR 

32 007316 06001 XFC WAITS! : WAIT FOR SECTOR OR INDEX PULSE 

33 007317 104207 003124 MOV #CHAIN,RO + POINT TO READ CHAIN 

34 007321 060002 XFC XREAD ; READ THE SECT 

35 007322 114007 CLR + FLAG AS NO ERRORS 

36 007323 115001 TST : SEE IF ERROR OCCURRED 

37 007324 017401 BEQ REDEXT + IF NOT, BRANCH 

38 007325 104307 003100 MOV SECCNT,RO + SEE IF ERROR SHOULD BE REPORTED 

39 007327 057401 BNE REDEXT : JF NOT, BRANCH 





UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 62-1 


READB = READ ONE SECTOR 


40 007330 
007330 


44 007401 





REFERRRRRREREL 
Sesusssssssses 


a ee a ed ed ed ed ed 


sescee 
3 


REDERR: 


REDEXT: 


HARDER PN ORL OR LE TAOS OS NS, CR? sERROR DURING READ 


MOV 
CALL 
Vv 


MO 
RETURN 


OUT.RQ,RO 
hy 


: FLAG ERROR 


R1,0UT.05 


LUNIT,OUT.03 
yr lam a 


#.,0UT.01 
#ERRMES ,OUT.ROQ 


SEQ 246 


UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR=82 18:08:21 PAGE 63 


CMPDAT = COMPARE DATA 


s 
x 
Oo 
Lt 


VMFWN OC OCONOUSwnN— 
= 


007402 Hog 344 
007404 104201 
007406 114003 
10 007407 ok th 
13 007410 106214 
12 007411 017465 
13 007412 104305 
14 007414 057472 
15 007415 
007415 104200 
007420 104030 
007422 104470 
007424 104410 
007426 104300 
007431 104300 
7% 104300 
007437 104300 
007442 104300 
007445 104202 
007447 104020 
007451 10e5 00 
007454 104200 
16 007457 104307 
17 007461 021000 
18 007462 104207 
19 007464 007472 
20 007465 115403 
1 007466 106203 
22 007470 057407 
23 007471 114007 


x 
S 
rs 
nv 


001037 


001036 


001034 
001033 


NOERR: 


CMPEXT: 
OVL.TS 


~-SBTTL CMPDAT = COMPARE DATA 


COMPARE THE DATA IN ‘OBUFF* (OUTPUT BUFFER) WITH ‘"RBUFD’ 


(INPUT BUFFER) 


MOV #OBUFF ,RO 
MO en 


C 
MOV (RO) +,R4 
CMP bb oda, 


NOE 
MOV SECCNT RS 


MOV OUT.RQ,RO 
CALL HOSTRQ 


MOV #1,R0 
BR CMPEXT 
INC R3 

CMP #256. .R3 
BNE CMPLOP 
CLR RO 
RETURN 

= .777 


DMEND 
-WREDC 
END 





RO POINTS AT OUTPUT BUFFER 
R1 a a AT INPUT BUFFER 


COUNTE 

GET OUTPUT BUFFER WORD 

COMPARE AGAINST INPUT BUFFER 
IF NO ERROR, BR 

SEE IF ERROR 1S TO BE REPORTED 


3; IF NOT, 
HARDER SANE eT ES 9 IRONS» POOR AM TO DATA COMPARE FAILURE 


MOV R3,0UT.05 


MOV LUNIT,OUT.03 
MOV #26! ERHARD+3000. ,R2 
MOV R2,0UT.02 


° OUT. 1 
MOV #ERRMES ,OUT.RO 
SET FOR ERROR 
EXIT 
INCREMENT COUNT 
SEE IF yp orton COMPLETE 


IF NOT, H 
FLAG AS NO ERRORS 


OUTPUT EDC FOR THIS OVERLAY 





UDATS DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 63-1 
SYMBOL TABLE 


AREA 003101 ECC = 000015 HBHINB= 007777 
ATTN = 000002 ECCFLG= 010000 HBLONB= 170377 
AVAIL = 000100 ECCRS - 00000 HDRPRE= 000005 
BF. 000000 Btn = boots HD.BAD= 110000 
BF .ECC= 000401 ECHO 0 HD.DBN= 1400 
BF .EDC= 000400 ENDGTU. 00427 = 0000 
BLO 003070 ENOPNTS 922 4 HD.PRV= 050000 
BLOCKG 003067 C 
BLOCKT 003066 ERECOVE ( HD.REV= 030000 
BREAK = ERHARD= ss HD.XBN= 1200 
BUFFLG= 040000 ERLEV = 00000 HEADER= 02 
BUF SIZ= 3 ERRMC = 060014 HIBYTE= 177400 
CHAIN 003124 ERRMES= 060013 HICYL = 00000 
CHECK = 0 ERRN = 005670 HIDBN = 00000 
= 201 ERRORS 002731 HILBN = 00000 
CHRRES= 000 ERRPOS 003103 HIMEM = 007774 
AT 007402 ERSOFT= 140000 HIRBN = 000003 
CMPEXT 007472 EXIT = 000021 HIXBN = 0 
7407 FB.DAT= 000000 HOSTRQ 001000 
C 002637 FB.EDC= 000400 HRDRFV= 000003 
COMPAR= 006437 INDEXS 003123 
COMPLT= 000176 FCHAIN 003652 
002760 FCTSIZ= 10 
CR.CLR 645 FDIACY 003054 INSEEK= 000012 
CR.DIS 002652 F 542 INTEDC= 000105 
° 002657 FLAG 003105 RECLB= 000216 
CR.GST 002671 FLOOP 31 GE = 000001 
° 002710 FNDCYL 001770 LBHINB= 177417 
CR. 002676 FNDCY2 001776 LBLONB= 177760 
CR. 002640 002006 LANCYL= 000000 
R 002715 & 002034 ST= 000012 
CR.SCR 664 FOREXT 006623 LANTRK= 000011 
CR.SEK 002703 FORMAT= 000001 003047 
C K 003071 FORTRK 006405 LDIACY 003051 
CUR’ 003075 FOR.SZ= 001375 LETTER 003102 
CURPAT 003077 = 000004 LINIT 001476 
3076 FSTOP = 100000 NKLN= 000007 
Cc 20 FTLDEV= 040000 LOBYTE= sg Sh 
fYLLO 003116 FTLSYS= 000000 L = 0027 
C2HARD= 040000 FT.BUF= 000000 LONGTO= 000001 
LATPRE= 000005 FT.HI = 000001 = tgs 
CBNCYL= 000022 FT.LOW= LUNIT 00147 
YCLOCK= 000004 FXBNCY 00305: MAXSND= 001750 
DI 002724 GCR 273 MEDTYP= 390008 
DINIT = 000011 GENEXT 73 SAG= 06001 
DIS 002726 GENIN 00672 MICREV= 000003 
DISCON= 000204 GENOUT 006721 002744 
OMSDI 003017 GENPAT 713 002745 
060016 GETCHR= 000207 MODE? 00274 
DONECD 001627 GETSTA= 000011 MODE2 00274 
DR 0027. GETSUB= 000210 = 1 
DRTYPE= 000007 TU Oot as MSSG$ = 
DRVCLR= 000005 00312 MS.CLR 
DRVID = 000004 GRPCNT Boaabs MS.CNT= 1 
DRVONL= 000213 GRPCYL= MS.DIS 
POFF= 000011 MS.END= 131000 


DRVRUN= 000014 GR 
DR.CLR 001761 GST 002735 MS.GCR 002404 


oo 
oo 
WW 
NO 


oo 


= 
A) mt md md dd dd dd 
SOONOUS WN OO 


SSSSSSSSSS3Ssss 


a ee ee ee 


RRRRARRAAARAR ERE RR RE 


SSSSSSSSSSSSsss 
WN SO NAUESWN—O NOAUSWN—O 


a ak at as ts a me = = ts ss ss se 


oooooo 


eeeeeeeeeeerere 


mo— PH He Heres 
Sees 
He ont pee pee 
NOAWWNOA@ hw 
YLSSSE 
-ONAW 


ANN 
MEW 








UDATS DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE 63-2 
SYMBOL TABLE 


at 2 oh 9 


RDSTAT 7 
READB 007175 
READ1 002 
READIA 002412 
READIB 002536 
READIC 

READIE 


SBCRES= 000167 
- ABS. 027474 


ERRORS DETECTED: 
VIRTUAL MEMORY USED: 


SECTRK 306 
EK 002156 

SEEKA 002171 

SEEK1 002203 

SEEK 002 

SEEK 002321 

SEND = 

SEROO 

SER10 


SERS2 003204 
SERSS 003243 
SERS4 003274 
SERSS 003325 
SERIG 003360 
se. Bas 
= 
SHRTTO= 000000 
SL.GRP= 107000 
SNDAGN 001010 


5145 WORDS ( 4 


DYNAMIC MEMORY AVAILABLE FOR 70 PAGES 
B:UDAT3.OBK ,B: UDAT3/C=$DMACRO,B:UDAT 


SNDLV1 00625 
SNDL1A 00625 
SNDONE= 002644 
SS = 1 
SSCTOR 003122 
ST 751 
STACK 00154 
START 65 


ST.DF = 000020 
ST.DR = 000040 
ST.EL = 000010 
ST.ERR= 000002 
ST.FE = 000200 
ST.FO = 002 
ST.MOD= 000001 
ST.MSK= 000 
ST.OA = 000200 
ST.PE = 000040 
ST.PS = 000002 
ST.RE = 000100 
ST.RR = 000100 
ST.RTY= 000003 
ST.RU = 000001 
ST.SR = 000020 
ST.STA= 000001 
ST.S7_ = 000400 
ST.UNT= 000000 
ST.WE = 000010 
SUB. = 002773 
SUBUNT 002734 
0053 
ALK 001076 
ST = 0000 
TESTED 00175 
ESTEV 00174 


TIMEOQU= 000001 


TO 001463 
TOOBIG= 00 apt 


TSTC pneces 
TSTCYL 003063 
TOA 005373 
T08 005400 
TO 105570 
TIMSIZ= 060000 
T1 006134 
TIOLOP 006135 
T11 005771 
TITER 4 14a 
T11X1 = 006333 
T11X2 00635 
T12 006241 
T2CMD = 060002 
T2DLL = 060001 
TSA 005532 
138 othe db 
T3C 0054 § 
T3D 00556 
TSSTRT 001555 
T4A 005610 
T4A1 005653 
148 005707 
T4881 = 060005 
T4882 = tse] 
T4C 00574 
T4D ttes | 
T4MPRM= 06000 
T4MXFR= 060011 
T4SEEK= 060010 
T4SOF T= 060007 
060004 
T 005761 
T 005770 
T6C 006030 
T6D 006034 
T6E 006217 


T6F 006233 
166 00617 
17 005247 
T7A po 36S¢ 
T7C 005321 
17x 005470 
T8 005545 
T8A 005610 
T88 005626 
T8D 005660 
T8E 005707 
TSF 005770 
TST 005700 
19 00612 
UDADM3= 001000 G 
UNITNS 002635 
UNITS 002615 
UNITO = 000001 
UNIT1 = 000002 
UNIT2 = 000004 
UNITS = 000010 
UNSSUC= 000175 
AD_= 000013 
UTOTST= 060012 
ITE= 14 
oS 0 
VARI 003110 
— 003112 
VAR 003114 
VAR4 003115 
WAITSi= 000012 
LN= 01 
WCONT = 040000 
WFLAG EL a 


XWRITE= 00000 


SEQ 249 



















AREA 


35-978 


38-10, 
14 
7-68 


35-884 
50-24% 
50-20* 


50-38 
44-11 
55-23 


50-25* 
50-28 
50-53* 
24-408 
61-9* 


59-20 
52-35* 
35-1114 
61-47 
49=24 
30-9 


35-125 


40-41 
52-96 





UDATS DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE S-1 
CROSS REFERENCE TABLE (CREF V04.00 ) 


50-48*  50-50* 50-62 
46-16 


50-28* 
50-54* 


61-19% 


33-16% 
54-15* 


35-21 
43-11 


46-21 


52-83 


49-84 
61-10 


52-44 
50-44% 
49-43 


42-19 


36-89 


56-37 


50-55* 
50-91 


61-22* 


35-154 
54-21% 


35-25 
43-15 


52-90 


53-4* 


49-93 
61-57 


57-51 
50-46% 


50-88 


61-24" 


43-6* 
54-30* 


35-26 


53-22* 


53-178 


49-96* 
61-57 


57-56 


61-46 


43-29% 
55-3 


35-28 


53-23 


54-48 


49-978 
62-40 


61-20 


62-7* 


44-5 
56-27% 


35-29 


53-25* 


55-34% 


49-99« 
62-40 


61-57 


62-10* 


44-26% 


56-35 


56-22 


56-5 


51-3* 


62-8 





62-12* 


45-6" 


56-18 


51-4 


62-40 


62-33 

45-19%  46-5* 46-22" 
58-8* 58-10" 58-18 
63-15 


SEQ 250 


47-13% 


58-20 















6-148 


UDAT3 DISK FUNCTIONAL DMACR X04. 
CROSS REFERENCE TABLE (CREF V04. 


40-50 
7-54 7-54 
34-64 34-70 
56-31 56-33 
62-40 63-15 
22-8 5-23 
~64 $2-50 
55-28 56-31 
“29 62-40 
35-408 44-24% 
25-61*  25-66* 
7-54 7-54 
57-254 
57-18 57-45 
31-16* 35-804 
57-454 
52-18* 52-36 
7-26 
31-194 
31-27 31-324 
49-85 
31-60 50-43 
57-598 
57-53 
57-24 
57-27 
22-8 29-23 
35-814 








13-APR-82 18:08:21 PAGE S-2 


) 


48-28* 
52-69* 


50-70 


40-38 
48-18+ 


25-43 25-47 25-51 25-55 5-59 25-64 25-71 33-29 
42-41 46-29 46-44 48-37 49-46 49-53 51-16 52-94 
57-35 57-38 57-43 57-56 61-31 61-34 61-41 61-57 
5-47 25-51 25-55 25-59 25-64 25-71 29-23 33-29 

40-38 42-41 46-29 46-44 48-37 49-46 49-53 51-16 
56-35 57-35 57-38 57-43 57-56 61-31 61-34 61-41 
30-4* 30-6 35-1004 

48-29" 50-58 50-60 51-6 51-7 52-27 52-28 

52-718 

48-21" 50-44 50-46 








1 


SEQ 251 


33-41 
55-20 
62-22 


33-41 
55-17 
62-19 


SEQ 252 
UDATS DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE S-3 
CROSS REFERENCE TABLE (CREF V04.00 ) 


GENPAT 59-10 G02" 
GETCHR 7=36# 5-41 


GROUP gin$¢ 31-65 35-1124 
GRPCNT 35-104# 50-35" 50-76%  50-77* 
yaa 6-254 48-48 49-16 49-55 50-26 52-52 52-76 


| 
HBHINB 6-564 31-16 31-30 4 8=._- 31-33 38-10 47-31 48-20 | 
HBLONB 9 6-57# 34-29 34-36 34-45 57-13 = 61-16 
HD.BAD 4-568 | 
HD.DBN 4-598 34-46 57-14 61-17 
HD.LBN 4-534 34-37 | 
HD.PRV 4-57# 
HD.RBN 4-54# 
HD.REV 4-55# 
HD.XBN 4-58" 34-30 
HDRPRE 6-344 57-48 
HEADER 6-624 
HIBYTE 6-544 31-26 48-8 48-35 48-49 49-9 49-17 49-26 4944 49-56 69-96 50-17 50-19 50-27 
50-77 52-47 52-53 52-77 57-47 557-50 S148 | 
HICYL 6-24# 
HIDBN 6-308 34-40 57-8 61-11 | 
HILBN 6 6=26# 34-35 | 
HIMEM 6 &- 9 
HIRBN © 6-29 | 
HIXBN 6-278 34-24 
HOSTRQ 23-24 28-43 30-11 33-43 34-91 39-5 40-40 46-38 50-86 57-58 61-59 62-42 63-17 
HRDREV 6-134 
INDEXS 35-1154 
INR 35-28 35-468 | 
INS 33-12e 33-132 33-142 33-41 33-41 33-41 34-89 34-89 34-89 35-26 35-474 57-56 57-56 57-56 | 
61-57 1-57 61-57 62-40 62-40 62-40 63-15 63-15 63-15 
INSEEK 7-408 35-47 
INTEDC 8-94 
IRECLB 7-398 35-46 
6-764 | 


LBLONB 9 6-594 4e-35 38-85 43-12 43-16 
48-17 48-19 


LCDBN 
LDIACY fa tnd 48-46% 48-474 48-51* 49-48 49-49 49-87 49-89 
Hae} 31-19% 31-50" 34-21" 34-328 34-89 35-984 49-80" 50-38  50-62*  50-69« 


LINIT 

LINKLN 4-778# 

LOBYTE 55a 12 34-50 44-24 52-78 
LONG 25-26 5-278 

LONGTO 43-1 

LOW 


5 

O# 

LUNIT -8 3-13 5-23 5-43 5-47 5-51 5-55 5-59 5- -71 “1 ¢ 

3 5 1 3. 60 64 34 % : 2 2 23 25 26-168 28 “33° 29-23 33-29 
51-16 33-94 55-17 5 5 


57-38 3 ~43 37-56 61-31 













UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE S=4 
CROSS REFERENCE TABLE (CREF V04.00 ) 


61-34 gis} g)37 62-19 62-22 62-29 62-40 63-15 
4-484 - 


MAXSND 5-13 7-73 
MEDTYP ¢-3 
MESSAG “168 46-38 
MICREV $-3¢" 
“25 35-514 
5-528 45-5* 52-8* 
1 5-5 45-5 
MODE2 35-544 52-8 
MRD 5-178 23-17 
MS.CLR 41-110# 44-26 
~644 


MS.END 4-634 71° 54-14 54-22 54-29 
MS.GST 41-1184 44-5 46-22 
41-1208 45-6 52-9 


$283 
& 
—_ 
8 
Z 
s 
Ww 
wy 
o 


nnn 
ama 
DRBD 
& 
_ 
a 
_ 
™ 
™N 
te 


33- 

4-624 54-5 54-19 

33-29 34-60 41-374 57-35 61-31 62-19 

<2 34-64 41-424 55-20 57-38 61-34 62-22 


Annan 


amtadetadadeds © © 8 6 8 6 
VMEwN—o 





SEQ 253 





UDAT3 DISK FUNCTIONAL DMACR x04.01 jones 18:08:21 PAGE S-5 


CROSS REFERENCE TABLE (CREF V04.00 


OuT.05 


OuT. 
OuT.14 


56- 
24- 
4-134 


4-198 


61-57* 
61-57 


25-478 
3 


-15* 


63-15 


25-598 
46-29% 
56-35* 


46-38* 
57-35 


33-418 


63-15 


25-64% 
o$nse° 
57-35* 


25-718 
46-448 
57-38* 


ee-the 


25-718 
48-37 
57-438 


40-6 


esis: 


25-718 
46-38 
57-35« 
29-238 
49-468 
57-56" 
46-298 
57-56" 


25-604 
25-714 


57-56" 
33-29 


49-S3e 
61-318 


61-318 
50-85* 
61-57* 


SEQ 254 


DC See eer es a oe J 4 
SEQ 255 


UDAT3 DISK FUNCTIONAL DMACR X04.01 ‘inact 18:08:21 PAGE S-6 
CROSS REFERENCE TABLE (CREF V04.00 ) 


OUT.15 24= 
OuT “48 4-218 
OuT.1 17568 
OUT.18 24- 
OUT.19 24-244 
OUT.20 24-254 
OUT.21 24-268 
OUT.22 24-278 
OUT.23 24-284 
OUT.24 24- 
OUT.25 24- 
26 24-318 
-27 24-328 
OUT.28 24-3 
29 26- 
T.30 24-354 
OUT.31 24- 
T. 4-378 
OUT.3 4- 
T. 24-398 


Ou 
OUT.RQ 22-8+ 23-14% 23-15 3-20 23-23 $3.34 4-40 5-23* 5-43« 5-47 5-S51* 25-55* 25-592 25-64% 
29-23 0-5 - 3-33* 3-418 3-42 4-60* 648 -70* 34-892 34-90 40-38 . 
40-39 42-41% 46-29% 46-44% 48-378 49-46% 49-53# 51-16% 52-94% 55-172 55-208 55-28% 56-318 56-332 | 
56-35* tt 57-38% 57-43% 57-56% 57-57 61-31% 61-34% 61-41% 61-57% 61-58 62-19% 62-228 62-299 — 


~ 
w 
4 
N 
ob 
@ 
® 
Ww 
So 
6 
— 
So 
ul 


62-40 63-15* 63-16 
OV... 3-3 =3 at 41-5 41-5 41-5 41-54 42-2 42-2 42-2 42-28 50-2 50-2 50-2 
50-24 63-28 63-284 

OVE .MN 3a 1-5 
OVE.MS 41-5# 42-2 
OVE.SU 42-24 2 
OVE.TS 50-24 63-28 
OVERFL 6-75# 
OVL... 3-3 3-34 41-5 41-54 42-2 42-28 50-2 50-24 63-28 63-284 
OVL.MN 3-3 3-3 41-5 41-5 41-54 
OVL.MS 27-25 41-1844 42-2 42-2 42-24 
OVL.SU 27-26 49-1054 50-2 50-2 50-24 
OVL.TS 27-27 63-264 63-28 63-28 63-284 
OVRLAY 28-33 z¢ 49-103 
OVRLNM 29-4 27* 29-31% 37-27% 
OVRLPT 29-16 28 40-564 42-2 42-2 50-2 50-2 
OVRPNT 29-7* 29-23 29-324 
OVS.MN 3-34 
Ovs. 41-54 
OVS.SU 42-24 
ovs. 50-24 
OVSTRT 4-104 7-29 37-30 
PATS 36-3 104 
PATS 278 

16 36-5 “444 
PATS 35-6" # 
PATPTR oo a 9- oe 
PHYSA 3-3 3- 3-3 3-34 


PORT 6-274 8-31 
PORTS 8-28 8-324 
PORTS 28-16 


8-1 28-20 28-394 















UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE S-7 
CROSS REFERENCE TABLE (CREF V04.00 ) 
RBNTRK 6-31# 48-5 
RBUFO 34-16 ae 34-80 34-89 34-89 34-89 36-844 
RBUFD 36-86 7-78 62-11 63-8 
RBUFLN 4-764 
CONT 4-418 
RCTCPS 6-84 
RCTCSZ 6-408 
CV 5-84 $3-38 37-93 
RCVERR 7-254 -32 33-27 34-58 55-15 57-33 61-29 62-17 
RCVRDY 7-214 37-61 3§- 7 
RDSTAT 22-15 22-208 33-24 34-55 37-52 37-60 38-13 55-12 57-30 61-26 
AD1 “148 49-95 50-67 50-75 
READIA -53# 34-88 
READ1B ~84 3 
READIC ~69 734 
READIE 34-79 34-894 
READIX 34-62 34-66 34-72 34-77 34-924 
ADB 59-14 62-24 
REDERR 62-30 62-414 
REDEXT 62-28 62-37 62-39 62-444 
RETS 6-74 
REVECT 6-634 
REVS 6-164 
RGO 62-26 62-314 
RM 6-328 
ROF 35-768 49-76% 49-77% 
ROFDC 9 35-77 49-482 49-49% 49-60" 49-628 49-68% 52-608 52-628  52-64« 
RRE 4-448 36-88 62-9 
RSTOP 4-404 36-85 62-6 
RTDS 22-54 42-31 44-10 46-13 
RTDSL 2-5 22-134 
RUN 5-29 35-454 52-81%  53-5« 53-13% 53-15%  54-5* 54-8* 54-10" 54-148 
54-29% 55-33  56-4s 56-29% 56-33 
RUNCMD 35-564 53-15 55-33 56-29 
RUNLBC 35-574 54-27 56-4 
RW.ANG 4- 
RW.BUF 4= 61-24" 62-12* 
RW.CMD 4-324 -89 61-22* 62-10« 
RWI 4-314 -89 Hat 
RW.LOW = -16 -80 34-89 61-9« 
RW.SDI 4-334 
RW.STA 4-284 gi 62-7* 
Y 7-264 3-37 34-68 46-40 57-41 61-37 62-25 
SBCRES 7-4 
SCR 35-23 35-424 
ae 25-44 25-8 26-19 28-32 30-8 32-9 33-11 33-23 34-54 34-73 
- = = ® =, - = = - 
57-29 57-52 61-25 61-46 2-13 231 
5-784 43-18 52-75 
43-48 435-148 


50-72 


62-14 


54-i9e 


35-134 


52-41 


54=22* 


42-18 


57-17 


54-26% 


52-84 


58-11 


SEQ 256 


54-278 


55-11 


| 











UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE S-8 
CROSS REFERENCE TABLE (CREF V04.00 ) 


SEEK1 33-19 mi 

seeks 33-234 =40 

SEEK 33-21 3-31 33-35 33-38 33-448 
SEEKA 33-158 

SEND 5-74 25-16 37-79 52-87 56-9 
SE 25-65 25-72 41-1064 


ROO $360 
SER10 7-55 41-1354 


SER18E 27-114 40-26 
SER22 25-61 25-66 25-73 30-4 41-1584 46-29 46-38 
SER23 30-2 41-1614 
R39 23 41-1044 
SER4O 37-70 41-1634 
41 40-16 41-1654 
SERSO 41-1674 53-18 
41-1694 53-21 


SL.GRP 4-654 52-80 54-8 
SNDAGN 


-9 
SNDLV1 54-6 54-20 54-28 56-44 
SNDONE 


Ss 
a aad 35-18 35-20 35-21 35-24 35-25 35-26 35-28 35-29 35-61 37-90 38-8 
- - - = -= 7 = oe - = tJ = = 

52-92e 56-24" 

ST.C - 

ST.CON 5-294 

ST.0B 5-484 

ST.DF 5-454 


ST.ERR 5-28 46-26 35-3 * 36-2 * 
ST.FE 52-9 56-24 





46-26 


SEQ 257 


46-34 











UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE S-9 
CROSS REFERENCE TABLE (CREF V04.00 ) 


ST.PE 5-448 46-27 52-92 56-24 


ST.PS 5-404 
ST.RE 5-434 46-27 52-92 56-24 
T.RR 5-374 
ST.RTY 5-314 
RU 5-414 
ST.$7 5-498 
ST.SR 5-394 
ST.STA 5-268 
-UNT 5-244 
ST .WE 5-464 46-27 52-92 56-24 
STACK 3-9 7-64 28-36 29-3 


START 
STATUS _5-10# 22-29 32-10 
STRST 30-7 32-84 46-37 


6-224 27-8 27-84 31-25 31-32 31-48 34-24 34-35 34-40 35-23 35-67 47-30 
48-17 48-19 48-25 48-33 48-48 49-8 49-16 49-24 49-43 49-55 50-16 50-18 
52-52 52-76 57-8 57-46 57-48 61-11 61-47 





48-5 
50-26 


SEQ 258 


48-7 
52-46 












TESTEW 
TESTEX 


UDAT3 DISK FUNCTIONAL DMACR 
CROSS REFERENCE TABLE (CREF 





x04 .01 
v04.00 
49-90 49-1034 
49-98 49-101 
63-2 
50-2 
50-57 50-94 
51-28 
=49 52-68 
52-444 
52-58 52-604 
52-754 
2-93 52-964 
52-694 
30-14 33-17 43-7 
56-19 56-23 
49-105 50-7# 
30-3 30-84 56-32 
34-71 36-32 48-38 
33-30 33-34 34-61 
62-20 62-23 
33-20 43-10 43-33 
46-32 
29-29 52-17 55-35 
43-13 43-17 
35-1134 
58-254 
58-284 
49-8 50-16 52-46 
58-27 
58-24 
31-56* 35-844  50-33« 
52-41% 52-43* -7 
56-194 
53-14 53-19 54-11 
56-374 
31-23* 31-24 31-63* 
50-31*  50-32* 50-58 
S2-51* 52-54% 52-56 
28-23 
28-38 35-104 47-4 
35-64 7-49 


52-57« 


39-19 


50-39 
58-7 
54-23 


31-65* 
50-63 
52-59« 


39-26 
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44-27 


51-17 
44-14 


45-10 


50-51* 
58-9 
54-31 


a 
52-60 


40-7 


45-7 


52-95 
46-15 


45-23 


50-52 


56-184 
47-28 


51-6 
52-62 


40-36 


45-20 


55-29 
46-45 


46-10 


50-65 


47-29 
51-7 
52-64 


46-6 


57-44 
55-18 


47-17 


50-88* 


47-30* 
51-8* 
52-66 


46-23 47-14 
55-21 57-36 
52-13 55-7 

50-90"  50-91« 
47-31% 67-328 
51-9 52-278 


52-10 


57-39 


50-93« 


49-87 
52-28* 


SEQ 259 


61-32 


52-33* 


49-89* 
52-29 








UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE S-11 
CROSS REFERENCE TABLE (CREF V04.00 ) 


VARI 
VAR 


sii 


—_ 
hb 
» 2 


31 H 


31-47 35-1074 
35-1084 


61-45 62-32 
51-19% 61-51 


61-24 

61-52 61-54 61-56 61-614 
59-23 

59-19 59-244 


62-34 


SEQ 2 





SEQ 261 
UDAT3 DISK FUNCTIONAL DMACR X04.01 13-APR-82 18:08:21 PAGE M-1 
CROSS REFERENCE TABLE (CREF V04.00 ) 


-BLKW 819-48 7-5 35-61 5-6 5-68 32-28 35-71 5-76 35-77 35-78 35-79 35-80 35-81 35-82 
35-84 5-85 35-86 5-8 5-88 5-89 35-90 5-91 35-92 36-86 36-87 40-50 


C 
CERROR 15-66 25-60 25-6 25-72 30-2 


DMCODE 1-34 3- 
ND 1-398 63-28 
VLY 1-254 3+ 4125 42-2 50-2 
DSTAT 17-34 | 
ENDERR 15-948 22-9 25-61 25-66 25-73 30-4 | 
RRDF 12-334 j 
ERRHRD 12-398 
ER 15-49% 22-8 25-23 9-25-43 25-47 25-51 25=55  25=59 = 25-64 0 25=71 29423. 33-29 38-33 B3BHKT CL 
60 34-64 «= 34-70 334-89 40-38 «= 42-41 46-29 6-440 4B$37 0 49-460 49-53 51-160 “52-9405 +17 
55-20 55-28 56-31 56-33 6-35 57-35 57-38 57-43 57-56 61-31 61-34 61241 61-57 62-19 | 
62-22 62-29 62-40 63-15 
R 13-34 | 
ERRORC 15-768 | 
ERRSF 12-278 
ERRSFT 12-478 | 
HARDER 15-34 25-23 25-43 25-47 5-51 25-55 25-59 25-64 25-71 33-29 33-33 33-41 34-60 
34-70 “89 42-41 46-29 46-460 48-37 49-460 49-53 S116 52-94 5-17 55-20 55-28 3 «56-31 
36-35 56-35 57-35 57-38) = “57-430 «57-560 1-31 61-340 1-41 61-57 219 2-22 2=29 0 
MOVMSG 15-854 22-8 25-23 25-43 25-47 25-51 25-55 25-59 25-60 25-60 25-61 5-64 25-65 25-65 
25-65 25-71 25-72 25-72 25-72 25-72 5-73 9 29-23 9-23 29-23 0-2 


eres ca oe ~ 3- 41- 41-54 42-2 42-24 50-2 50-24 63-28 

11-114 <5-79 23-24 5-21 25-25 25-35 25-62 25-74 32-19 33-44 34-92 37-80 37-100 37-103 
-4 -17 38- 9-15 39-24 40-28 = 34 42-36 46-11 46-30 46-38 46-39 49-23 

49-42 0-87 53-8 60-22 

PUSH 11-34 22-27 23-12 - 25-22 5-33 25-42 “8 33-10 34-14 37-50 37-77 7-88 38-11 
39-10 40-13 40-29 42-34 46-9 46-20 46-38 49-15 49-18 49-33 50-79 3 60-9 

REPSFT 15-94 

RSTRS 14-84 

RXOR 18 

VRS 14-14 

SOFTER 15-44 

SYSFTL 15-444 

TALKX 20- 

AT4 DISK 1 aaa DMACR X04.01 13-APR-82 15:49:22 


UDAT 
TABLE OF CONTENTS 


3- 45 MODIFICATION CONTROL 
s- 1 UDA DM PROGRAM PARAMETERS 











Nu— 
Pues ees 


ID et ace rd a ed ed ed ed ed nd od od 


TeBS= 


oa 








TEST 4 SPECIFIC INFORMATION 

MACRO DEFINITIONS 

START OF TEST CODE 

RTOS = REAL TIME DRIVE STATE ROUTINE WITH erine REPORTING (TEST 4) 
RTDSL_ = SAME AS S BUT WITH ERROR RE 

RDSTAT = GET DRIVE’S REAL TIME DRIVE STATE 

HSTTLK = TALK TO THE HOST (INTERRUPT THE HOST BEFORE 3 MIN) 

HOSTRQ = HO QUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. 


G STR 
CMPEDC = EDC CALCULATION ROUTIN 
TALK SDI LEVEL 2 INTERCHANGE ROUTINE 
Sd! PROTOCOL MESSAGE TABLES AND RESPONSE BUFFER 
BLKCHK = SEE IF A BLOCK WITH ERROR IS KNOWN TO BE BAD 
CMP2 ~ 28 BIT_COMPARE 


VARIAB 
DATA PATTERNS THAT WILL BE rte - THE DRIVE 
ROO - MAIN DRIVING MODULE OF TEST 4 
OVERLAY DRIVER FOR TEST & 

DRPTST = SEE THAT AT LEAST ONE SUBUNIT IS ACTIVE ON A UNIT 
et = OVERLAY PROCESS FOR BRINGING IN OVERLAYS IF NEEDED 

MPRET = THIS IS THE LOCATION THAT VECTORS TO/FROM ALL OVERLAYS 
CORECT = CORRECT THE ERRORS 
RECOVR = RECOVER FROM THE ERROR 
CHKDN = FIND PREVIOUS ACTIVE SUBUNIT 
CHKDN = FIND FOLLOWING ACTIVE SUBUNIT 
ce ay HY SUPPORT SUBROUTINES 


ERY 
GORTRY = RETRY OF MODULE REQUIRED TO RECOVER 
easy ° seta REQUIRED TO RECOVER 


K AND SUBUNIT PARAMETERS 
Cc - 28 BIT COMPARE 44 SETUP "WODULES 

TROOT = TEMPORARY ROOT FOR URING TEST 4 SETUP 

GMPARM = GET MASTER PARAMETERS (PATTERN i AND SET UP OVERLAY ADDRESSES 
GETU = POLL ALL PORTS, THEN GET UNITS TO TEST 

BLDUNT = BUILD THE UNIT PARAMETER BLOCK 

BLDSUS = BUILD ALL SUBUNIT PARAMETER BLOCKS ON THIS UNIT 

BLDBES = FIND HOW MANY WORDS NEEDED FOR THE BEGIN/END OR TRACK/GROUP SETS 
BLDBB = FIND HOW MANY WORDS NEEDED FOR THE BAD BLOCKS 

COPYSU = COPY ALL SUBUNIT PARAMETERS TO SUBUNIT BL 

seeeeanene NON-LOADED OVERLAY, ERROR MESSAGES 

INFORMATIONAL MESSGES 

seeeennene OVERLAY MODU! E SETUP = OPERATION TO BE DONE THIS PASS 
seeeeenene OVERLAY MODULE NEWOP - SET UP NEW OPERATION (COMMON CODE TOO) 
AFTOP = AFTER THE SECTOR HAS iis DETERMINED, FIND OUT WHAT TO DO WITH IT 
CLRUP = CLEAR ALL PARAMETER BITS 

RORW = DETERMINE IF A READ OR A WRITE IS TO BE DONE 

PATTRN ~ IF WRITE, DETERMINE WHAT PATTERN IS TO BE WRITTEN 

WCHK = IF WRITE, SEE IF A WRITE CHECK IS TO BE DONE 





| “> SEQ 262 


UDAT4 DISK oth DMACR X04.01 13-APR=-82 15:49:22 


TABLE OF C 
67- 1 DCOMP <= IF READ OR WRITE W/WRITE CHECK, SEE IF DATA COMPARE IS TO BE DONE 
69- 1 RANDOM = RANDOM NUMBER soot iy 
70- 1 MASK = FIND MASK FOR RANDOM NUMBER 
7i- 1 weenennene OVERLAY MODULER RNDBE = GET NEXT RANDOM BEGIN/END SET SECTOR 
73- ~=1 eeeeneneee OVERLAY we eA MY NEXT AL BEGIN/END SET SECTOR 
73- 83 UPLBN = IF GOING UP TE CURRENT BN TO LAST BN READ/WRITTEN 
7%4- #1 FNDBES = FIND THE SE GINTEND SET CURR m9! BN RESIDES IN 
75- 1 MAXMUM = FIND HOW MANY SECTORS TO READ/WRITE 
76- 1 PREVBE = MOVE TO PREVIOUS BEGIN/END eet 
77> 1 NEXTBE - yt 1° NEXT BEGIN/END SET 
78- 1 MOV2 = 28 BIT MOVE 
79- = 1 NXTTRK = shy HOW MANY oat Tons TO R/W TO ALIGN WITH NEXT TRACK BOUNDRY 
80- 1 eeeneneeee OVERLAY MODULE RNDTG = RANDOMLY GET NEXT TRACK/GROUP SECTOR 
84- 1 seneneneee OVERLAY “mess E SET NEXT AL TRACK/GROUP SECTOR 
85- 1 UPT = MOVE UP ONE TRACK 
86- 1 DOWNT = MOVE DOWN ONE TRACK 
87- 1 UPG = MOVE UP ONE GROUP 
88- 1 DOWNG = MOVE DOWN ONE GROUP 
89- 1 NEWUPT = INITILIZE PARAMETERS FOR ALLY UP BY TRACKS 
90- 1 NEWDNT = INITILIZE PARAMETERS FOR ALLY DOWN BY TRACKS 
91- 1 SETSEC = SETUP TRACK/GROUP COUNT FOR SELECTED GROUPS 
92- 1 LSTTRK = SET MASTER BN TO POINT TO i. TRACK IN THE GROUP 
93- 1 eeeeeeeene ew ed MODULE BUILDP - BUILD THE READ/WRITE LINKED LISTS 
94- 1 LINK = BUILD A LINK (NODE) IN THE READ/WRITE CHAIN 
95- 1 FILLIN = FILL THE READ/WRITE CHAIN LINK (NODE) WITH REQUIRED INFORMATION 
96- 1 ALLOCM = ALLOCATE MEMORY FOR THE READ/WRITE BUFFERS AND CHAIN 
97- 1 weeeeneene OVERLAY MODULE WRITE 
97- 45 BULDSC = BUILD THE SECTOR TO WRITE (FILL WITH PATTERN AND CALC EDC) 
97- 65 COPPAT = COPY THE DATA oat, TO BUFFER 
98- 1 WBLOCK = WRITE THE SECT 
99- 1 eeneenenee OVERLAY AODULE A 
99- 23 FNDWER = IF ERROR DURING uniTe, TEIND IT°S POSITION IN THE CHAIN 
1 4 eeneenenen OVERLAY Hyped READ 
101- 1 RBLOCK = READ THE SECT 
102- 1 FNDRER = IF ERROR DURING READ, FIND IT*S POSITION IN THE CHAIN 
103- 1 #teeeneeee OVERLAY MODULE SECCHK - CHECK THAT BUFFER FULL AND ECC 
104- 1 eeeeeeneee OVERLAY MODULE CHKEDC - CHECK THAT ECC AND EDC ARE OK 
105-1 eeeeeneene OVERLAY MODULE CHKECC - CORRECT BUFFER READ USING ECC 
106- 1 weneeeenee OVERLAY MODULE ERCOV = DATA ERROR RETRIES AND LEVELS 
107- 1 weneeeenne OVERLAY MODULE NEWLEV - SEND DRIVE ERROR LEVEL 
108- 1 weeeeneene OVERLAY MODULE CMPDAT - DATA COMPARISON ON READ BUFFER(S) 
109- 1 teneteenee OVERLAY MODULE LSTMOD - CLEANUP MODULE BEFORE SETUP 
110- 1 weeenenene OVERLAY MODULE REVCT - pp hae Th 4 SECTOR HANDLING 
110- 22 REVSUP = SETUP THE REVECTOR OPERATION (TO READ RCT) 
111- 1 REVSOK = SEE IF THE REVECTOR INFO secren JUST READ IS OK 
112- 1 SEARCH = TRY TO FIND THE LON IN THE RCT SECTOR JUST READ 
113- 1 NXTRCT = GET THE NEXT RCT SECTOR TO SEARCH 
114- 1 RVFAIL - CLEAR ALL REVECT BITS, AND CALL SETUP NEXT 
115- 1 weeeneneee OVERLAY MODULE SEEK - IF rhs tie ISSUE SEEK 
116- 1 TSTNEC = TEST TO SEE IF SEEK IS “NECESSAR 
117- 1 ISUSEK = ISSUE SEEK COMMAND 
118- 1 eeeneneeee OVERLAY MODULE SEKTST = SEE IF an, a IS COMPLETE 
119 1 eeenenenee OVERLAY MODULE RECALB - RECALIBRATI 
120- 1 seeeceneee OVERLAY MODULE DRPALL - DROP ALL SUBUNIT S ON THIS DRIVE 
121- 1 seeeeeeeer OVERLAY MODULE re - _SET UP UNIT FOR INITIALZATION 
is¢- 1 eeeneeeeee OVERLAY MODULE COMCHR - SET UP COMMON CHARACTERISTICS 
12 1 eeeeeeeaee OVERLAY MODULE SPINUP - SPIN THE DRIVE UP 
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weeeeeenes OVERLAY MODULE SORT = SORT ALL tf BEGIN/SETS, AND BAD BLOCKS 
SORTBE = SORT THE BEGIN/END SETS IN ASCENDING ORDER 
SWAPBE - IF a ah SETS OUT OF ORDER, SWAP 
SORTBB = SORT THE BAD BLOCKS IN ASCENDING ORDER 
APBB BAD F OR 


RDER 
weneeneeee OVERLAY MODULE at | ARO = SET UP SUBUNITS, CHECK THAT ALL PARAMETERS ARE WITHIN BOUNDS 


SMA T MASK 
TRAV = TRAVERSE THOUGH THE UNITS 10, FIND SUBUNIT CHARS THAT MATCH 

SUBTRV = TRAVERSE THROUGH SUBUNITS TO FIND SUBUNIT CHARS THAT MATCH 

SCHRCP = SUBUNIT CHARACTERISTICS CORPARE 

CHKCYL = CHECK VALIDITY OF STARTING AND ENDING CYLS, CONVERT To BEGIN/END SET 
CYLBN = GIVEN A CYLINDER, CALCUL ATE STAR ARTING BN ON THAT CYLI NDER 

CHKBES = CHECK THE BEGIN/END SETS FOR ERR 

COMPSC = COMPUTE SECTORS/GROUP AND SECTORS/CYLINDER 

CLCMAX = CALCULATE THE MAXIMUM WRITEAB 

eeeeerenee OVERLAY MODULE SCHAR1 - SET UP SUBUNITS, CHECK TRACK/GROUP PARAMETERS 
CHKBB = CHECK THE BAD BLOCKS FOR ER RORS 

CHKTG = CHECK THE TRACK/GROUPS FOR ERRORS, AND CONVERT TO BN'S 

COMPDP = CALCULATE SECTORS/TRACKS OR” SECTORS/GROUPS 

teeeereeee OVERLAY MODULE GETSER - GET THE MOAT AND DRIVE SERIAL NUMBER 

REPSER = FIND AND REPORT DRIVE AND HDA SERIAL NUMBER 

ASSOCIATED VARIABLES FOR GETTING THE HDA SERIAL NUMBER 

teneeeeree OVERLAY MODULE INITD = INITILIZE THE DRIVE PARAMETERS FOR TESTING 
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UDATS DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 2 
DIAGNOSTIC MACHINE MACROS = OVERLAY VERSION WITH ‘RELOCATION’ 


-TITLE UDAT4 DISK EXERCISER 


COPYRIGHT (C) 1981 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


ae SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
ae COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
F THE ABOVE COPYRIGHT HIS SOFTWARE, OR ANY OTHER 

COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 

TO ANY OTHER PERSON EXCEPT FOR ae ON SUCH SYSTEM AND TO ONE 


WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 


pas gi yindk IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
TICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 


; EQUIPMENT CORPORATION. 


; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


STHIS PROGRAM SHALL BE cali te = TH THE PROGRAM DMACRO 


;USING A COMMAND LINE SIMILAR T 


UDAT4 .BIN,UDAT4/C=SDMACRO,UDAT4 


DEBUG = 0 : SET TO 1 TO DEBUG TESTS 


-ENABL ABS 
DMCODE UDADM4,0,714,3,0,34200 


SEQ 264 


——__—_—_—_—_—_—_—_—_—_——__ 


SEQ 265 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 3 
MODIFICATION CONTROL 


45 -SBTTL MODIFICATION CONTROL 

i$ 000000 -REPT 0 

48 

4 MODIFICATION CONTROL == ALL CHANGES AFTER OCTOBER 29, 1981 WILL BE 


24 ot = IN THIS SECTION TO ALLOW THE HISTORY OF TEST 4 TO BE DOCUMENTED 


SEQ 266 

UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 5 | 
UDA DM PROGRAM PARAMETERS 

1 .SBTTL UDA DM PROGRAM PARAMETERS 

$ .LIST MEB 

3 : EQUATES 

. ; HIGHEST USABLE LOCATION OF UDA MEMORY + 1 

9 007774 HIMEM = 777% : HIGH MEMORY+1 

10 007774 OVSTRT = 7774 t OVERLAY ADDRESS LOCATION 

1 ; 

13 ; OFFSETS FOR FORMAT TRACK TABLE 

15 000000 FT.BUF = 0. : BUFFER POINTER OFFSET 

16 000001 FT.HI = 1. : HI ORDER HEADER OFFSET 

7 000002 FT.LOW = 2. : LOW ORDER HEADER OFFSET 

19 : 

3 3 OFFSETS FOR FORMAT TRACK BUFFER 

2 000000 FB.DAT = 0. z FIRST DATA WORD OFFSET 

33 000400 FB.EDC = 256. : EDC WORD OFFSET 

25 : 

26 : OFFSETS FOR READ/WRITE 1/0 CHAIN TABLES 

28 000000 RW.STAT = 0. 3 STATUS AND NEXT BUFFER POINTER OFFSET 

29 000001 RW.BUF = 1. : POINTER TO DATA BUFFER 

30 00000 RW.LOW = 2. : HI ORDER EXPECTED HEADER 

37 00000 RW.HJ = 3. : LOW ORDER EXPECTED HEADER 

32 000004 RW.C'D = 4. > SDI COMMAND AND HEAD ADDRESS 

3 000005 RW.SOI = 5. : DUMMY SDI CONTROL BLOCK POINTER 

34 000006 RW. 2 6. : THETA FROM INDEX 

36 : CONSTANTS FOR READ AND WRITE XFC’S 

58 140000 WSTOP = 140000 : LAST ENTRY IN CHAIN FOR WRITE 

39 040000 WCONT = 40000 : WRITE CONT 

40 100000 RSTOP = 100000 : LAST ENTRY IN CHAIN FOR READ 

41 000000 RCONT = 0 > READ CONTINUE 

4 100000 FSTOP = 100000 + LAST ENTRY IN CHAIN FOR FORMAT 

4 122600 WREAL = 122400 3 WRITE REAL TIME ECOMMAND 

44 013400 RR = 13400 : READ REAL TIME COMMAND 

45 010000 ECCFLG = 10000 ; ECC ERROR IN BUFFER BIT 

46 100000 EO 2 100000 : END OF CHAI 

47 040000 BUFFLG = 40000 : BUFFER FULL OR EMPTY FLAG 

49 ; 

30 ; HEADER CODES 

5 000000 HD.LBN = 000 : GO0D LN 

5 960000 HD.RBN = Be000 3 GOOD PERHAPS UNUSED 

54 0 HD.REV = 0000 ¢ RevecTOReD ten 

55 110000 HD.BAD = 110000 : BAD BLOCK 

56 050000 HD.PRV = 050000 3 PRIMARY REVECTORED BLOCK 

& 120000 HD.XBN = 120000 : XBN BLOCK 
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SEQ 267 
UDATS DISK te ay the DMACR X04.01 13-APR-82 15:49:22 PAGE 5-1 
UDA DM PROGRAM PARAMETERS 


3 140000 HD.DBN = 140000 ; DBN BLOCK 

$ 3 OFFSETS FOR DATA BUFFERS 

o¢ 000000 BF.DAT = 0. 3 DAT 

6 000400 BF.EDC = 56. ERROR DETECTION CODE 
Pf: 000401 BF.ECC = 57. : LAST 12 ECC RESIDUES 
68 3 BUFFER AND READ/WRITE CHAIN LINK SIZES 

68 = 257. 3; WRITE BUFFER SIZE 
69 = WBUFLN+12. : READ BUFFER SIZE 

7 = A 3; LINK SIZE 


SEQ 268 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 6 
UDA DM PROGRAM PARAMETERS 
1 3 XFC DEFINITION EQUATES 
¢ 000000 BREAK = 0. 3 BREAKPOINT XFC CODE 
4 000001 FORMAT = 7. 3 FORMAT TRACK XFC COD 
5 00000 XREAD = ¢: 3 READ N SECTORS Xtc CODE 
6 00000 XWRITE = “ 3 WRITE N SECTORS XFC CODE 
7 000004 SEND = 4. 3 1 COMMAND X xi cre 
8 000005 RCV = 5. 3 RECEIVE sol IPESSAG XFC CODE 
9 000006 COMP = 6. 3 ATTERN TO BUFFER 
10 000007 STATUS = 7. 3 RETURN, oniVE STATUS XFC CODE 
11 000010 CHO = 8. : ECHO D 0 DRIVE xre CODE 
12 000011 DINIT = 9. 3 DRIVE? INITIALIZE. & C CODE 
13 900012 WAITS] = 10. : OR SECTOR on” INDEX PULSE 
14 00001 UREAD = 11, 3 REA it BUS MEMORY XFC CODE 
15 000014 UWRITE = 12. 3 WRITE UNIBUS MEMORY XFC CODE 
16 000015 ECC = 13. : ON BUFFER XFC CODE 
17 000016 MRD = 14, 3 SEND BUFFER TO MAINTENANCE R c 
18 000017 = 15. 3 GET BUFFER FROM MAINTENANCE WRITE COMMAND 
19 000020 vT = 16. 3 CONVERT TO PHYSICAL ADDRESS XFC CODE 
$0 000021 EXIT = 17. 3 TERMINATE DM PROGRAM XFC CODE 
$$ 3 MEDIA TYPES 
$3 ; THIS WORD IS FOUND AS THE FIRST WORD OF XBN 0 (OR ANY OF ITS COPIES) 
26 126736 MODS12 = 126736 : 512 BYTE MODE 
rt 074161 MOD576 = 074161 : 576 BYTE MODE 
4 3 GET STATUS OFFSETS 
31 000000 ST.UNT = 0. 3 UNIT NUMBER 
32 000000 ST.MSK = 0. 3 SUBUNIT MASK 
33 000001 ST.REQ = 1. 3 REQUEST BYTE 
34 000001 ST. = .. 3: MODE BYTE 
35 000002 ST.ERR = $- : ERROR BYTE 
36 000002 ST.C = . : CONTROLLER BYTE 
37 00000 ST.C = ¢° ; C BITS 
38 00000 ST.RTY = . : RETRY COUNT/FAILURE CODE 
39 100000 VALID = 100000 3 USED IN ERROR POSITION TO MARK VALID STATUS 
0 : IN INPUT BUFFER 
$s § STATUS BIT DEFINITIONS 
44 000200 ST.OA = 200 3 ONLINE TO ANOTHER (SET IF DRIVE UNAVAILABLE) 
45 000100 ST.RR = 100 3 READJUSTMENT BIT (SET IF RECALIGRATION REQUIRED) 
46 000040 ST.DR = 40 3 DIAGNOSTIC REQUEST (SET IF DIAGNOST iC REQUESTED) 
47 000020 ST.SR = 20 3 SPINDLE READY (SET IF SPINDL A, ADY) 
000010 ST.EL = 10 3 LOGGABLE INFO IN EXTENDED STA 
49 000002 ST.PS = 2 3 PORT SWITCH (SET IF PORT SWIT th IN) 
000001 ST.RU = 1 3 RUN/STOP SWITCH (SET IF RUN/STOP SWITCH IN) 
51 000200 ST.DE = 200 3 DRIVE ERROR 
5 000100 ST.RE = 100 : RETRIABLE ERROR (SET IF RETRIABLE ERROR OCCURRED) 
5 000040 ST.PE = 40 3 PROTOCOL ERROR (SET IF PROTOCOL ERROR OCCURRED) 
54 000020 ST.DF = #3 : INITIALIZATION FAILURE (SET IF INIT FAILED) 
55 000010 ST.WE = 1 3; WRITE ENABLE (SET IF WRT ATTEMPTED ON PROT DI 
002000 ST.FO = 2000 3 FORMATTING (SET IF FORMATT ED) 
5 001000 ST.0DB = 1 z DIAGNOSTIC CYLS (SET IF DIAG CYL ACCESS ENABLED) 








SEQ 269 
UDATS DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 6-1 
UDA DM PROGRAM PARAMETERS , 


58 000400 ST.S7 = 400 ; SECTOR SIZE (SET FOR 576 BYTE SECTORS) 
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UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 7 
UDA DM PROGRAM PARAMETERS 


GET COMMON CHARACTERISTICS OFFSETS 


NN SWWNN Se | OOO 
. 


SHORT TIMEOUT <3:0> 
SDI VERSION <7:4> 


cc ES <15:8> 

at re + Qe VISION NUMBER <7:0> 
WARE REVISION NUMBER <15:8> 

UNI QUE DRIVE ID <47:0> 

DRIVE TYPE IDENTIFIER <7:0> 

REVS/SECOND <15:8> 


GET SUBUNIT CHARACTERISTICS OFFSETS 
OFFSETS ARE CURRENTLY GIVEN AS FOLLOWING THE COMMON CHARACTERISTICS 


BIT MASK DEFINITIONS 


= 3 DO OCOA UIE BS WWW 
— 


BNNOS 


177760 


NUMBER OF ers i omen <31:0> 
GROUPS PER CYLINDER <7:0> 
STAR 78 


RBNS PER K <6:0> 
REMOVABLE MEDIA <7:7> 1=REMOVEABLE 


; DATA PREAMBLE SIZE _IN WORDS 


<7:0> 
HEAD eg ee IN WORDS <15:8> 


CYLS IN DBN AREA <15: :8> 


HIGH BYTE MASK 
LOW BYTE MASK 


; Hl BYTE, HI NIBBLE MASK 


; LO BYTE, LO NIBBLE MASK 


SEQ 270 


SEQ 271 
UDATS4 DISK te ay Bh PRace X04.01 13-APR=82 15:49:22 PAGE 8 
UDA DM PROGRAM PARAMETERS 


} ;MAINTANENCE READ/WRITE REQUEST NUMBERS 
3 060000 PKT = 060000 ; DUP SPECIAL PACKET NUMBER 
4 TIMSIZ = 0. +DUPPKT : GET FREE MEMORY PARAMETE 
5 060001 T2DLL_ = 1. +DUPPKT + DOWNLINE LOAD DRIVE 
6 06000 T2CMD = g- +DUPPKT : MANUAL INTERVENTION TEST 2 c 
7 06000 T4MPRM =  +DUPPKT ? GET MASTER PARAMETE OM SW QUESTIONS 
8 0004 14 = 4. +DUPPKT : GET UNIT PARAMETERS FROM HW 
9 060005 14881 = 5. +DUPPKT : GET BLOCKS (1 THRU 
10 0006 = 6. +DUPPKT : GET REST OF BAD BLOCKS (15 AND 16) 
11 060007 T4SOFT = 7. *DUPPKT + ADD TO SOFT ERROR AND 
12 060010 T4SEEK = 8. +DUPPKT > ADD 1 TO SEEK T 
13 060011 T4MXFR = 9. +DUPPKT + ADD TO MEGABITS READ AND WRITTEN 
14 12 UTOTST = 10. #DUPPKT + GET UNITS TO T 
15 060013 ERRMES = 11. +DUPPKT > PRINT ERROR MESSAGE 
16 060014 ERRMC = 12. * +DUPPKT : TEST 4 ERROR REPORTING 
17 060015 MESSAG = 13. +DUPPKT > INFORMATION MESSAGE 
18 060016 = 14. +DUPPKT + MARK DM PROGRAM AS NO LONGER RUNNING | 
20 ; STATE BIT DEFINITIIONS 
| 
22 000001 RcvRDY = 1 ; RECIEVER READY 1 = READ | 
23 000002 ATIN = 2 : ATTENTION BIT FOR RET URN DRIVE SIGNALS XFC | 
24 000004 DCLOCK = 4 t CONTROLLER STATE READY == THERE ARE CLOCKS 
25 + COMING FROM THE DRIVE 
26 000100 AVAIL = 100 : AVAILABLE 1 = AVAIL LE | 
27 000400 RCVERR = 400 : RECEIVE ERROR -- PARITY ERROR 
28 100000 RWRDY = 100000 : IF SET, UDA IS ABLE TO READ AND/OR WRITE TO DRIVE 
30 : SDI COMMANDS AND RESPONSES 
32 000204 DISCON = 204 : DISCONNECT DRIVE 
33 ERECOV = 6 : ERROR RECOVERY 
000201 CH = 201 + CHANGE MODE 
35 000213 DRVONL = 213 ? DRIVE ONLINE 
000014 DRVRUN = 14 > DRIVE RUN 
37 5 DRVCLR = 5 : DRIVE CLEAR OPCODE 
000207 GETCHR = 307 > GET CHARACTERISTICS 
39 000210 GETSUB = 210 : GET SUBUNIT CHARACTERISTICS 
40 11 GETSTA = 11 : GET STATUS 
41 000216 IRECLB = 216 + RECALIBRATE 
42 000012 INSEEK = 12 > INITIATE SEEK 
43 000176 COMPLT = 176 > SUCCESSFUL COMPLETION 
4b 000175 UNSSUC = 175 > UNSUCCESSFUL COMPLETI 
45 000170 CHRRES = 170 : GET CHARACTERISTICS RESPONSE 
46 000167 SBCRES = 167 : GET SUBUNIT CHARACTERISTICS RESPONSE 
47 000366 STSRES = 366 t GET STATUS RESPONSE : 
48 000350 ECHOC = 350 t DIAGNOSTIC ECHO COMMAND AND RESPONS? 
50 : SDI LEVEL 2 COMMAND OFFSETS 
52 000000 iz.opc = 0 ; SDI LEVEL 2 OP CODE 
53 000001 L2.SLN = L2.0PC+1 ; SDI LEVEL 2 SEND LENGTH IN BYTES 
54 00000. L2.RLN = L2.SLN¢1 + SDI tEVEL RECEIVE LENGTH IN WORDS 
55 00000 L2.ERS = Lg. *RLNGI : SDI LEVEL 2 EXPECTED RESPONS 
56 000004 L2.E0F = ERS+1 : SDI LEVEL 2 ERROR OFFSET INTO UNIT PARAMETERS 








Se -—-- — ~ 4 





SEQ 272 
vag DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 8-1 
UDA DM PROGRAM PARAMETERS 


38 ; ERROR CODES 

60 000000 FILSYS = ; SYSTEM FATAL ERROR 
61 040000 FTLDEV = 040000 : DEVICE FATAL 

62 100000 ERHARD = 100000 ; HARD ERROR | 
6 140000 ERSOFT = 140000 SOFT ERR 

64 040000 C2HARD = CERHARDE“CERSOF TS! SERSOF Tes CERNARD> : CHANGE SOFT TO HARD ERROR 
65 100000 C2DFTL = <F TLDEV@*CERSOF T>! <ERSOF T@ “CF TLDEV> > CHANGE SOFT TO DEVICE FATAL 





UDATS DISK 
TEST 4 SPEC 


4 
5 
6 
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29 
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: ERCISER Gamat ion X04.01 13-APR-82 15:49:22 PAGE 9 


FIC INFORMA 
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TEST 4 SPECIFIC INFORMATION 
TEST 4 SPECIFIC INFORMATION 


UNIT PARAMETER OFFSETS 
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U. CGRP+ 
U.LCYL+2 


PARAMETER OFFSET 


0. 
$.PARM+1 
S.SEEK+1 


; POINTER TO NEXT re (RING Woe LIST) 
4 WORDS OF S$ IT PARAMET NTERS 
; HI ORDER TIMEOUT FOR SEEK 


LO ORDER TIMEOUT FOR SEEK 
ISSUE SEEK TIMEOUT COUNTER 
READ RIES 


OUT AREA 
NEXT FUNCTION ADDRESS (FOR DEFERRED CALLS) 
PAT NUMBER TO WRITE 


CURRENT COUNT OF 1T/G LOOPS 
POINTER TO se TRACK OR GROUP 
TRACK COUNT FOR GROUP OPERATIONS 
NUMBER OF SECTORS R/W THIS TRY 

CTORS TO BE R/W 


R 
SECTORS TO BE Fan THIS OP 
Sa ead OF ye R/W 
UNIT MASK FOR XFC CALLS (0001 = 1000) 
WRITE PROTECTION STATUS 
CURRENT ERROR RECOVERY LEVEL 
MAXIMUM NUMBER OF READ RETRIES 
MAX IMUM ome OF ERROR RECOVERY LEVELS 


LONG 
; LeveL 2 ERROR 


OR COUNTS 
TO WRITE PROTECT READ-ONLY DRIVES 
P TER one 


UNIT PARAME 
; RECOVERY PARAMETER 


SUBUNIT OFFSET (0 = + 
MASTER L/DBN 


oe L/DBN FOR START OF CHA 
RBN TO BE READ/WRITTEN IF LBN REVECTORED 
ACH SUBUNIT 


ERR HE LAST R 
ERROR THAT oth pa ty BEFOR THe WREVECTOR OPERATION 
STARTING SUBUNIT NUMBER 

CURRENT CYLINDER 

CURRENT GROUP 


N 
LAST CYLINDER SEEKED TO 
LAST GROUP SEEKED TO 


SUBUNIT PARAMETER WORD 
COUNT OF NUMBER OF SEEKS 
STARTING DIAGNOSTIC CYLINDER 


SEQ 273 


SS SS — 





SEQ 274 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 9-1 
TEST 4 SPECIFIC INFORMATION 


58 S.PAT = $.SDCL+2 ; PATTERN TO USE FOR ay 

59 000005 S.LETR = S.PAT+1 : L OR D LETTER TO E L/D 

60 000006 S.TRKL = S.LETR+1 : ER OF SECTORS IN ONE T 

61 000007 S.SCHR = S.TRKL*1 : POINTER TO SUBUN t CHARACTERISTICS 

6 000010 S.MEGR = S.SCHR+1 3 SECTORS READ (UP TO 245) 

6 000011 S.MEGW = S.MEGR+1 3 SECTORS WRITTEN (UP TO 245) 

64 000012 S.BADP = $.MEGW+1 : POINTER TO BAD BLOCK AREA | 

4 000013 S.BESS = S.BADP+1 3 START OF BEGIN/END SETS 

67 : IF TRACK/GROUP LIMITS ARE GIVEN, THE SUBUNIT PARAMETERS HAVE THE 

4 ; FOLLOWING FIELDS ADDED TO THEM 

70 000013 S.MCNT = S.BESS 3 MAXIMUM TRACK/GROUP COUNT 

71 000015 S.1TGOF = e-Teer es 3 ORIGINAL TRACK/GROUP OFFSET 

ie: 000017 S.TGSS = S.TGOF+ 3 START OF TRACK/GROUP SETS 

es : CONSTANTS 

76 000377 SCTWRD = 255. 3 NUMBER OF WORDS IN SECTOR TO FILL 

77 000105 INTEDC = 9. 3 INITIAL EDC_VALUE 

78 72 TLEN.U = U.LGRP+1 : UNIT PARAMETER LENGTH 
007702 FIRSTU = HIMEM-TLEN.U 3 LOCATION OF FIRST UNIT PARAMETER BLOCK 

80 177774 MAXMSK = 177774 3 TO DETERMINE MAXIMUM SECTORS TO READ/WRITE 

81 001750 MAXSND = 1000. 3 MAXIMUM TIMES TO SEND A COMMAND TO AN OFFLINE DRIVE 


SEQ 275 
UDAT4 DISK EXERCISER DMACR XC4.01 13-APR=82 15:49:22 PAGE 10 
TEST 4 SPECIFIC INFORMATION 

1 3 

¢ ; DUMMY SDI CONTROL BLOCK OFFSETS 

4 000001 b.LIMT = 1 : DUMMY SDI SEARCH LIMIT 

3 000002 D.SCHR = 2 : DUMMY POINTER TO SUBUNIT CHAR-5 

, : MASTER PARAMETER BITS (M.PARM) 

9 100000 jWIPRG = 100000 : INITIAL WRITE IN PROGRESS 

10 000002 DIE = 000002 : ERRORS DURING INITIALIZATION 

HI 000001 INTINP = 000001 : INITIAL SETUP IN PROGRESS 

13 ; UNIT PARAMETER BITS (U.PARM(RS)) 

15 100000 DROP = 100000 ; DROP BIT (SET IF UNIT OR SUBUNIT DROPPED) 

16 040000 INITw = 40000 t INITIAL WRITE (SET IF INITIAL WRITE IN PROG) 
17 010000 DIREC = 10000 : DIRECTION (SET IF AL ACCESSES DECREASING) 
18 000 NEWSUB = 4000 : SET IF AL SEEKS MOVED TO NEW SUBUNIT 
19 002000 SEKINP = 2000 : SEEK IN PROGRESS = SET IF TRUE 

20 001000 FTIME = 1000 : FIRST TIME FLAG - SET FOR INIT CODE 

21 000400 REVEC = 400 : REVECTOR BIT (SET IF BLOCK REVECTORED) 

22 000200 = 200 : ulf ON RBN 

23 0001 REDWRT = 100 ; REDWRT (READ OR WRITE IN PROGRESS SET IF WRITE) 
26 : 10 ; RESERVED (SEE SUBUNIT PARAMETER BITS) 

35 ; 2 : RESERVED (SEE SUBUNIT PARAMETER BITS) 
27 : 
8 : ERROR RECOVERY PARAMETERS (U.RCOV) 

30 : 

31 100000 ERMASK = 100000 : IF 1, ERROR RECOVERY IS DISABLED 

32 040000 DRINIT = 40000 : IF 1. INDICATES THAT DRIVE wAS INITIALIZED 
33 020000 LEVUSD = 20000 : IF 1, REISSUE THIS LEVEL OF ERROR RECOVERY 
34 010000 NXTLEV = 10000 : IF 1, ISSUE NEW LEVEL OF ERROR RECOVERY 

35 000 SEKREQ = 4000 : IF 1, SEEK IS REQUIRED FOR ERROR RECOVERY 

36 002000 RCBREQ = 2000 : IF 1, RECALIBRATE IS REQUIRED FOR ERROR RECOVERY 
37 001000 RETRY = 1000 : IF 1. JUST RETRY THE SAME MODULE 

39 : 
40 ; SUBUNIT PARAMETER BITS (S.PARM(R4)) 
42 : 1 : RESERVED (DROP BIT) 

43 40000 : RESERVED (INITIAL WRITE) 

4a 020000 dcYLS = 20000 : DIAGNOSTIC CYLINDER FLAG (SET IF DBNS) 

45 010000 ECCCHK = 10000 : 1 IF ECC CORRECTION ALLOWED MASTER BITS 

46 004000 RONLY = 4000 ; READ ONLY (SET IF READ ONLY) 

47 002000 Y = 2000 : WRITE ONLY (SET IF WRITE ONLY) 

48 001000 RTRIES = 1000 : 1 IF RETRIES AL 

49 000200 ONLYCL = 200 : SET IF ONLY CYLINDERS, SPECIFIED 

50 3 USED DURING SET 

51 000100 100 : AL SEEK START uP TESTING ONLY) 

5 000040 BEUSED = 40 : BEGIN/END SETS (USED IF SET) 

5 000020 TRACKS = 20 : TRACKS OR GROUPS (TRACK IF SET) 

54 000010 WCHECK = 10 > WRITE CHECK BIT (IF SET, WRITE CHECK WILL BE DONE) 
55 ; WCHECK' I$ ALSO USED FOR THE UNIT PARAMETERS 

56 000004 WCHKAL = 4 ; SET IF WRITE CHECK ALWA Ys. TO BE DONE 

57 000002 DATCMP 2 : DATA COMPARE (SET IF DATA COMPARE TO BE DONE) 










SEQ 276 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 10-1 
TEST 4 SPECIFIC INFORMATION 


58 : DATCMP IS ALSO USED FOR THE UNIT PARAMETERS 
59 000001 DCMPAL = 1 : SET IF DATA COMPARE ALWAYS TO BE DONE 


ES a . — -3 





SEQ 277 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 11 
MACRO DEFINITIONS 
1 .SBTTL MACRO DEFINITIONS 
: DIAGNOSTIC MACRO FOR TEST4 OVERLAYS 
5 ’ «MACRO DIAGS$ 
4, TST S$SDIAG+SDIAGS 
? BEQ .+ 
8 MOV #60000,R0 
9 MOV RO, aS$DIAG+SDIAGS 
10 BR .+ 
11 SDIAGS = SDIAGS + 1 
12 .ENDM 


ne a + + 






UDATS DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 12 
MACRO Dif INITIONS 


1 ; OVERLAY INFORMATION MACRO 

g «MACRO see} LABL$, ONAME , SAREA, EAREA 

4 «WORD SAREA=PARTO>/2 

5 LIF NB, EAREA 

6 - WOR <EAREA~SAREA>/2 

? .IFF 

8 «WORD 0 

9 -ENDC 

10 ~WORD 0 

11 «WORD OVL. ‘ONAME' #4 

12 IF NE.  OCNTS-LABL $ 

1? i * ; OVERLAY NUMBER AND POSITION IN TABLE DO NOT MATCH 
15 OCNTS = OCNTS+1 

1¢ ~ENDM 

8 ; MESSAGE CONTROL TABLE MACRO 

20 «MACRO MSG CMDBUF ,CMDSZ,RPLSZ, SUCCOM 

21 WORD CMDBUF 3 ADDRESS OF COMMAND 

22 WORD CMDSZ : SIZE OF COMMAND IN BYTES 





WORD RPLSZ 3 SIZE OF REPLY IN WORDS 
. SUCCOM ; SUCCES 

«WORD SDI$+U.SDI2 : RETRY COUNT OFFSET 

= SD1I$+1 


SEQ 278 








UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 13 


MACRO DEFINITIONS 


-MACRO BCS 


I 6 


LAB.. 


SEQ 279 





EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 14 
ITIONS 
: PUSH REGISTER MACRO 


«MACRO PUSH R9 
«IRP X,<R9> 


-ENDR 
- ENDM 


; POP REGISTER MACRO 


«MACRO POP R9 
-IRP X,<R9> 


MOV X,-(SP) 


MOV (SP)+,Xx 


SEQ 280 


SEQ 281 
UDATS DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 15 
MACRO DEFINITIONS 


1 ; 
2 ; PRIMARY ERROR REPORTING (TEST 4) 
4 , .MACRO SOFTER NUM,ARGS 
5 ERROR ERSOFT,NUM, <ARGS> 
6 MOV WERRMES ,HRO.RO 
i .ENDM 
2 -MACRO REPSET SFTFLG,.ECCFG, SEKFLG, COMFLG 
11 TIF IDN, SFTFLG, SOFT 
le a MOV #1,HRO.02 
14 [ERROR ; NON SOFT ERROR FLAG IN SOFT ERROR POSITION 
15 “ENDC 
17 ; CLR HRO.02 
18 ENDC 
19 TIF NB.ECCFG 
20 “IF IDN, ECCFG,ECC 
31 = MOV #1,HRO.03 
23 “ERROR ; NON ECC ERROR FLAG IN ECC ERROR POSITION 
24 *ENDC 
25 TIFF 
26 CLR HRO.03 
27 .ENDC 
28 cIF NB, SEKFLG 
29 4 IDN, SEKFLG, SEEK 
30 as MOV #1,HRO.04 
3 -ERROR ; NON SEEK ERROR FLAG IN SEEK ERROR POSITION 
34, “FF 
35 CLR HRO.04 
36 .ENDC 
37 : c1F NB, COMFLG 
38 : “IF DN, COMFLG, COMM 
39 ; a MOV #1,HRO.05 
41 ; -ERROR 3 NON COMMUMICATION ERROR FLAG IN COMMUNICATION ERROR POSITION 
4 F *1FF 
44 ; CLR HRO.05S 
45 : .ENDC 
46 PUSH RO 
47 MOV U.UNUM(RS) .RO 
48 ADD U. SUBU(R5) -RO 
49 MOV RO.HRQ. 
50 MOV #T&SOF TRO 
31 CALL - HOSTRO 
s en 
55 .MACRO HARDER NUM, ARGS 
56 ERROR ERHARD,NUM, <ARGS> 
5 MOV #ERRMC ,HRO.RO 





SEQ 282 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 15-1 
MACRO DEFINITIONS 
8 -ENDM 
60 «MACRO DEVFTL NUM,ARGS 
61 ERROR FTLDEV,NUM,<ARGS> 
MOV #ERRMC ,HRO.RO 
$; -ENDM 
65 -MACRO SYSFTL NUM,ARGS 
66 ERROR FTLSYS,NUM,<ARGS> 
67 MOV = #ERRMC ,HRO.RO 
70 «MACRO ERROR TYPE,NUM,ARGS 
71 eRADIX 10 
72 NUMPTR = 5 
73 MOVMSG #ER'NUM,4 
74 IF NB, <ARGS> 
75 - IRP X, <ARGS> 
76 MOVMSG X,\NUMPTR 
77 NUMPTR = NUMPTR + 1 | 
78 eENDR 
-ENDC | 
80 MOV = #NUM! TYPE+4000. ,R2 
81 MOV R2,HRQ.02 | 
82 MOV #.,HRO.01 
83 »RADIX 
ae - ENDM | 
86 MACRO CERROR STNUM,ARGS 
87 eRADIX 10 
88 NUMPTR = STNUM 
89 - IRP X, <ARGS> 
90 MOVMSG X,\NUMPTR 
91 NUMPTR = NUMPTR + 1 
92 -ENDR 
93 eRADIX 
-EN 
95 
-MACRO ERRORC ARGS 
RADIX 10 | 


- IRP X, <ARGS> 
MOVMSG X,\NUMPTR 


RUNUSSRLEARELLESSLRSL 


1 NUMPTR = NUMPTR + 1 | 
1 ~ENDR | 
1 RADIX 

: s NDM | 
: -MACRO MOVMSG ARG, INDX 

1 IF LT, INDX-10 

; oe MOV ARG, HRQ.0° INDX 

1 ' MOV ARG, HROQ. * INDX 

1 -ENDC 

1 

1 

1 


«MACRO ENDERR POS 
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SER DMACR X04.01 13-APR=82 15:49:22 PAGE 15-2 


1 
NB POS 


\NUMPTR 


NDERR POS 
NE ,POS 
#SER22 ,POS 
MOV 


#POS+1,ERRPOS ; SET THE POSITION 


LT,26.-POS 
s STATUS AT END OF ERROR MESSAGE WILL OVERFLOW HOST COMMUNICATION BUFFER 


CLR 


REPORTING MACRO 
aa NUM, ARGS 


= NUMPTR + 1 


ERRPOS : CLEAR THE POSITION 


RO 

U.UNUM(RS) ,HRQ.01 
U. SUBU(RS) ,HROQ.01 
#MESSAG RO 


HOSTRQ 
RO 


| 
| 
| 


} 
| 
| 
j 
| 





fries ISER DMACR X04.01 13-APR-82 15:49:22 PAGE 16 


sASSUME MACRO 
«MACRO op ye 


eERROR ; THE ASSUMPTION THAT THE ABOVE VALUES ARE = IS FALSE 


; XOR THE CONTENTS OF TWO REGISTERS 


~MACRO RXOR REG1 ,REG2 

MOV REG2,=(SP) 3 SAVE REGISTER REG2 

BIC REG! «REG? CLEAR COORES Ate BITS IN REG2 
BIC (SP)+, "gees. : CLEAR COORESPONDING B1TS IN REG1 


CONVERT .BLKW CALLS TO ACTUAL WORDS GENERATED 
-MACRO .BLKW COUNT 
“REPT COUNT 
“WwORD O 
“ENDR 
“LIST 

DM 


SEQ 284 





SEQ a 


UDATS DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 17 
START OF TEST CODE 


~SBTTL START OF TEST CODE 
sTHE FOLLOWING IS FOR DEBUG PURPOSES ONLY. CAN BE NOP OR BREAKPOINT. 


sCHANGE T9 BREAKPOINT FOR DEBUG 


~N 
— 
&- 


s INITIALIZE STACK 


: SET UP STACK POINTER 


104206 000745 
004530 : BRANCH OVER SUPPORT CODE 


SWN— O OONOUS wh 


— — —) _d 


-BLKW s STACK 
STACK: .WORD MARKER FOR STACK UNDERFLOW 












nee DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 18 
RTDS = REAL TIME DRIVE STATE ROUTINE WITH ERROR REPORTING (T 


-SBTTL RTDS 
RTDS: CALL 


TIME DRIVE 


- atber TIME DRIVE Jor “rad WITH we star | phansintes (TEST 4) 
RD 


: GET 
000747 115002 ST : SEE IF ERROR OCCURRE 
4 000750 010774 BEQ 1$ + IF NOT, BRANCH 
5 000751 070756 BMI 2$ : IF RECEIVE ERROR, BRANCH 
6 00075 CERROR 4,MER17 ; REPORT NO CLOCKS ERROR MESSAGE 
000752 104200 001607 001107 MOV #ER17,HRO.04 
7 000755 000761 38 : BRANCH 
8 000756 2s: CERROR 4,MERI7A 3; REPORT RECEIVE ERRORS ERROR MESSAGE 
000756 104200 001637 001107 MOV #ER17A,HRO.04 
9 000761 104200 044021 001105 3S: MOV 417. 1ETLDEV+4000,HRO.02 2 ERROR NUMBER SET 
10 000764 104 000764 001104 MOV #.,HRQ. DRESS OF ERROR SET 
11 000767 104200 060014 001103 MOV #ERRMC,HRO.RO OM REQUEST SET 
12 000772 ENDERR 0 
000772 114000 002230 CLR ERRPOS 
13 000774 000000 1$: RETURN 
15 -SBTTL RTDSL ‘a a AS RTDS BUT WITHOUT ERROR REPORTING 
16 000775 104652 000025 RTDSL: MOV U.MASK(RS),R2 ; MOVE MASK TO R2 
17 000777 021007 CALL = RDSTAT GET DRIVE STATUS 
18 001000 103201 077674 BIC #*CCRCVRDY!ATTN!AVAIL !RURDY>, R1 ; CLEAR UNUSED BITS 
19 001002 115002 TST R2 3; TEST ST ATUS FOR ERR 
20 001003 011006 BEG 2$ ¢ TF NO ERROR, BRANCH” 
21 001004 104201 177777 MOV #=1,R1 + FLAG AS INVALID 
22 001006 000000 2s: RETURN 
26 .SBTTL RDSTAT = GET DRIVES REAL TIME DRIVE STATE 
$2 001007 RDSTAT: 
eo? ZRETURN DRIVE STATUS 
$s sSTATUS RETURNED IN DM REGISTER 1 
30 001007 PUSH —RO : SAVE RO 
001007 100467 MOV RO,-(SP) 
31 001010 104207 024000 MOV #24000, RO : MOVE 1/2 SECOND COUNT TO RO 
32 001012 060007 1$: XFC : GET REAL TIME DRIVE STATE 
33 001013 102201 000004 BIT SpcLocK, R1 > SEE IF DRIVE CLOCK IS PRESENT 
34 001015 011027 BEQ : IF NOT, BRAN 
35 001016 102201 000400 BIT WRCVERR,R1 : SEE IF “RECEIVE ERROR 
36 001020 011026 BEQ 2$ : IF 
37 001021 117407 DEC RO : DECREMENT COUNT 
38 001022 051012 BNE 1$ : IF COUNT INCOMPLETE, BRANCH 
39 001023 104202 177777 MOV #177777,R2 : MARK AS RECEIVE ERROR 
40 001025 001027 BR 3$ : BRANCH OVER "NO ERRORS* 
41 001026 114002 28: CLR R2 : NO ERRORS 
42 001027 3$: POP RO t RESTORE RO 
001027 104267 MOV (SP)+,RO 
43 001030 RETURN : RETURN TO CALLING MODULE 





3 CLEAR THE POSITION 


SEQ 286 
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SEQ 287 


UDATS DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 19 
HSTTLK = TALK TO THE HOST (INTERRUPT THE HOST BEFORE 3 MIN) 


rest HSTTLK = TALK TO THE HOST (INTERRUPT THE HOST BEFORE 3 MIN) 


THIS ROUTINE INTERRUPTS THE HOST WITHOUT CONVEYING ANY USEFUL 
INFORMATION = ALL IT DOES IS SAY "I'M STILL ALIVE’ 


REPSFT .., 
CLR HRQ.02 


MOV RO,-(SP) 


MOV 0,HRQ. 
MOV = #T4SOF TRO | 
CALL HOST 


MOV (SP)+,RO 
RETURN 
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SER PESSICSSeeses 
BRS SLSSSSSussess 
=m SVSVSSalSVsz2Z3 


177777 +=001103 


SEND R 
: CLEAR 


UDATS DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 20 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


pe HA HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. 


EQUEST BUFFER TO HOST AND WAIT FOR RESPONSE. 
AREA OF OUT BUFFER IN PREPARATION 


[FOR NEXT HOSTRO CALL. 


3 INPUTS 


MO 
SNDAGN: 
MO 


"RO = HOST REQUEST NUMBER 
OUT BUFFER LOADED WITH DATA 


<RO,R1,R2> 


RO,HRQ.RQ 
#HRQ.RQ,RO 
#BUFSIZ,R1 
MRD 


R1 

SNDAGN 
#HRQ.RQ,RO 
#BUFS1Z,R1 
MWR 


#-1,HRQ.RQ 
<R2,R1,RO0> 





MO P 
STORE REQUEST NUMBER IN BUFFER 
SEND BUFFER TO HOST 
SIZE OF SEND BUFFER 
END BUFFER 


MAKE REQUEST ILLEGAL 





SEQ 289 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 21 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


1 STORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 

$ ;HRO BUFFER = DATA TO SEND/RECEIVE TO/FROM HOST 

5 001103 000000 HRO.RQ: .WORD 0 HOST REQUEST CODE 

6 001104 000000 HRQ.01: .WORD 0 [DATA ARGUMENT 1 

7 001105 000000 HRO.02: WORD 0 DATA ARGUMENT 2 | 
8 001106 000000 HRQ.03: .WORD 0 DATA ARGUMENT | 
9 001107 000000 HRQ.04: .WORD 0 DATA ARGUMENT 4 

10 001110 000000 HRQ.0S: .WORD 0 [DATA ARGUMENT 5 

11 001111 000000 -06: WORD 0 [DATA ARGUMENT 6 | 
12 901112 000000 HRQ.07: .WORD 0 [DATA ARGUMENT 7 | 
13 001113 000000 HRQ.08: .WORD 0 [DATA ARGUMENT 8 | 
14 001114 000000 HRQ.09: .WORD 0 DATA ARGUMENT 9 | 
15 001115 000000 HROQ.10: .WORD 0 DATA ARGUMENT 10 | 
16 001116 000000 HRQ.11: .WORD 0 [DATA ARGUMENT 11 | 
17 001117 000000 HRQ.12: WORD 0 DATA ARGUMENT 12 | 
18 001120 000000 HRQ.13: .WORD 0 DATA ARGUMENT 13 | 
19 001121 000000 HRO.14: .WORD 0 DATA ARGUMENT 14 | 
20 001122 000000 HROQ.15: .WORD 0 DATA ARGUMENT 15 | 
21 001123 000000 HRQ.16: .WORD 0 DATA ARGUMENT 16 | 
22 001124 000000 HRQ.17: .WORD 0 DATA ARGUMENT 17 | 
23 001125 000000 HRO.18: .WORD 0 DATA ARGUMENT 18 | 
24 001126 000000 HRQ.19: .WORD 0 DATA ARGUMENT 19 | 
25 001127 000000 HRQ.20: .WORD 0 DATA ARGUMENT 20 | 
26 001130 000000 HRQ.21: .WORD 0 DATA ARGUMENT 21 | 
27 001131 000000 HRQ.22: .WORD 0 DATA ARGUMENT 2 | 
28 001132 000000 HRQ.23: .WORD 0 DATA ARGUMENT 2 | 
29 001133 000000 HRQ.24: .WORD 0 DATA ARGUMENT 24 | 
30 001134 000000 HRO.25: .WORD 0 DATA ARGUMENT 25 | 
31 001135 000000 HRO.26: .WORD 0 DATA ARGUMENT 26 | 
32 001136 000000 HRQ.27: .WORD 0 DATA ARGUMENT 27 

33 001137 000000 HRO.28: .WORD 0 DATA ARGUMENT 28 

34 001140 000000 HRQ.29: .WORD 0 DATA ARGUMENT 

35 001141 000000 HRQ.30: .WORD 0 DATA ARGUMENT 

36 001142 000000 HRQ.31: .WORD 0 DATA ARGUMENT 31 

37 001143 000000 HRQ.32: WORD 0 DATA ARGUMENT 32 

38 001144 000000 HRQ.33: .WORD 0 DATA ARGUMENT 33 

$9 001145 000000 HRO.34: .WORD 0 DATA ARGUMENT 

41 000043 BUFSIZ = . = HRO.RO SIZE OF BUFFER 







DC = EDC CALCULATION ROUTINE 


1 -SBTTL 
. 001146 CMPEDC: 
4 é 
5 ; 
6 3 
7 001146 
001146 100464 
001147 100461 
001150 100467 
8 001151 104201 000400 
9 001153 104202 000105 
10 001155 104274 EDCLOP: 
11 001156 
001156 oon bs 
001157 10304 
001160 103264 
001161 10104 
12 pote 10502 
13 001163 04116 
14 001164 115402 
15 001165 117401 ZEREDC: 
16 001166 051155 
17 001167 
001167 104267 
001170 104261 
001171 104264 
18 001172 000000 


poe DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 22 


CMPEDC = EDC CALCULATION ROUTINE 


THIS WILL ce THE EDC OF A SECTOR POINTED TO BY RO, RETURNING 


THE VALUE IN R 
PUSH <R4,R1,RO> : SAVE R1 AND RO AND R4 


MOV #256. ,R1 ; COMPUTE OVER 256 WORDS 


R2 


MOV R4,-(SP) 
MOV R1,-(SP) 
MOV RO,-(SP) 


MOV #INTEDC ; MOVE INITIAL EDC VALUE.TO R2 

MOV (RO)+,R4 : GET A WORD 

RXOR  R4,R2 : EXCLUSIVE OR THE WORD WITH THE CURRENT EDC VALUE 

MOV R2,=(SP) : SAVE REGISTER R 

BIC R4,R2 : CLEAR COORESPONDING BITS IN R2 

BIC (SP)+,R4 : CLEAR COORESPONDING BITS IN R4 

BIS R4,R2 : OR WHAT'S LEFT 

ADD R2,R + SHIFT R2 LEFT BY 1 

BCC ZEREDC : If THE HIGH BIT WAS CLEAR, BRANCH 

INC R2 : LO BIT TO 1 (OLD HI BIT) 

DEC R1 + DECREMENT COUNT 

BNE EDCLOP : IF COUNT UNEXPIRED, BRANCH 
<RO,R1,R4> + RESTORE R1 AND RO AND R4& 


RETURN 





MOV (SP)+,RO 
MOV (SP)+¢,R1 
MOV (SP)+,R4 


SEQ 290 
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TALK 


= SDI LEVEL 2 INTERCHANGE ROUTINE 


1 .SBTTL TALK = SDI LEVEL 2 INTERCHANGE ROUTINE 
¢ 001173 TALK: 
4 : TALK SENDS THE COMMAND TO THE DRIVE. IF AN ERROR OCCURRS, R2 IS 
2 : RETURNED NONZERO 
? 001173 PUSH  <R4,R5> : SAVE POINTER TO UNIT AND SUBUNIT PARAMETERS 
001173 100464 MOV R4,<(SP) 
001174 100465 HOV RS.=(SP) 
8 001175 104652 000025 MOV U.MASK(RS),R2  ; GET UNIT SDI SELECT MASK 
9 001177 10408 000001 MOV #1, : SEND TIMEOUT DEFAULT IS ONE 
10 001201 106203 001616 CMP #SNDONE , R3 : SEE IF ONLY TO BE SENT ONCE 
11 001203 071206 BMI : IF $0, BRANCH 
1 001204 104205 001750 MOV #MAXSND RS > SEND MAXIMUM NUMBER OF TIMES (ONLINE) 
13 001206 104137 1$: MOV (R3) RO, : POINTS TO SDI COMMAND BUFFER 
14 001207 ASSUME net 
15 001207 104631 000001 MOV L “SUNS, Rl =; LOAD BYTE COUNT 
16 001211 060004 XFC : SEND SDI COMMAND 
17 d01212 115001 TST + ed : SEE IF SDI COMMAND SENT SUCESSFULLY 
18 001213 011237 BEQ 2$ : IF ANCH 
19 001214 117405 DEC RS : DECAEAENT TIMEOUT ~ 
20 001215 BNE 1$ : IF UNEXPIRED, BRANCH 
21 001216 POP R5 : RESTORE RS 
001216 104265 MOV (SP)+,R5S 
22 001217 PUSH = R3 : SAVE SDI PACKET POINTER 
001217 63 MOV R3,-(SP) 
23 001220 024243 CALL GOINIT : INIT THE DRIVE 
24 001221 SOFTER 7 + REPORT 
001221 104 004264 001107 MOV #ER70,HRO.04 
001224 104202 147746 MOV #70! ERSOFT+4000. ,R2 
001226 1040620 001105 MOV R2,HRO.02 
001230 104 001230 001104 MOV #..HRQ.01 
001233 104 060013 001103 MOV #ERRMES ,HRO.RO 
25 001236 001440 BR 11$ : BRANCH 
26 001237 2s: POP RS + RESTORE RS 
001237 104265 MOV (SP)+,R5S 
27 001240 104654 000033 MOV U.SDIS(RS).R4 =; R4& HAS SHORT TIMEOUT 
28 001242 106 05 001654 CMP #LONG,R3 : SEE IF LONG TIMEOUT TO BE USED 
$5 001245 654 000034 MOV U.SDIL(RS).R4 +: R4 HAS LONG TIMEOUT 
31 001247 4$: PUSH = R33 : SAVE POINTER 
001247 100463 MOV R3,-(SP) 
901250 02074 CALL  RTDS 3 GET REAL TIME DRIVE STATUS 
001251 11500 TST R : OK? 
00125¢ O11 5 BEQ : IF SO, BRANCH 
35 001253 024221 CALL GORTRY : ELSE, RETRY 
36 001254 00161 7$ : AND BRANCH DUE TO ERROR 
HA 001255 11 S$: ROR R1 : IS RCVRDY SET? 
001256 ASSUME RCVREY,1 
39 001 56 041275 3 IF NOT, BRANCH 
40 00125 SOFTER 77 
001257 104 004526 001107 MOV #eRT7 HRO.04 
001 104 1477 MOV #77 ‘ERSOF T4000. .R2 
001 104 1105 MOV R2,HRQ. 
001 104 1 66 001104 MOV #..HRQ. 
001271 104 00 13 001103 MOV #ERRMES ,HRO.RO 
41 001274 00144 BR 118 : END ERROR 


SEQ 291 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 23-1 
TALK = SDI LEVEL 2 INTERCHANGE ROUTINE 


*$ 001275 
43 001277 
44 001301 
45 001303 
rs 001304 
47 001305 
48 001306 
49 001310 
50 001311 
51 00131 
00131 
26 00131 
53 001314 
54 001315 
001315 
55 001316 
56 001317 
001317 
001322 
pot ase 
1331 
57 001334 
58 001335 
59 001337 
60 001 


par Sur Pery 
UNNUWOO 


o, 
WAN WANA 


seo 
BERETS 3 3s 


SSSSSSSSSSSSSSSSSSSSSSSSSSsSsssssssss 


Bk a a kt a st ts st st st we 
S556 
— 


N2SS BIES, 
seat 


WW 


ot at at at ot at at pt ot 


104207 


s8535 
: 


Sss88 33 
Sssxss $s 


aS 


FESS 
o' 


ss 
= — 
ror 
a 


we eh ed 


SEER 


000008 
00000 
00002 


000001 


_ 
aS 
“Ww 


ss 
——~ 
skSoas 


Ssxs 
aa tee 
BS Sate 


1 


001107 
001104 
001103 
001107 


001104 
001103 


6$: 


7$: 


108: 


BR 
CMP 


BNE 
SOF TER 


BNE 
SOFTER 


GOINIT 
71 


11$ 
#2,R1 
8$ 


72 


11$ 
#4,R1 


POINT TO RECEIVE BUFFER 

NUMBER OF WORDS IN RESPONSE 

STORE MASK IN 

RECEIVE SDI RESPONSE 

SEE IF SDI RESPONSE RECEIVED SUCESSFULLY 


IF SO, BR 
: SEE IF TIMEOUT 
; IF NOT, BRANCH 
: SAY ‘I'm ALIVE’ TO THE HOST 
: RESTORE R3 


MOV (SP)+,R3 


3 DECREMENT TIMEOUT VALUE 


IF TIMEOUT UNEXPIRED, BRANCH 
SAVE R3 
MOV R3,-(SP) 
INIT THE DRIVE 
FLAG AS ERROR 


#ER71 ,HRO.04 
MOV #71! ERSOFT+4000. ,R2 
MOV R2,HROQ.02 


#., ° 1 
MOV #ERRMES , HRQ.RQ 
BRANCH 
SEE IF FIRST WORD NOT START FRAME 
IF NOT, BRANCH 
REPORT FIRST = NOT START FRAME 


R72, HRQ.04 
MOV #72! ERSOF T+4000. ,R2 
MOV R2,HRQ.02 


#., e 1 
MOV #ERRMES ,HRQ.RQ 


BRANCH 
; SEE IF FRAMING ERROR 
IF NOT H 


NOT, BRANC 
REPORT FRAMING ERROR 
MOV #ER73 .HRQ. 04 
MOV #73 ERSOFT+4000. .R2 
MOV R2.HRO.02 
#ERRMES ,HRO.RO 
BRANCH 
SEE IF CHECKSUM ERROR 
IF WOT, BRANCH 
REPORT CHECKSUM ERROR 
MOV ERTS HRO.04 
MOV #74 ‘ERSOFT+4000. .R2 
nov tee : 
MOV #ERRMES ,HRO.RO 
BRANCH 
SEE IF BUFFER TOO SMALL 
If NOT, BRANCH 
REPORT BUFFER TO SMALL 
MOV ERTS HRO.04 
mov #751 ERSOF T+4000. .R2 


MO 6 e 
MOV #. ,HRQ. 


SEQ 293 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-B2 15:49:22 PAGE 23-2 | 
TALK = SDI LEVEL 2 INTERCHANGE ROU 
001435 104200 060013 001103 HERMES, HRO.RO 
73 001440 11$:  ENDERR 6 : FLAG END OF REPORTING BUF F 
001449 104200 000051 001111 OSERDS, HRO.06 
001443 104 90 000007 002230 mov #6+1, ERRPOS : SET THE POSITION 
74 001446 001537 BR 14$ 3 EXIT 
75 001447 12$: HARDER 78 : UNKNOWN ERROR RETURNED BY YA. 
001447 104209 004562 001107 HERTS 
001452 104202 10775 MOV ‘ 78 EhwaRi+4000..R2 
001454 104020 00110 MOV 
001456 104200 001456 001104 MOV ry me. oe | 
001461 104 060014 001103 MOV #ERRMC , HRO.RO 
76 001464 CERROR 6,R1 : REPORT ERROR 
001464 104010 001111 MOV 1 .HRO.06 | 
77 001466 ENDERR 7 : FLAG END OF REPORTING BU 
001466 104200 000051 001112 BSERDS, HRO.07 
001471 104200 000010 002230 mov #741, ERRPOS : SET THE POSITION | 
78 001474 001537 BR 14$ 3 EXIT 
79 001475 114002 13$: CLR Re > FLAG AS NO ERROR OCCURED 
80 001476 106637 000003 CMP L2.ERS(R3).RO ; SEE IF COMMAND ACCEPTED 
81 001500 011557 Q 16$ : IF SO, BRANCH 
82 001501 SOFTER ; REPORT | 
001501 104 001107 MOV #ER76, HRO.04 
001504 104202 147754 MOV F761 ERSOFT +4000. .R2 
001506 104020 001105 MOV R2.HRQ.O2 
001510 104200 001510 001104 MOV 1 | 
001513 104200 060013 001103 MOV ScRAMES. HRO.RO 
83 001516 CERROR 6,<L2.ERS(R3),RO,#SER22> ; REPORT FURTHER ERROR 
001516 104630 000003 001111 MOV L2. ERS(A3) .HRO. 06 
001521 104070 001112 MOV Q. 
001523 104200 000051 001113 MOV osEnee UR. 08 
84 001526 104 100011 002230 MOV #<VALID¢11>,ERRPOS ; FLAG AS STATUS GOOD | 
85 001531 106207 000175 CMP #UNSSUC RO 3 SEE IF UNSUCCESSFUL RESPONSE 
86 001533 011537 BEQ 14 : IF S 
87 001534 103200 100000 002230 BIC #VALID,ERRPOS : GET s Status FOR PRINTING 
88 001537 024221 14$: CALL ——‘GORTRY : RETRY THIS COMMAND (MINIMUM) 
89 001540 POP : RESTORE POINTER TO COMMAND 
001540 104263 MOV (SP)+,R3 
90 001541 633 000004 L2.£0 -EOF(R3),R3 : GET SDI ERROR OFFSET 
91 001543 105053 ADD : POINT TO ERROR WORD 
32 001544 104134 MOV it 3 GET E RROR’ COUNT 
93 001545 115404 INC 4 > INCREMENT COUNT 
94 001546 106204 000002 c #2,R4 : SEE IF MAX 
95 001550 041555 BCC 3 IF NOT, BRANCH 
96 001551 103200 100000 001105 BIC #C2DFTL,HRQ.02 ; CHANGE ERROR TO A DEVICE FATAL 
97 001554 114004 CLR ; IN CASE DROPS DISABLED, CLEAR ERROR COUNT 
98 001555 100134 15$: MOV R4, (R3) > SAVE COUNT 
99 001556 001610 BR 178 3 EXIT 
100 00155 16$: POP R3 + RESTORE POINTER TO COMMAND 
001557 104265 MOV (SP)+,R3 
101 001560 1046 3 000004 MOV L2.£0 -EOF(R3).R3  ; GET SDI ERROR OFFSET 
108 001562 10505 ADD : POINT TO ERROR WOR 
103 001563 104134 MOV Rash R4 : GET ERROR COUNT 
104 001564 011610 BEQ : IF NO RETRIES, BRANCH 
105 001565 100132 MOV : ZERO RETRIES 
106 001566 REPSFT Soff > COM ; REPORT SOFT AND COMMUNICATION ERRORS 
001566 104200 900001 001105 MOV #1, HRO.0 
001571 114 1106 CLR HRQ.03 








DMACR X04.01 ne 15:49:22 PAGE 23-3 
INTERCHANGE ROUTINE 


3 RESTORE R4 


ee ae + 


MOV (SP)+,RO 
- MOV (SP)+,R4 


SEQ 294 


SEQ 295 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 24 
SDI PROTOCOL MESSAGE TABLES AND RESPONSE BUFFER 





} «SBTTL SDI PROTOCOL MESSAGE TABLES AND RESPONSE BUFFER 
? 3 MESSAGE TABLES 
5 000000 $p1$ = 0 : INITIAL OFFSET 
6 001612 CR.ONL: MSG ONL,2,7,COMPLT ; BRING DR IVE ONL INE 
001612 001700 «WORD ONL ; ADDRESS OF ¢ 
001613 000002 <WORD 2 : $17 OF COMMAND IN BYTES 
001614 000007 <WORD 7 : SIZE OF REPLY IN WORD 
001615 000176 ;WORD COMPLT 3 SUCCESSFUL COMPLETION CODE | 
001616 000035 -WORD —SDIS#U.SDI2 : RETRY COUNT OFFSE | 
? 001616 SNDONE -1 PREVIOUS COMMANDS CAN BE SENT TO AN OFFLINE DRIVé 
8 001617 CR.GST: MSG GST.1,7,STSRES ; GET STATUS 
001617 001670 «WORD ‘GST : ADDRESS OF COMMAND 
001 000001 “WORD : SIZE OF C IN BYTES | 
001621 000007 “WORD : SIZE OF REPLY IN WORDS 
001622 000366 -WORD  STSRES + SUCCESSFUL COMPLETION CODE 
001623 000036 “WORD  SDI$+U.SD12 : RETRY COUNT OFFSET 
9 001624 CR.CLR: MSG DRC, 2. 7c OMPLT : DRIVE CLEAR | 
001624 001666 WORD ; ADDRESS OF COMMAND 
1625 2 WORD + SIZE OF COMMAND | IN BYTES | 
001626 ? “WORD : SIZE OF REPLY IN WORDS 
1627 000176 -WORD COMP 3 SUCCESSFUL COMPLETION CODE 
001630 000037 ; WORD SOrseU. $D12 7 RETRY COUNT OFFSET 
10 001631 CR.MOD: MSG MOD,3,7,COMPLT : CHANGE MODE 
001631 001664 «WORD ‘MOD : ADDRESS OF C 
001632 3 : 3 3 SIZE OF C IN BYTES 
00163 ? ; ? : SIZE OF REPLY IN WORDS 
1634 000176 ;WORD  COMPLT 3 SUCCESSFUL COMPLETION CODE 
001635 00004 , WORD SD1$+U. S$D12 RETRY COUNT OFFSET 
11 001636 CR.SEK: MSG INS, 6.7 »COMPLT : INITIAFE SEEK 
001636 001672 Myon : ADDRESS OF COMMAND 
001637 WORD - : SIZE OF COMMAND IN BYTES | 
001640 00000 ;WORD 7 > SIZE OF REPLY IN WORDS 
001641 000176 WORD COMPL T ; ¢ SUCCESSFUL COMPLETION CODE 
001648 00004 -WORD $DI$+U.SD12 R T OFFSET 
12 00164 CR.ERR: MSG ERR,2, 7oC COMPLT : ERROR RECOVERY 
001643 001676 «WORD ‘ERR : ADDR ESS OF COMMAND 
1644 000002 WORD : SIZE OF COMMAND IN BYTES 
001645 000007 WORD : SIZE OF REPLY IN WORDS 
001646 000176 -WORD COMPLT ; SUCCESSFUL COMPLETION CODE 
001647 000042 -WORD  $D1I$+U.SD12 RETRY COUNT OFFSET 
13 001650 CR.DIS: MSG DIS,2,7,COMPLT : DISCONNECT DRIVE 
001650 001 .WORD ‘DIS’ : ADDRESS OF C 
001651 00000. : SIZE OF COMMAND IN BYTES 
001652 00000 ; : SIZE OF REPLY IN 
001653 00017 ;WORD COMP > SUCCESSFUL COMPLETION CODE | 
001654 00004 WORD SOrseU. sv12 RET T OFFSE 
14 001654 LONG = -1 ALL C S BEYOND THIS POINT ARE LONG TIMEOUT 
15 001655 CR.INR: MSG INR,1.7,COMPLT : INITIATE ORECAL BRA TE | 
001655 001671 .WORD ‘INR’ ; ESS | 
001656 000001 “WORD 1 : SI COMMAND IN BYTES 
00165 7 “WORD 7 : SIZE OF REPLY IN WORDS | 
001660 000176 -WORD  COMPLT 3 SUCCESSFUL COMPLETION CODE 
001661 4 -WORD $DI$+U.SDI2 + RETRY COUNT 
16 000010 NUML2S = SDI$ ; SAVE NUMBER OF LEVEL 2 SDI COMMANDS | 
j 
_| 
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I PROTOCOL MESSAGE TABLES AND RESPONSE BUFFE 


18 

19 

20 po 1666 
$3 00166 
¢ 001664 

23 001665 

24 001666 

25 001667 

26 001670 

27 001671 
28 00167 

29 00167 
30 001674 
31 001675 
3 001676 
33 00 

34 001700 

35 00 

36 

37 

38 00 








; LEVEL 2 COMMAND MESSAGE DATA STRUCTURES 
DIS: .BYTE 0,DISCON : DISCONNECT DRIVE 
“WORD 0 + DO NOT SPIN DOWN DRIVE 
D: .BYTE 0.CHGMOD : CHANGE MODE 
WRITBT: . 0 : MODE 
RC:  .BYTE 0,DRVCLR : DRIVE CLEAR 
DCLR: o 0 
GST: .BYTE 0,GETSTA : GET STATUS 
INR:  .BYTE 0.JIRECLB : INITIATE RECAL IBRATE 
INS: BYTE 0.INSEEK : INITIAT 
LOCYL: .WORD 0 : INS CYLINDER/ HEAD ARGUMENTS 
“WORD 0 : HI CYLINDER 
“WORD 0 : GROUP 
-BYTE 0.ERECOV + ERROR RECOVERY 
“BYTE 0,DRVONL : ONLINE COMMAND 
;WORD 10, : TIMEOUT VALUE 
-BLKw 19. : RESPONSE BUFFER 


1 











UDATS DISK EXERCISER DMACR X04.01 13-APR-82 13 - e. PAGE 25 
BLKCHK = SEE IF A BLOCK WITH ERROR IS KNOWN T 





1 -SBTTL BLKCHK = SEE IF A BLOCK WITH ERROR IS KNOWN TO BE BAD 
¢ 001725 BLKCHK: 
& : BLKCHK CHECKS THE BLOCK IN U.LBN TO ASSURE THAT IT IS NOT A BAD 
2 : BLOCK. IF SO, R2 IS RETURNED NONZERO 
7 001725 PUSH <R2,R1,RO> 3 SAVE ALL REG’S 
001725 100462 MOV R2,=-(SP) 
001726 100461 MOV R1,-(SP) 
001727 100467 MOV RO,-(SP) 
8 001730 104651 000046 MOV U.PARM(RS),R1 =; GET oh PARAMETERS 
9 001732 102201 000200 BIT #RBNBN ,R1 : SEE IF RBN 
10 001734 051754 BNE 1$ : IF SO, UNKNOWN BAD BLOCK 
11 001735 104641 000012 Vv $.BADP(R4),R1  ; GET BAD BLOCK POINTER 
12 001737 011754 BEQ : IF NO BAD BLOCKS, BRANC 
13 001740 104202 000002 MOV #RW.LOW,R2 : POINT TO LON TO BE TESTED 
14 001742 105072 ADD RO,R2 : POINT TO LBN TO BE TESTED 
15 001743 021765 3$: CALL CMP2 : COMPARE BAD BLOCK TO LBN 
16 001744 011757 BEQ 2s 3 IF EQUAL, BRANCH 
17 001745 BCS 1$ ; IF LIST GREATER THAN BLOCK, IT’S Ok 
001745 041747 BCC -+2 
001746 001754 BR 1$ 
18 001747 105201 000002 ADD #2,R1 3 POINT TO NEXT BAD BLOCK 
19 001751 104617 177777 MOV -1(R1),RO : SEE IF EOL 
20 001753 031743 BPL 3$ : IF _NOT, BR ANCH 
21 001754 104207 000001 1$: MOV #1,R0 : SET UP FOR CARRY TO BE SET (UNKNOWN BAD BLOCK) 
22 001756 001760 BR 4$ 
23 001757 114007 2s: CLR RO : SET UP FOR THE CARRY TO BE CLEAR (BAD BLOCK KNOWN) 
24 001760 110607 4$: ROR RO 3 SET CARRY TO REFLECT KNOWLEDGE OF BAD BLOCK 
25 001761 POP <RO,R1,R2> 3 RESTORE 
761 104267 MOV (SP)+,RO 
001762 104261 MOV (SP)+,R1 
001763 104262 MOV (SP)+,R2 
26 001764 0000 RETURN 3 RETURN TO CALLING PROGRAM 


SEQ 297 
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CMP2 = 28 BIT ARE 


1 -SBTTL CMP2 = 28 BIT COMPARE 
. 001765 CMP2: 
4 3 CMP2 COMPARES A 28 BIT NUMBER POINTED TO BY R2 TO A 28 BIT NUMBER 
5 3 POINTED TO BY R1. BOTH gS S$ ARE LOW ORDER WORD A Se BY HIGH 
6 3 WORD (POINTER TO LOW WORD) AND THE HIGH 4 BITS <31:28> OF THE 
7 3 WORD POINTED TO BY R14 ARE STRIPPED OFF (THIS IS TO ELIMINATE THE 
: : END-OF=LIST FLAG ON THE B/E SETS AND BAD BLOCKS) 
10 001765 104617 001 MOV 1(R1),RO0 3 MOVE HIGH ORDER WORD TO RO 
11 001767 103207 170000 BIC #*CHBHINB,RO 3; CLEAR UNUSED BIT 
12 001771 106627 000001 CMP 1(R2),RO 3 COMPARE HIGH ORDER WORRD TO RO 
13 001773 051776 BNE 1$ 3 IF UNEQUAL, BRANCH 
14 001774 104117 MOV (R1),RO 3; MOVE LOW ORDE D TO 
15 001775 106127 CMP (R2),RO 3 COMPARE LOW ORDER WORD TO RO 
16 001776 000000 1$: RETURN 3; RETURN TO CALLING PROGRAM 
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BULDUM = BUILD THE DUMMY SDI CONTROL BLOCK FOR READS AND WRITE 


BULDUM = BUILD THE DUMMY SDI CONTROL BLOCK FOR READS AND WRITES 


000000 
020000 
000007 
000004 
177600 
000006 
002210 
000007 


000005 
002211 





1$ 
S.SCHR(R4) ,R2 
),R 


R2DUMSDI*D. LIMT 


she 
RS. DUMSDI+D. SCHR” 


BULDUM WILL BUILD THE DUMMY SDI CONTROL BLOCK 


BN'S 
UBUNIT PARAMETERS 
IN DIAGNOSTIC AREA 


BRANC 
SUBUNIT CHARACTERISTICS 
TRACK 


; CLEAR UNUSED BIT 

; GET SECTORS/TRACK 

; DOUBLE _SECTORS/TRACK FOR HEADER COMPARE LIMIT 
MOVE TO DUMMY SEARCH LIMIT 

3 R3 POINTS TO py tA CHARACTERISTICS 

3 RS POINTS TO SUB CHAR 


; MOVE TO DUMMY SUB CHAR POINTER 
; RETURN TO CALLING PROGRAM 


dD 8 
SEQ 300 
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CALC = CALCULATE THE CYL, GRP AND TRACK FOR THE GIVEN L/RBN 


1 .SBTTL CALC = CALCULATE THE CYL, GRP AND TRACK FOR THE GIVEN L/RBN 
é 002027 CALC: 

4 : CALC CALCULATES THE CYLINDER, GROUP, TRACK AND SECTOR OF THE BLOCK 
6 002027 115007 TST : SEE IF CALCULATION AREA MUST BE SET UP 

7 002030 052164 BNE MOVOUT : IF NOT, BRANCH 

8 002031 104070 002200 MOV RO, RBNFLG : s T RBN LAG AS ZERO 

9 002033 104643 000007 MOV S.SCHR(R4),R3 : R3 POINTS TO SUBUNIT'S CHARACTERISTICS 
10 002035 104637 04 RBNTRK(R3).RO : GET RBN'S PER TRACK 

11 002037 103207 177600 BIC #HIBYTE 1200, RO + CLEAR UNUSED 

1g 002041 105637 000011 ADD LONTRK(R3),RO : ADD LBN'’S PER TRACK 

13 002043 103207 177400 BIC #HIBYTE, : CLEAR UNUSED BITS 

14 002045 104070 002217 V RO.SC : SAVE 

15 002047 104147 V (R&),R + GET SUBUNIT PARAMETERS 

16 002050 ASSUME S.PAR t ASSUME THAT S.PARM IS ZERO 

17 002050 102207 020000 BIT #DCYLS.RO > SEE IF USING THE DIAGNOSTIC CYLINDERS 

18 00205¢ 052183 BNE MOV : IF $0, BRANCH 

19 002053 104637 000011 MOV LBNTRK(R3),RO  : MOVE LBN'S PER TRACK TO RO 

20 002055 103207 177400 BIC #HIBYTE RO : CLEAR UNUSED BITS 

21 002057 104651 4 MOV U.PARM(RS).R1 : MOVE UNIT PARAMETERS TO RO 

22 002061 102201 000200 BIT : SEE IF BLOCK REVECTORED 

23 002063 012101 BEQ LNCYL ; IF NOT, BRANCH 

24 002064 104070 002200 MOV RO,R g : STORE LBN'S PER TRACK IN RBN FLAG AREA 
25 002066 104637 MOV RBNTRK(R3).RO  : MOVE RBN'S PER TRACK TO RO 

26 002070 103207 177600 BIC #177660, : CLEAR THE HIGHER BITS, LEAVING RBN*S/TRACK 
27 002072 104070 002177 MOV RO, LRDTRK + MOVE REN's S PER TRACK TO CALCULATION AREA 
28 002074 104637 MOV HIRBN(R3),RO : GET HI R 

29 002076 103207 170377 BIC #HBLONB RO a CLEAR “MUSED BITS 

30 002100 002107 BR LNCONT : 

31 002101 104070 002177 LNCYL: MOV RO, LRDTRK : AOV E Lan’ PER TRACK TO CALCULATION AREA 
32 002103 104637 MOV HICBN(R3),RO  : GET HI L 

33 002105 103207 17037 BIC #HBLONB,RO : CLEAR UNUSED BITS 

34 002107 104070 002172 LNCONT: MOV RO,HIBN : SA 

35 002111 114007 CLR RO : LOW ORDER CYLINDER IS ZERO 

36 002112 104070 002173 MOV RO, STA + SAVE LO ORDER STARTING CYLINDER 

37 002114 104637 000001 MOV nIEWL (RSD RO  : RO CONTAINS HI CYLINDER BITS 

ag 002116 103207 007777 BIC #HBHINB,R : CLEAR UNU 

39 002120 104070 002174 MOV RO, STACYL#1 : MOVE HI STARTING CYLINDER TO UNIT PARAMETERS 
40 90212¢ 164 BR MOVOUT : BR BRANCH 

41 002123 104637 000004 MOVDBN: MOV RENTRK (RS) , RO ; MOVE NUMBER OF RBN’S PER TRACK TO RO 

42 002125 103207 177600 BIC 177600,R ; CLEAR THE HIGHER BITS, LEAVING RBN"S/TRACK 
4 002127 104631 000011 MOV LBNTRK (3) Rl : ADD LON'S/TRK, GIVING DBN’S/TRK 

44 002131 103201 177400 BIC #HIBYTE,R > CLEAR UNUSED BITS 

45 002133 105017 ADD R1,R : ADD LBNS/ TRK TO RBNS/TRK TO GIVE DBNS/TRK 
46 002154 104070 002177 MOV RO. LRDTR > SAVE DBNS/TRK IN COMPUTATIONAL AREA 

47 002136 104647 900002 MOV - Sper (Ra), RO : GET LO ORDERS STARTING DIAGNOSTIC CYLINDER 
48 002140 104070 00217 MOV RO, STACYL : SAVE LO ORDER 

49 002142 104657 000001 MOV HICYL(R3),RO  : GET HI UGYLINDER “SITS 

50 002144 103207 007777 BIC : CLEAR 

51 002146 101647 000003 BIS S. SDCL+f(R4), RO : GET HI VORDER STARTING DIAGNOSTIC CYLINDER 
3¢ 002150 104070 002174 MOV RO, STACYL#1 : SAVE HI ORDER CYL 

53 002152 104637 000003 MOV HIDONCRS RO; GET BI 

54 002154 110607 ROR RO t ROTATE TO CORRECT POSITION 

55 002158 110607 ROR RO : ROTATE TO CORRECT POSITION 

56 00 156 110607 ROR RO : ROTATE TO CORRECT POSITION 

57 002157 110607 ROR RO : ROTATE TO CORRECT POSITION 









UDAT4 DISK ry DMACR X04.01 13=APR=82 15:49:22 PAGE 28-1 
CALC = CALCULATE THE CYL, GRP AND TRACK FOR THE GIVEN L/RBN 


103207 170377 BIC #HBLONB RO 
0021 MOV RO,H 

: MOV pcaLeee RO 

MOV S SCHR (RA) R1 


co UNUSED BITS 

point TO Chaat ioe AREA 
POINT TO SUBUNIT CHAR TABLE 
CALCULATE 

RETURN TO CALLING PROGRAM 


SEQ 301 





1 
¢ 00217 
00217 

4 002173 

5 002175 

6 sis 3G 

? 002200 

8 002201 

9 002203 

10 002204 

11 boSSon 

\¢ 002206 

% 002207 

16 002217 

17 002220 

18 

19 
20 002221 

21 00222 

22 00222 

23 002224 034245 
24 002225 061453 
25 002226 

26 posee? 007774 
27 0022 
$ 002231 

002231 002203 
32 

33 

34 

35 

36 

37 

38 

39 

40 


MEMPOL : 
ERRPOS: . 






y inh, STORAGE AREA FOR VARIABLES 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 29 
TEST 4 STORAGE AREA FOR VARIABLES 


—— «OO Seem — 


ASSUME .-DUMSDI,18. 
3 *** NEXT WORD REQUIRED BY UDA TO BE 18 PAST DUMMY SDI BLOCK START 
WORD DUMSDI-4 ER 


3; HI BN BITS <27:24> 

CALCULATION AREA FOR UF GRP, TRK 
poyitny CYLINDER NUMBER 

SECTORS PER TRACK 

RBN FLAG 


CYLINDER 
GROUP 


DUMMY SDI AREA 


XFC READ AND WRITE WILL WRITE THE 
REVECTORED LON IN THIS SPACE, 
: OTHERWISE, USE IT FOR SCRATCH 


PATTERN NUMBER STORAGE AREA FOR ERRORS 
LAST nie CALLED NUMBER 
MASTER PARAMETERS 
LO ORDER RANDOM NUMBER SEED 

HI ORDER RANDOM NUMBER SEED 
UNEXPECTED ATTENTION FLAG 
MEMORY POOL FOR UNIT DATASTRUCTURES 
; RTDS AND STATUS POSITION 


FOR LON REVECTOR INFORMATION 


BELEIVE IT OR NOT, THIS OIL wire THE REVECTORED LBN 
Hed oe ne DUMSDI+8 AND DUM 


a 


POINTS TO 12 SHORT OF WHERE TO PUT THE 


REVECTOR INFORMATION 


3 READ/WRITE CHAIN HEADER 
3 MAXIMUM NUMBER OF BUFFERS THAT CAN BE READ 


SEQ 302 


3 MAXIMUM NUMBER OF BUFFERS THAT CAN BE WRITTEN 


3 MAXIMUM NUMBER OF SECTORS THIS PASS 





Wh—o NOURWM OUR 


4 te tee cat tet tat et § 
wm 
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VIN VSSSSFSSTS 


RRRRRR CCRC RRS 


RES 


$ 


SeSeas 


een ab a eh et ew Set 
N=—OWOUSwW-—0 


=—S 
wm 
NNW 
SN 
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UDAT4 DISK EXERCISER DMACR x04. 
DATA PATTERNS THAT WILL BE WRITTEN TO THE DRIV 


ssssss 


Sssss 


1 13-APR=82 15 


-SBTTL 
PATPTR: 


PATO: 


PATI: 
PAT2: 
PATS: 


PAT4: 


DATA PATTERNS THAT WILL BE WRITT 
. PATO 


» WORD 


piviee PAGE 30 


EN TO THE DRIVE 
3 POINTERS TO DATA PATTERNS 


SEQ 303 


DATA PATTERNS (EDC OF PATTERN, LENGTH OF PATTERN IN WORDS, FOLLOWED BY PATTERN) 


177777 


~—=O — 
ge 
o> 


NNNw 
Sw 


had 


3 DUMMY EDC 
: USER DEFINEABLE PATTERN 


EDC FOR PATTERN 1 
B°1000101110001011° 


EDC FOR PATTERN 2 
8°0011001100110011° 
EDC FOR PATTERN 3 


EDC FOR PATTERN 4 
SHIFTING ONES 


eh ee as se a eh a 





SSssssss 


aa 


Ree 


$5 


sseaassssssensssezess 
Seueueaye 
EEE 


ee: 


ases 


WAWAAWWW 
JOAF UNIS 


Rees 


FUNASSRIFRRESLS SSLESRAVLSSEGRALATALSISVRARANISSELSAFARLIS Sa 


BR 
S9SSRc 





UDAT4 DISK EXERCISER DMACR x04. 
DATA PATTERNS THAT WILL BE WRITTEN TO THE DRIVE 


170000 


a 
—a 
S 
~“ 
> 


SEE 


-0oO-— _ 
~ ~“ ~“ 
~“ ~“N ~N“ 
~ ~ ~N“N 
~“ ~“ 3 


S 
N 


—~ 

~“ 
on 
43 

now 


oo 
wn 
Rrnuwmnmn 
WMVIPonony 
NRrmouwNw 


PATS: 


PAT6: 


PAT?: 


PAT8B: 
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eres 


th = 
~ 
No™~ 
~ 
wan 
a ee ww 


MAPMIMINIMMAMNANI  & 
rr 


: EDC FOR PATTERN 5 
3 SHIFTING ZEROS 


3 EDC FOR PATTERN 6 
3 ALTERNATING ZERO WORD AND ONE WORD IN 


é - a - 
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ww 
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- 2—- S 
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- -So— - 
a= ace-t ac a ae 
o -o-~ = 4 tae 
- -o tf -_ = s~ 
- o-w So 
“uO uweOl —— ww ew 
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ve VOeK eso of ve 
Qe Qe\- Zz Qe an on 
wo wOoo- wo wa wa 
e*e ee *e *e *e e*e *e*e ee *e 
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NOMAIMN CUNEO FO MUN CUFF CNM nMmnmwo - &- sae 

MOCUNCUNCUINO Ss pear bd 7d wh wld 7d wAsd ALD Ald pa - CRSA 

MOUMNCUMNCUM C6e-e-— ° Sessenssn RRR 

Ana ee oe oe | nan. SReSnnnsennsasne ~o RR 
Cat = 


--O-O- Oe -O-COCnKK-- oOo -— 4 


SSSSERSSNGNNARS 


Baa GbGbGAaGGaQaegagaaaaaaaaaaaaaaaaaaaaaaaa eaaanakdal a aaaa8aR 
SRE OR 
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or 
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Ss 
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PST) 
z= oneness SSAA ANNA NNANIANIANOG = Or =xgsss 
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Rn SOS SANA nae MMMM SS IVI33 RAQAAARGSS 
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ub BSSSSSsssesssssssssssssssssssssssssss 
OF COT PCRANNANAANMUAMAMMARMAAS So ee oe ee eR sign aaron 
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SEQ 306 


COMPATIBLE 


* MAKE TEST 4 FORMATTER 


* PATTERNS 14 AND 15 


T 
0 
1 
0 
T 
0 
1 
1 


| 
wOODOewoaooa 


eo 
~ bd te Rt ed en dd dd dL) wm 
i alld td Bd td tk ted dd ed bh Le La) we 
SoS ROMMFAARARRARRO WMO WM 
~~ RRR OMMAARRAA MMMO MMH 
RRA OMMR NT HMMM Mmm 
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~N 
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wT 
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oe wT w 
T+ 4 - - 
35 re 
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et = 
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2 
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3c 
=F 
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w RR COMMER RNOMMNOCOMM 
Y~_— KKK COMMA CNOMMMMOMM 
oe CSM MCMC KKK Or Orr K- COr eK 
[+ ld 
[vu] nor NUM TNO. NM TNOR Oe 
xn oo See ee URI FURIRU RUD 
gt SEE AT AT AT MATA AT AT AT AT ATA ALATA AA ATA AM 
rucucucucs 
atu So 
BE SSSSSSSSSSSSSSSSSSSES 
okt NMTNORO MOP ODO—w 
va LEC L_LCLLMLLL LLL CK KK 
<r 
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res 


SRARG 


Fw 
o- O-00— O-8 OS 


sessssessssoses 
NESSES 


255 


segsess 


1 
23 
24 
+ 
e7 
= 
% 
3 
a4 
35 
36 
37 
38 
39 
40 
re 
<8 
bu 


54 002576 


MN 
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Nm 
So 


= 
SA nS 
S° vin 
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zs 


NN Ran 
NES 
ano SW 


ree OES 


o-0—2—0— 
BeRS28 
VPC UID 
Wn wa iva) wha) = wa 
Ww ISUSsSu ao OUWNM 
WOoOUNNUNWW oO 


= 
So 
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=) 
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007702 


002223 


100000 
060016 


«SBTTL ROOT 


ROOT: roe 
ROOTLP: yt! 


1$: CALL 


2$: CLR 
BR 

NOUNIT: INC 

MP 


STOP: MOV 





UDAT4 DISK EXERCISER DMACR x04.01 ieee 15:49:22 PAGE 31 
ROOT = MAIN DRIVING MODULE OF TEST 


= MAIN DRIVING MODULE OF 


ee Ins tu Rs 
(RS) RS 
U.NEXT 0 
U.PARM(RS) ,R1 
NOUNIT 

DROP, 100000 
_— 
IWIPRG, 100000 
#INITW,R1 
NOUNIT 
a oRO 
DROP, 100000 
#CR.DISR3 
TALK 

RO 

ROOTLP 

RO 

ROOTLP 

M. ~ at 


STOP 
1WIPRG, 100000 
#IWIPRG, M.PARM 


#DONE. RO 
HOSTRQ 
EXIT 


RS POINTS TO FIRST UNIT 
COUNT OF 


I 
DROPPED UNI H 


R5 POINTS TO NEXT UNI 
GET ri MY PARAMETERS 


A as ow 


ASSUME DROP IS SIGN BIT 
is IF IN PROCESS OF INITIAL WRITE 
F NOT, BRANCH 
ASSUME IWIPRG IS SIGN BIT 
SEE IF THIS UNIT IS BEING INITALLY WRITTEN 
IF NOT, BRANCH 
SEE IF JUST DROPPED 
IF NOT, BRANCH 
; + hed TO DISCONNECT 
COUNT OF DROPPED p opt IS SET TO ZERO 
; BRANCH TO BOTTOM OF ROOT 
; INCREMENT COUNT OF * DROPPED UNITS 
#* wor. i + UNITS HAVE BEEN DROPPED 
; see IF INITIAL WRITE WAS IN PROGRESS 
F NOT, END TEST4 


ASSUME IWIPRG IS SIGN BIT 
CLEAR pa WRITE BIT 
NOW TESTING 


MOVE DONE TO HOST oe -; aealaen AREA 


ENT DONE MESSAGE Tuo HOST 
EXIT DIAGNOSTIC MACHINE MODE 


a 








SEQ 308 
UDAT4 DISK EXERCISER DMACR art Ps P taal 15:49:22 PAGE 32 
OVERLAY DRIVER FOR T 


1 ~SBTTL OVERLAY DRIVER FOR TEST 4 

¢ 002577 

4 : R_CALLS THE yc tberg MODULES, USING THE ADDRESS RETURNED 

5 : IN — BY THE PREVIOUS MODULE. RO HOLDS THE at Hgost TO VECTOR 
6 : TO. IF R1 IS geno. ~y Tel DATE CALL 1s MADE TO THE NEXT ROUTINE. 

7 ; IF Re IS NONZERO, AN ERROR WAS ENCOUNTERED, AND THE ERROR COUNT IS 
. : INCREMENTED. THe ERROR IS THEN REPORTED TO THE HOST. 

bs ooeer? 104657 000013 ° MOV U.NFUN(RS),RO ; LOAD RO WITH NEXT FUNCTION ADDRESS 


ee ee _—— 


SEQ 309 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 33 
DRPTST = SEE THAT AT LEAST ONE SUBUNIT IS ACTIVE ON A UNIT 


STIL DRPTST = SEE THAT AT LEAST ONE SUBUNIT IS ACTIVE ON A UNIT 
4 ; DROP TEST MAKES SURE AT LEAST ONE ACTIVE SUBUNIT IS ACTIVE ON THE UNIT 
5 ; IF SO, R4 POINTS TO SUBUNIT ETER BLOCK U- SUBU IS UPDATED TO 
6 ; THE SUBUNIT OFFSET, AND R3 IS RETURNED Posi IVE IF NOT, R3 IS 
c ; RETURNED NEGATIVE AND THE ENTIRE UNIT IS DROPPE 
9 002601 PUSH RO : SAVE NEXT MODULE ADDRESS 

002601 100467 MOV RO,-(SP) 
10 002602 104657 000046 MOV U.PARM(RS),RO ; GET UNIT PARAMETERS 
11 002604 102207 001000 BIT #F TIME RO ; SEE IF FIRST TIME THROUGH 
12 002606 012673 BEQ 1$ IF NOT BRANCH 
13 002607 024227 CALL  GOSEEK IF FIRST TIME, FORCE A SEEK 
14 002610 103207 015610 BIC SnoNoK REVEG TURE! DIREC ChECKINENELE, RO 
15 002612 100657 000046 MOV RO,U.PARM(RS) ; SAVE | 
16 002614 104057 MOV R5.RO : RO WILL POINT AT SUBUNIT POINTERS 
17 002615 115407 INC RO : RO POINTS AT SUBUNIT POINTERS 
18 002616 ASSUME U.SUBP,1 | 
19 002616 11400 CLR R2 ; UP TO 4 SUBUNITS ON THIS UNIT 
20 002617 100652 000024 MOV R2,U.CSEC(RS) : ZERO ALL TRACK COUNTS SO THE TEST AT THE 
21 002621 100652 000021 MOV R2,U.NSEC(R5) : BEGINNING OF SETUP IS SATISIFIED SO CONTROL 
22 002623 10065¢ 000023 MOV R2 U-TSEC(RD) : DROPS THROUGH THE NEXT OPERATION 
23 002625 10427 11$: MOV (RO)+,R : GET SUBUNIT E 
24 002626 072637 BMI 12$ : SUBUNIT, BRAN 
25 002627 104133 MOV (R3) ,R3 : GET SUBUNIT P R 
26 0026 ASSUME S.P : ASSUME THAT S.PARM IS ZERO | 
27 002630 ASSUME DROP, 100000 : ASSUME DROP IS SIGN BIT 
28 002630 072637 BMI 12 : IF DROPPED, BRANCH 
29 002631 115000 002223 TST M.PARM > SEE IF INTIIAL WRITE IN PROGRESS 
30 002633 032644 BPL 13$ : IF NOT, CH 
31 002634 ASSUME IWIPRG,100000 =; ASSUME IWIPRG IS SIGN BIT 

002634 102203 040000 BIT #INITW.R3 3 SEE IF (HIS SUBUNIT IS TO BE INITIALLY WRITTEN 
33 002636 052644 BNE : IF $0, BRANCH 
34 002637 115402 12$: INC Re : INCREMENT COUNT 
35 002640 106202 000003 CMP #3,R2 : SEE IF COUNT EXHAUSTED 
36 002642 032625 BPL 11$ : IF NOT, CH 
37 002643 003037 BR 4$ : IF $0, DROP ENTIRE UNIT 

2644 52 000050 13$: MOV Rou; ,U.SUBU(RS) =: SAVE SUBUNIT 
2646 MOV : MOVE TO SUBUNIT POINTER REGISTER 

40 002647 105054 ADD RS. Re : ADD UNIT POIN 
41 002650 105204 000001 ADD #U. SUBP,R4 + ADD SUBUNIT POINTER OFFSET 
42 002652 104144 MOV (R4) RG 3 Re NOW POIN NTs TO SUBUNIT 
43 002653 023720 CALL = RECOVR > SET UP UNIT FOR ING 
44 002654 104207 104000 MOV #ERMASK ! SEKREQ, rd ; DIS SABLE RECOVERY, FORCE A SEEK 
45 002656 100657 000047 MOV RO.U.RCOV(RS) | ; SAVE IN RECOVERY WORD 

002660 104207 000010 MOV #NUML2S RO : GET NUMBER OF LEVEL 2 C 
47 002 104051 MOV R5,R1 ; R1 POINTS TO UNIT PARAMETERS 
48 002663 105201 000035 ADD #U.SD12,R1 ; R1 POINTS TO SDI LEVEL 2 ERROR COUNT AREA 
49 002665 11400 CLR : SET UP TO CLEAR AREA 
50 002666 10021 14$: MOV R2,(R1)+ : CLEAR 
51 002667 11740 DEC RO : DECREMENT COUNT 
52 002670 052666 BNE 14$ : IF INCOMPLETE, BRANCH 
53 002671 114003 CLR : PROCESS THIS UNIT 
54 002672 003045 BR 5$ : EXIT 
55 002673 104054 1$: MOV RS,R4 : GET POINTER TO UNIT DATASTRUCTURE 
56 002674 115404 INC R4 ; POINT AT SUBUNIT POINTERS 
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000050 


004000 


004000 
000046 


000024 
000021 
000023 
002223 


040000 


005532 


040100 


000004 
000001 
000050 
000003 


UDATS DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 e eo" 
DRPTST = SEE THAT AT LEAST ONE SUBUNIT IS ACTIVE ON A UN 


+ at U. SUBP ,1 
U. SUBUCRS) ,R4 
(R4) ,R4 


0 
nicusus, RO 
#NEWSUB RO 
a 
R2,U.CSEC(RS) 


R2.U.NSEC(R5) 
R2,U. TSEC(RS) 
M.PARM 


2s 
IWIPRG, 100000 
#INITW,R1 


R1,(R4) 
sone 


U. SUBU(RS) ,R2 
CHKUP 


5$ 
R3 


R1 
goer, 1eseee 
NITW,R1 


10$ 


NEXT SUBUNIT TO CHECK 


4,RO 
w. SUBP ,R3 


R5,R 
U, SUBUCRS) .R2 


#3,R2 
228 


nS. Re 
Renn R4 


(R4) ,R1 
$.PARM,0 
24$ 


RO 


R4 POINTS AT SPECIFIC ren, POINTER 
R4 POINTS rt SUBUNIT PAR 
NO _ SUBUNIT 


ASSUME "i ZERO 
is IF ate TO GO TO NEXT SUBUNIT 
CLEAR NEWSUB BIT 

R CEARING FOLLOWING WORDS 
PERO ALL TRACK COUNTS SO THE TEST AT THE 
DROPS UP 
iF wor IF VINITTAL WRITE IS IN PROGRESS 


BRANCH 
ASSUME” IWIPRG IS SIGN BIT 
SAVE INITIAL WRITE BIT 


HAT S.PARM IS ZERO 


SSUME T 
; REPORT i ee yt 


#MS1,HRQ.02 
MOV RO,-(SP) 
MOV U.UNUM(RS) ,HRQ.01 
ADD U. SUBUC(RS) ,HRQ.C1 
MOV #MESSAG,RO” 
CALL HOSTRQ 


MOV (SP)+,RO 
GET ACTIVE SUBUNIT POINTER 
3 Le ANY MORE UNITS TO INITIAL WRITE 


BR 

IF ACTIVE, FLAG TO PROCESS 
SEE IF UNIT ACTIVE 

ASSUME DROP IS SIGN BIT 
IF ACTIVE, BRAN - ANCH 


: AL SEEKS 
: IF SO, BRANCH 
RANDOMLY 
; SUBUNIT COUNT 
; R3 itt 1°10" TO SUBUNIT POLMTERS 
; R3 PO TO SUBUNIT POINTERS 
R2 I is, SUBUNIT NUMBER 


GO TO NEXT UNIT 
SEE IF GREATER THAN 3 
IF NOT, BRANCH 
NOW ON SUBUNIT 0 

e seh TO SUBUNIT POIN 


TERS 
NOW POINTS TO A oreo Ot SUBUNIT POINTER 
Re NOW POINTS 1 TO SUBUNIT PARAMETERS 

IF NO ANCH 





| 8 9 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 oo) re 


DRPTST = SEE THAT AT LEAST ONE SUBUNIT IS ACTIVE ON A UNIT 
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000050 
010000 


opoeee 
100000 
000046 


177777 


002222 
000100 


004266 
004254 


002217 


248: 


10$: 


3$: 


4$: 


5$: 


7$: 


21$ 

U. PARM(RS) .R3 
R3,U.PARM(RS) 
Re.U. SUBU(RS) 
R 


5$ 
U. SUBU(RS) ,R2 
#DIREC,RO 


5$ 

CHKUP 

RO 

5$ 

) PARM(R5) ,R3 


#DROP, 
R3. ,U.PARM(RS) 


7$ 
#-1,SCR1 
R 


RO.RO 
OTABLE (RO) .R2 
PTABLE(R2),R1 
LOADED 


IF INCOMPLETE, BRANCH 


; GET UNIT PARAMETERS 
; I sea BIT 


EXIT 
; SAVE SUBUN 


IT NUMBER 
ier THIS SUBUNIT IMMIDATELY 


R2_IS SUBUNIT NUMBER (0-3) 
ae ag et OR DOWN 


BRANCH 
FIND NEXT UPPER SUBUNIT 
FIND ONE? 
IF SO, BRANCH 
SEARCH DOWN FOR ONE 
IF SO, _ 
DROP UNIT 
at oe FOR SUBUNIT 


BRANCH 
Al TUNIT PARAMETERS 


SA vE 

; SEE IF THIS SUBUNIT TO BE TESTED 
IF NOT, BRANCH 

; FLAG AS a SUBUNIT 


RESTORE R 
MOV (SP)+,RO 
SEE IF UA. SUBUNIT EXISTS 


IF 

SAVE THis OVERLAY NUMBER 

SEE IF THE ROUTINE IS ON AN OVERLAY 
IF NOT, BRANCH 

SAVE THE OVERLAY NUMBER 

MULTIPLY THE OVERLAY NUMBER BY 4 
GET THE ga AREA Mey 
MULTIPLY THE AREA 


NUMBER BY 2 
SEE IF THE OVERLAY REQUESTED IS IN MEMORY 
IF SO, BRANCH 


-_— 


SEQ 311 





¢ 9 | 

SEQ 312 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 34 
OVRLAY = OVERLAY PROCESS FOR BRINGING IN OVERLAYS IF NEEDED 


; Som ke OVRLAY = OVERLAY PROCESS FOR BRINGING IN OVERLAYS IF NEEDED 
: : BRING IN THE OVERLAY 
6 003073 PUSH  <R5,RO,R1,R2,R3> : SAVE REGISTERS 
003073 100465 MOV RS,=(SP) 
003074 100467 MOV RO,-(SP) 
003075 100461 MOV R1,=(SP) 
003076 10046¢ MOV R2,-(SP) 
003077 10046 MOV R3,-(SP) | 
7 003100 104205 000003 MOV #3,R5 z TRY TO READ 3 TIMES | 
8 003102 eg 14 poner! 41$: MOV 070046 25(R0) RI 3; GET THE HI ORDER BITS OF UNIBUS ADDRESS 
9 003104 103201 177774 BIC #1777746,R1 : CLEAR UNUSED BITS 
10 003106 104623 004255 MOV PTABLE+1(R2),R3 ; POINT TO WHERE TO LOAD OVERLAY 
11 003110 104672 004271 MOV OTABLE+3(RO),R2 ; GET NUMBER OF WORDS TO TRANSFER 
\¢ 003112 110602 ROR R2 3 ROTATE BITS TO CORRECT POSITION | 
13 003113 110602 ROR R2 
14 003114 103202 140000 BIC #140000,R2 3 CLEAR UNUSED BITS 
15 003116 104677 004270 MOV OTABLE+2(RO) RO ; GET LO ORDER UNIBUS ADDRESS | 
16 003120 060013 XFC UREAD ; READ THE OVERLAY INTO UDA MEMORY 
17 003121 101071 BIS RO,R1 ; ADD THE ERROR REGISTERS TOGETHER 
18 003122 013166 BEQ 42 ; IF NO ERRORS, BRANCH | 
19 003123 p <R3,R2,R1,R0> 3 RESTORE THE REGISTERS 
003123 104263 MOV (SP)+,R3 
003124 104262 MOV (SP)+.R2 
003125 104261 MOV (SP)+,R1 
003126 104267 MOV (SP)+.RO 
20 003127 PUSH <RO,R1,R2,R3> 3; SAVE THE REGISTERS 
003127 100467 MOV RO,=(SP) 
003130 100461 MOV R1,-(SP) 
003131 10046¢ MOV R2,-(SP) 
003132 10046 MOV R3,-(SP) 
21 003133 117405 DEC RS : DECREMENT COUNT 
2? 003134 053102 BNE 41$ : IF INCOMPLETE, BRANCH 
23 003135 DEVFTL 33,<R1,#SER39> ; UNABLE TO READ FROM HOST MEMORY 
003135 104200 002455 001107 MOV #ER33,HRO.04 
003140 104010 001110 MOV 3 
003142 104200 002502 001111 MOV #SER39-HRO..06 
003145 104202 047701 MOV #33!F TLDEV+4000. .R2 
003147 104020 001105 MOV R2,HRO.02 
003151 104200 003151 001104 MOV . HRO.01 
003154 104200 060014 001103 MOV #ERRMC .HRO.RO 
4 003157 104200 177777 001106 MOV #177777,HRQ.03 =; FLAG AS NOT ASSOCIATED WITH ANY UNIT 
5 003162 104307 001103 MOV HRQ.RQ,RO ; SET UP TO REPORT ERROR 
26 003164 021053 CALL -HOSTRO + REPORT 
27 003165 002573 BR Akg 3 REPORT THAT PROGRAM IS FINISHED 
28 003166 42$: POP <R3Z,R2,R1,RO,RS> 3; RESTORE THE REGISTERS 
003166 106265 MOV (SP)+,R3 
003167 1042 MOV (SP)+.R2 | 
003170 104261 MOV (SP)+.R1 
003171 104267 MOV (SP)+.RO 
00317¢ 104265 MOV (SP)+.R5 
29 00317 1006¢1 004254 MOV R1,PTABLE(R2) ; MARK THE OVERLAY AS IN MEMORY 
003175 104677 004267 LOADED: MOV OTABLE+1(RO),RO ; T THE NUMBER OF OVERLAY AREAS DESTROYED 
3 003177 104201 177777 MOV #-1,R1 ; R1 CONTAINS THE “EMPTY AREA’ FLAG 
003201 PUSH : SAVE R2 
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SEQ 313 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 34-1 


OVRLAY = OVERLAY PROCESS FOR BRINGING IN OVERLAYS IF NEEDED 


003201 100462 MOV R2,-(SP) 
3 803502 11740 GONE: DEC RO : DECREMENT THE DESTROYED COUNT 
003203 073211 BMI PLOAD : IF ALL NECESSARY AREAS ARARKED DESTROYED, BRANCH 
35 003204 105202 000002 ADD #2,R2 : POINT TO NEXT OVERLAY AREA 
36 003206 100621 004254 MOV R1,PTABLE(R2) : MARK AREA AS DESTROYED | 
37 003210 003202 BR GONE : GO TO TOP OF LOOP 
38 003211 PLOAD: POP R t RESTORE R2 
903211 104262 MOV (SP)+,R2 
39 003212 104627 004255 MOV PTABLE +1(R2) RO ; GET OVERLAY ADDRESS 
40 003214 104652 000047 GO4iT: MOV U.RCOV(RS),R2  : GET ERROR RECOVERY WORD 
003216 073227 BMI $ : IF NO RECOVERY BRANCH 
003217 ASSUME ERMASK,100000 ; ASSUME ERMASK SIGN BIT 
43 003217 020746 CALL RTDS + BEFORE OPERATION, SEE IF ONLINE 
44 003220 11500 TST : SEE IF ERROR OCCURRED 
45 003221 05322 BNE 1$ : IF SO, BRANCH 
46 003222 102201 000102 BIT WAVAIL!ATIN,RI : SEE If AVAILABLE OR ATTENTION ASSERTED | 
47 003224 013227 BEQ 2$ : IFN H 
48 003225 024201 1$: CALL = GORTRY : RETRY tuts MODULE 
49 003226 003231 BR JMPRET : RECOVE 


50 003227 2$: 





UDAT4 
JMPRET 


DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 35 
- THIS IS THE LOCATION THAT VECTORS TO/FROM ALL OVERLAY 


1 ~SBTTL JMPRET = THIS IS THE ned * THAT VECTORS TO/FROM ALL OVERLAYS 

2 003227 PUSH RO ; PUSH THE BRANCH ADDRESS ONTO THE STACK 
003227 100467 MOV RO,=-(SP) 

3 003230 000000 RETURN ; VECTOR TO MODULE 

4 003231 JMPRET: 


SEQ 314 
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UDATS DISK EXERCISER EAAGAS X04.01 13-APR=82 15:49:22 PAGE 36 
CORECT = CORRECT THE ERROR 


-SBTTL_ CORECT = CORRECT THE ERRORS 
CORECT 


CORRECT THE ERRORS AND RECOVER 


PUSH  <R1,RO> 3 SAVE NEXT OVERLAY AND CALL TYPE 
MOV R1,=(SP) 
MOV RO,=(SP) 

CLR ERMODE : CLEAR ERROR MODES 

TST R2 : SEE IF ERROR OR MBYTE REPORT 

BNE 5$ : IF $0, BRANC 

MOV U.RCOV(RS),R2 : GET ERROR RECOVERY WORD 

BMI : IF RECOVERY DISABLED, 

ASSUME ERMASK,100000 =: ASS ECOVERY MASK IS SIGN BIT 

CALL  RTDS : GET REAL TIME DRIVE S$ 

TST : SEE IF ERROR OCCURRE 

BNE 70$ : IF SO, 

BIT WAVAIL,R1 : SEE If AVAILABLE ASSERTED 

BEQ : IF NOT, CH 

BIT #ATTN,R1 : SEE IF SPINABLE 

BNE 1$ : IF SO, BRANCH 

DEVFTL 13 : REPORT UNSP INABLE DRIVE 


#ER13,HRO.04 
MOV #13!F TLDEV+4000. .R2 
MOV R2,HRO..02 
MOV #ERRMC.HRO.RO 


ENDERR 0 
CLR ERRPOS : CLEAR THE POSITION 
BR 70$ : REPORT 
BIS WAVAIL,ERMODE =; AVAIL ERROR 
BR : BRANCH 
BIT WATTN,R1 : SEE IF ATTENTION IS ASSERTED 
BEQ : IF NOT, BRANCH 
BIS WATTN,ERMODE =: FLAG AS ATTENTION ERROR 
SOFTER 2 > ATTENTION ASSERTED UNEXPECTEDLY 
MOV me tEAsor| T+4000. ,R2 
MOV R2,HRO.02 
MOV ee ° 1 
MOV #ERRMES ,HRO.RO 
ENDERR 


MOV #SER22,HRO.05 
#5+1 ,ERRPOS 











: SET THE POSITION 


WW 
gS 


rr 


DONOULSWwR— 

poescoces 
eee 
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iis 


060011 


001103 5$: 


001104 
001104 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 37 
CORECT = CORRECT THE ERRORS 


#TOMXFR,HRQ.RO 
40$ 


U.UNUM(R 


8 
90$ 


o 


(R5) ,HRO.0 
ue eo i ;HRQ. 01 


Se Se Se Se Se ad adte Se 


SEE IF MEGABIT TRANSFER REPORT 
; IF NOT, RANCH 
; oo STARTING UNIT NUMBER TO COM AREA 
; ADD OFFSET 


E 
a NY DROPPED 
IF gw 


SEQ 316 


SEQ 317 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 38 
CORECT = CORRECT THE ERRORS 


1 003352 104302 001105 40$: MOV HROQ 93. oy : GET ERROR Ofte 

é 003354 103202 037777 BIC 4377 3 CLEAR ERROR NUMBER 
003356 106202 040000 CMP #FTLDEV,R : SEE IF DEVICE FATAL 

4 003 ASSUME FTLDEV, 6e8000 : ASSUME IN HI 2 BITS 

5 003360 053364 BNE 6$ : IF NOT, BRANCH 

6 003361 101200 100000 002226 70$: BIS MDROP,ERMODE : ERROR CAUSED THE ENTIRE DEVICE TO BE DROPPED 

7 003364 104307 002230 6$: MOV ERRPOS, RO + GET ERROR POSITION 

8 003366 ASSUME DROP, 1 160000 : 

9 003366 013543 BEQ 2 : IF NO REPORTING, BRANCH 

10 003367 103207 100000 BIC #VALID,RO : CLEAR TALLREADY VALID® BIT 

11 003371 105207 001103 ADD #HRO.RO,RO : POINT TO OUTPUT 

1g 003373 020775 CALL  RTDSL : GET REAL TIME DRIVE STATE 

13 003374 100271 MOV R1, (RO)+ : MOVE TO OUTPUT 

14 003375 PUSH  <RO,R4> : SAVE RO AND SUBUNIT POINTER 
003375 100467 MOV RO,=(SP) 
003376 100464 MOV R4.-(SP) 

15 003377 104651 000047 MOV U.RCOV(RS).R1 =; GET RECOVERY STATUS 

16 003401 102201 040000 BIT #DRINIT,RI1 : SEE IF DRIVE INITIALIZED 

17 003403 013454 BEQ 4$ : IF NOT, BRANCH 

18 003404 103201 040000 BIC #DRINIT,RI : DRIVE NOT INITIALIZED 

19 003406 100651 000047 MOV R1,U.RCOV(RS) =: SAVE 

20 : WAIT UNTIL STATE WILL BE VALI 

21 003410 104201 001400 MOV #1400,R1 : UP TI 

22 003412 117401 33$: DEC R1 : DECREMENT DELAY 

23 003413 053412 BNE 33$ : IF INCOMPLETE 

24 003414 104651 000011 MOV U.MSTO(RS).RI: GET MASTER SeéK’ PIMEOUT 

25 003416 100651 000005 MOV Ri,U.TIMH(RS) =: 

26 003420 114001 CLR : FOR LOW ORDER TIMEOUT 

27 003421 100651 MOV RI U. TIAL CRS) : SAVE 

28 003423 104201 000310 31$: MOV #200. ,R1 : INNER LOOP TIMEOUT 

29 003425 117401 32$: DEC : DECREMENT COUNT 
003426 053425 BNE 32$ : IF INCOMPLETE, BRANCH 

31 003427 020775 CALL  RTDSL : GET REAL TIME DRIVE STATE 

32 003430 11500 TST R2 : SEE IF ERROR OCCUR ED 

33 003431 05351 BNE 24$ : IF SO 

34 003432 102201 000001 BIT ARCVRDY,R1 : SEE IF RECEIVER READY IS ASSERTED 

35 003434 053454 BNE : IF SO, BRANC 

36 003435 104651 000006 MOV U.TIML(RS),R1 =: GET TIMEOUT 

37 003437 107201 000001 SUB #1, + DECREMENT TIMEOUT 

38 003441 100651 000006 R1.U.TIML(RS) 3: SAVE 

39 003443 23 Bcc : LOOP IF INCOMPLETE 

40 003444 104651 000005 U.TIMH(RS),R1  : GET HI ORDER TIMEOUT 

41 003446 107201 000001 SUB #i, + DECREMENT TIMEOUT 

4g 003450 100651 000005 MOV R1.U.TIMH(RS) =: 

43 00345 043423 BCC 31 : IF TIMOUT UNEXPIRED, BRANCH 

44 003453 00351 BR 4$ + ERROR 

45 003454 115000 002230 48: TST RRPOS t SEE IF STATUS VALID 

46 003456 073531 BMI 6$ ; CH 

47 00345 ASSUME VALID,100000__—i; ASSUME VALID BIT IS MSB 

48 003457 020775 CALL ——-RTDSL 3 GET REAL TIME STATE 

49 003460 115008 TST + SEE IF STATE VALID 

50 003461 05351 BNE 24$ ; ID 

31 00 10 201 000101 eI “mapene : SEE If RECEIVER READY/AVAILABLE 

3g 60 5 104 1750 MOV #MAXSND R : SE 

54 003467 104 3 161 MOV #CR.GST Re : POINT TO GET STATUS C 

55 003471 1046 5 MOV U.MASK(RS).R2  : GET UNIT SDI SELECT MASK 
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000001 
000033 
Bones 
00000 

177777 
000007 
001711 
000007 


000002 


001704 
177407 


000010 001703 


218: 


248: 


25$: 


268: 


278: 


002226 20S: 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 38-1 
CORECT = CORRECT THE ERRORS 


(83) 0. 
Het crntR3), R1 
52s 
R4 

1$ 


4$ 
U.SDIS(RS) .RG 
L2.RLN(R3) RI 
RCV 


R1 

26$ 

RG 

23$ 

<R4,RO> 

my oR3 
7,R2 

RS. -(RO)* 

25$ 

8$ 

<R4,RO> 

He oR1 

a 

=(R1) R3 

RS. (RO) + 


5 
#ATTN, ERMODE 


Q ag 

IF ERROR WAS CAUSE OF 
3 GET ERROR BYTE 
3 CLEAR UNUSED BITS 


RROR(S), BRANCH 
E INFORMATION IS CAUSE OF ATTENTION 
#ST.EL.ST+ST. REQ F 


ST+*ST.ERR 


R1 
scniBite!?>, R1 
IF LOGGABL 


; POINTS TO SDI COMMAND BUFFER 


LOAD BYTE COUNT 
SEND SDI COMMAND 
SEE IF SOI ——— SENT SUCESSFULLY 


IF SO, 

DECREMENT TIMEOUT 

IF we INCOMPLETE, BRANCH 
R4 HAS SHORT TIMEOUT 
POINT TO RECEIVE BUFFER 

NUMBER OF WORDS pies RE SPONSE 

RECEIVE yt RESPON 

SEE IF SDI ee RECEIVED SUCESSFULLY 


IF SO, Be 

DECRERENT TIMEOUT VALUE 

IF TIMEOUT UNEXPIRED, BRANCH 
RESTORE R4 


MOV (SP)+,R4 
MOV (SP)+¢, *RO 


; R3 CONTAINS ‘UNABLE TO GET STATUS’ 
; R2 CONTAINS COUNT 


MOVE TO OUTPUT BUFFER 


; i char COUNT 


ak: Md INCOMPLETE, BRANCH 
RESTORE R4 
MOV (SP)+,R4 
MOV (SP)+, “RO 
R1 POINTS TO AFTER STATUS BUFFER 
R2 HAS COUNT 


MOVE. STATUS WORD TO R3 

TPUT BUFFER 
BRANCH IF COUNT INCOMPLETE 
SEE IF UNEXPECTED ATTENTION 


IF NOT 
ATTENTION 


SEE IF LOGGABLE INFO 
nor’ BRANCH (°RECOVER") 


UDAT4 DISK EXERCISER DMACR 
CORECT = CORRECT THE ERROR 


Beate 13=APR-82 15:49:22 PAGE 39 


SEQ 319 


1 003569 104650 000063 001106 8$: U.UNUM(RS) ,HRO.03 : GET BASE NUMBER 
é 00356 105650 000050 001106 U. SUBU(R5) -HRO.03 : ADD SUBUNIT OFFSET 
003566 104307 001103 Q.ROQ,RO 3 MOVE REQUEST TO RO 
4 003570 021053 HOSTROQ : REPORT TO HOS 
5 003571 115000 001104 0.01 3 SEE IF UNIT DROPPED 
6 003573 073656 $ : IF $0, BRANCH 
? 003574 DROP, 100000 : HOST DROP BIT = BIT 15 
8 003574 104652 000047 U.RCOV(RS),R2  : SEE IF RECOVERY IS ENABLED 
9 003576 073711 90$ : IF NOT, BRANC 
10 003577 ERMASK,100000 ; ASSUME RECOVERY MASK IS SIGN BIT 
11 003577 102200 000002 002226 WATTN,ERMODE : DID WE HAVE AN ERROR? 
lg 003602 013625 0$ : IF NOT, BRANCH 
13 00360 SOFT : ELSE, REPORT SOFT ERROR 
003603 104200 000001 001105 MOV #1,HRO.02 
003606 114000 001106 CLR HRO.03 
003610 114000 001107 CLR HRO.04 
003612 100467 MOV RO,-(SP) 
003613 104657 000063 MOV U.UNUM(RS) ,RO 
003615 105657 000050 ADD U. SUBUCR5) -RO 
003617 104070 001104 MOV RO,HRQ. 
003621 104207 060007 MOV #T4SOFT,RO 
003623 021053 CALL -HOSTRO 
003624 his at MOV (SP)+,RO 
14 003625 023720 50S: RECOVR : RECOVER FROM ERRORS 
15 00 11500¢ R2 : SEE IF ERRORS OCCURRED 
16 00 05335 40$ : IF $0, LOOP 
17 0036 <R0,R1> : RESTORE RO, R1 
003630 104267 MOV (SP)+,RO 
003631 104261 MOV (SP)+-R1 
18 003632 104653 000047 U.RCOV(RS).R3 ; GET RECOVERY WORD 
19 003634 1040 R : STORE IN R2 
20 003635 103202 001000 #RETRY,R2 : CLEAR RETRY BIT 
21 003637 10065 000047 R2,U.RCOV(RS) =: STORE RECOVERY WORD 
@ 003641 10 006000 #SEKREG!RCBREO,RS : SEE IF SEEK NEEDED 
23 003643 01 > IF NOT H 
2 003664 104 07 000023 #SEEK,RO ; SEEK NEXT 
36 00864 4? 10 203 001000 9$: #RETRY RS : SEE IF LAST MODULE SHOULD BE RETRIED 
28 003652 104307 002222 MOV LSTOVL RO : RETRY LAST OVERLAY 
003654 114001 CLR R1 : IMMIDATELY 
003655 003713 BR 100$ + EXIT 
1 003656 80$: POP <R0,R1> : RESTORE REGISTERS 
003656 104267 MOV (SP)+,RO 
bo3ce0 bee +} CALL  DSABLE DISABLE ERROR RECOVERY le mn 
003661 58500 002226 TST ERMODE : SEE IF ENTIRE UNIT DROPPED 
003663 033674 0$ : T, BRANCH 
5 003664 ASSUME DROP, 100000 + ASSUME DROP SIGN BIT 
003664 114001 LR : IMMIDATE CALL 
003665 104207 000026 MOV #DRPALL RO : RPALL NEXT 
? 1 000001 002223 BIT #INTINP.M.PARM 3 SEE If INITIALIZATION IN PROGRESS 
0036 01371 BEQ 100$ ; IF NOT, BRANCH 
40 0036 71 BR NOSUB : IF $0, JUST RETURN TO TROOT 
41 003674 104142 10$: MOV (R4) ,R2 3 GET SUBUNIT PARAMETERS 
4g 003675 ASSUME $.PARM 
4 75 101202 100000 BIS #DROP,R ; DROP SUBUNIT 








UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 39-1 
CORECT = CORRECT THE ERRORS 


R2, (R4) 

$.PARM,0 

U. U_PARR(RS) RI 

4 U. PARM(RS) 
RO 


#SETUP, 
SUB 


NO 
<RO,R1> 


R1 


IF SO, 
RO,U.NFUN(RS) 


; SAVE 


GET UNIT PARAMETERS 
MARK AS FIRST TIME 


SAV 
ae NEXT MODULE 
RESTORE REGISTERS 


; os Ma IMMIDATE CALL 


3 SAVE NEXT FUNCTION 
3 RETURN TO ROOT 


SEQ 321 
UDATS DISK EXERCISER DMACR +o 01 13-APR=82 15:49:22 PAGE 40 ‘ 
RECOVR = RECOVER FROM THE ERR 


1 .SBTTL RECOVR = RECOVER FROM THE ERROR 
: 003720 RECOVR: 
4 ; SET UP DRIVE AS IT SHOULD BE 
6 003720 020746 CALL _—RTDS ; SEE If WE CAN GET VALID STATE 
7 003721 15002 TST R2 : SEE IF WE HAVE VALID STATE 
8 0037 2 054101 BNE 10$ : IF NOT, BRANCH 
9 003723 104203 001612 MOV #CR.ONL,R3 : POINT TO ONLINE COMMAND 
10 003725 021173 CALL _—s*iTALK : INITIATE SOI INTERCHANGE 
11 003726 115002 TST R2 : SEE IF ERROR OCCURRED 
lg 003727 013734 BEQ 1$ : IF NOT, BRANCH 
13 003730 CERROR 5,#SER2 + REPORT’ SECONDARY ERROR 
003730 104200 004670 001110 MOV #SER2,HRO.05 
14 003733 004101 BR 10$ : BRANCH TO ERROR L 
15 003734 104203 001617 1$: MOV #CR.GST,R3 : POINT TO GET STATUS 
16 003736 021173 CALL _—s*iTALK : SEND SDI INTERC 
17 003737 115002 TST : SEE IF AN ERROR OCCURRED 
18 003740 013745 BEQ 2$ + BRANCH IF NO ERR 
19 003741 CERROR 5,#SERO : REPORT SECONDARY ERROR 
003741 104200 004633 001110 nov #SERO,HRO.05 
20 003744 004101 BR 10$ : LOOP AND TRY 
21 003745 104207 177777 2s: MOV #-1,R0 : SET UP FOR COMPLEMENT OF STATUS 
22 003747 103307 001703 BIC ST+ST.REQ,RO 80 HAS US 
23 003751 102207 000023 BIT #ST.PS!ST.SR!ST.RU : sot IF ANY FATAL STATES EXIST 
24 003755 014024 BEQ 63 ; ANC 
5 003754 DEVFTL 23 + REPORT SWITCH ut OR SPINDLE, NO NOT READY 
003754 104200 002162 001107 
003757 104202 047667 mov #931 F FLDEV+<000, .R2 
003761 104020 001105 MOV R2,HRO.02 
003763 104200 003763 001104 MOV #..HRO.01 
003766 104200 060014 001103 MOV #ERRMC .HRO.RO 
26 003771 102207 000001 BIT #ST.RU,RO : SEE IF RUN/STOP SWITCH OUT 
27 003773 014000 BEQ : IF NOT, CH 
28 003774 CERROR 5,4SER42 ; REPORT RUN SWITCH OUT 
003774 104200 002203 001110 MOV #SER42,HRO.05 
29 003777 004012 BR 5% : BRANCH 
004000 102207 000020 3$: BIT #ST.SR,RO : SEE IF SPINDLE DROPPED READY 
1 004002 014007 BEQ : IF C 
004003 CERROR 5,#SER43 : REPORT’ SPINDLE NOT READ 
004003 104200 002217 001110 MOV PSERG3, HRO.05 
33 004006 004012 BR £4 3 BRANCH 
34 004007 4$: CERROR 5,#SERG4 + REPORT PORT SuITCH OUT 
004007 104200 002234 001110 #SER44,HRO.05 
35 00401 5$: ENDERR 
00401 104200 000051 001111 MOV #SER22,HRO.06 
004015 104 000007 002250 Moy #641, ERRPOS : SET THE POSITION 
36 004020 101200 100000 002230 BIS #100000, ERRPOS ; STATUS VALID 
37 004023 004101 BR : BRANCH 
38 004024 102207 000100 63: BIT #ST.RR,RO : SEE IF DRIVE IS TO BE RECAL IBRATED 
39 004026 054030 BNE 7$ : IF NOT, BRANCH (NOTE COMPLEMENT 
40 004027 024235 CALL  GORCLB : MARK AS RECALIBRATION NEEDED 
1 004030 104307 001703 7$: MOV ST+ST.MOD,RO ; GET MODE BIT 
¢ 004032 110707 SWAB ss RO 3 MOVE WRITE PROTECT BUTTON STATUS TO LO BYTE 
43 006033 103207 177417 BIC aL BHING RO : CLEAR UNU 
44 004035 100657 000026 MOV RO,U.WRIT(RS) : SAVE WRITE PROTECT STATUS FOR CHANGE MODE 
45 004037 104301 001704 MOV ST¢ST.ERR,R1 : GET ERROR BITS 
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UDATS DISK EXERCISER DMACR ol 01 13=APR=82 15:49:22 PAGE 40-1 
RECOVR = RECOVER FROM THE ERRO 


#HIBYTE,R1 
#ST.DE,R1 


—2O 
_— 


R 
wer. -CLR,RS 


9$ 
5 .ASER1 


10$ 
U. rt ths oR3 


U.WPRT(R 
#177402, Ra 
R3,WRITAT 
#CR.MOD ,R3 
TALK 


L 
5 .ASERS 
ERMODE 


; GET WRITE PROTECTION BUTTON STATUS 
; SET WRITE PROT BITS a ne ONLY DRIVES 


SEQ 322 


CLEAR UNUSED BITS 
IF NO ERRORS, BRANCH 
SEE IF ‘ DRIVE ERROR OCCURRED 
IF NOT 
SEEK 1§ Br EQUIRED 

MOVE ERROR BITS TO CLEAR DRIVE COMMAND 
POINT TO SDI COMMAND 


INITIATE SDI_ INTERCHANGE 
TF wor IF ANY A a OCCURRED 


- BRANC 
REPORT’ SECONDARY ERROR 
, #SER1,HRQ.05 
BRANCH TO ERROR 


POINT 

INITIATE SDI INTERCHANGE 

REPORT SECONDARY ERROR (IF _NO ERROR, DON'T CARE) 
RESET MOV #SER3,HRQ.05 


ERMODE 
RETURN TO CALLING PROGRAM 






UDATS DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 41 
CHKON = FIND PREVIOUS ACTIVE SUBUNIT 


1 .SBTTL CHKDN = FIND PREVIOUS ACTIVE SUBUNIT 
2 004104 CHKDN: 

4 ; SEARCH THE SUBUNIT LIST DOWN AND TRY TO FIND AN ACTIVE SUBUNIT 

6 004104 104203 000001 MOV #U. SUBP,R3 : R3 WILLPOINT TO SUBUNIT POINTERS 

7 004106 105053 ADD RS,R3 : R3 POINTS TO SUBUNIT POINTERS 
8 004107 117402 1$: DEC R2 > DECREMENT OLD SUBUNIT 

9 004110 O7Gie4 BMI so : IF ALL SUBUNITS CHECKED, BRANCH | 
10 004111 1040 v R3,R4 ; MOVE SUBUNIT LIST POINTER TO R4 
11 004112 105024 ADD R2.R4 : POINT TO SUBUNIT 
12 004113 104144 MOV (RS) RG : R4 POINTS TO SUBUNIT 
13 004114 074107 BMI 1$ : IF NO UNIT, BRANCH | 
14 006115 10414 MOV (R4) ,RO : RO HAS SUBUNIT PARAMETERS 

15 004116 ASSUME S.PARM, : ASSUME THAT S.PARM | 
16 004116 074107 I 1$ : IF THIS SUBUNIT DROPPED, BRANCH | 
17 004117 ASSUME DROP,100000 : ASSUME DROP IS SI 

18 004117 100652 000050 MOV R2,U.SUBU(RS) : SAVE 

19 004121 114007 CLR RO : FOUND A SUBUNIT 
20 004122 114003 CLR R3 : PROCESS THIS SUBUNIT | 
21 004123 004133 BR 3$ : EXIT 
22 004124 104657 000046 2$: MOV U.PARM(R5).RO  : GET UNIT PARAMETERS | 
23 004126 103207 010000 BIC #DIREC,RO + SET DIRECTION UP 
24 004130 100657 000046 MOV RO,U.PARM(RS) =: SAVE 
25 004132 104057 MOV R5.RO : DIDN'T FIND A SUBUNIT | 
26 004133 000000 38: RETURN : RETURN TO CALLING PROGRAM 





B 10 


UDATS DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 42 
CHKON = FIND FOLLOWING ACTIVE SUBUNIT 


1 .SBTTL CHKDN = FIND FOLLOWING ACTIVE SUBUNIT 
¢ 004134 CHKUP: 
4 : SEARCH THE SUBUNIT LIST UP AND TRY TO FIND AN ACTIVE SUBUNIT 
6 004134 104203 000001 MOV #U. SUBP ,R3 : R3 WILLPOINT TO SUBUNIT POINTEPS 
7 004136 105053 ADD RS,R2 : R3 POINTS TO SUBUNIT POINTERS 
8 004137 113408 1$: INC Re : INCREMENT OLD SUBUNIT 
9 004140 106202 000003 CMP #3,R2 : SEE IF ALL SUBUNITS CHECKED 
10 00414¢ 074164 BMI 3$ : IF ALL SUBUNITS CHECKED, BRANCH 
11 004143 1040 MOV R3,R4 : MOVE SUBUNIT LIST POINTER TO R4 
12 004144 105024 ADD R2 > POINT TO SUBUNIT 
13 004145 104144 MOV (RS) RG : R4 POINTS TO SUBUNI 
14 006146 074137 BMI 1$ : IF NO UNIT, BR 
15 004147 104147 MOV (R4),RO : RO HAS SUBUNIT PARAMETERS 
16 004150 ASSUME $.PARM,0 > ASSUME THAT S.PARM IS ZERO 
17 004150 ASSUME DROP, 100000 : ASSUME DROP IS 
18 004150 074137 BM! 1$ : IF THIS SUBUNIT DROPPED, BRANC 
19 004151 115000 002223 TST M.PARM : SEE IF INITIAL WRITE IN PROGRESS 
20 004153 034157 BPL $ : IF NOT, BRANCH 
21 004154 ASSUME IWIPRG,100000 =; ASSUME IWIPRG IS SIGN BIT 
22 004154 102207 040000 BIT #INITW.RO : SEE IF INITIAL WRITE TO BE DONE ON SUBUNIT 
23 004156 014137 BEQ : IF NOT, BRANCH 
24 004157 100652 000050 2s: MOV R2,U.SUBU(RS) : SAVE SUBUNIT NUMBER 
25 004161 114007 CLR RO FOUND 
26 004168 114003 CLR R3 + PROCESS THIS ONE 
27 004163 004202 BR 5$ : EXIT 
28 004164 104651 009046 3$: MOV U.PARM(RS).R1 =: GET UNIT PARAMETERS 
29 004166 115000 00222 TST M.PARM : SEE IF DOING AN INITIAL WRITE 
30 004170 034176 BPL 4$ + IF NOT, CH 
31 006171 ASSUME IWIPRG,100000 ; ASSUME IWIPRG IS SIGN BIT _ 
2 004171 103201 040000 BIC #INITWLRI 3 FLAG INITIAL WRITE AS COMPLETE ON THIS UNIT 
33 006173 1012971 001000 BIS #ETIME.R1 3 START TESTING UNIT 
34 004175 004200 BR 9$ : EXIT 
35 004176 101201 010000 4$: BIS #DIREC,R1 + SET DIRECTON DOWN 
36 004200 100651 000046 9$: MOV R1,U.PARM(RS) : SA 
37 004202 000000 5$: RETURN ; RETURN TO CALLING PROGRAM 


SEQ 325 
UDAT4 DISK EXERCISER DMACR X04. 01 13-APR=82 15:49:22 PAGE 43 
ERROR RECOVERY SUPPORT SUBROUTINES 
1 .SBTTL ERROR RECOVERY SUPPORT SUBROUTINES 
2 .SBTTL ENABLE = ENABLE ERROR RECOVERY 
: 004203 ENABLE: 
; : ENABLE ERROR RECOVERY 
7 004203 104653 000047 . MOV U.RCOV(RS),.R3 =; GET RECOVERY WORD 
8 004205 103203 100000 BIC wER Sk, : CLEAR MASK | 
9 004207 100653 000047 MOV R3,U.RCOV(RS) : SAV | 
10 004211 000000 RE TUR! : RETURN 
11 .SBTTL DSABLE = DISABLE ERROR RECOVERY 
ig 004212 DSABLE: | 
1 ; DISABLE ERROR RECOVERY | 
16 004212 104653 000047 : MOV U.RCOV(RS).R3 =; GET RECOVERY WORD 
17 004214 101203 100000 BIS #ERMASK,R3- : SET MASK 
18 004216 100653 000047 MOV R3,U.RCOV(RS) : SAVE 
19 004220 900000 RETURN : RETURN 
20 .SBTTL GORTRY = RETRY OF MODULE REQUIRED TO RECOVER 
A 004221 GORTRY: 
33 : JUST RETRY THE LAST MODULE TO RECOVER | 
25 004221 024203 : CALL — ENABL E 3 ENABLE ERROR RECOVERY 
26 004222 101203 001000 BIS #RETRY,R3 : SET RETRY BIT 
27 004224 100653 000047 MOV R3,U.RCOV(RS) : SA VE oy 
28 004226 000000 RETURN : RETUR 
29 .SBTTL GOSEEK = SEEK REQUIRED TO RECOVER 
30 004227 GOSEEK: | 
32 : GOSEEK WILL FLAG THAT THE DRIVE MUST SEEK TO RECOVER FROM AN ERROR | 
34 004227 024203 ’ CALL ‘ENABLE ; ENABLE ERROR RECOVERY 
35 004230 101203 004000 BIS #SEKREQ,R3 ; SET SEEK REQUIRED BIT ) 
36 004232 100653 000047 MOV R3,U.RCOV(RS) 3 SAVE | 
37 004234 000000 RETURN : RET URN 
TL GORCLB - RECALIBRATE REQUIRED TO RECOVER 
39 004235 GORCLB: | 
41 : GORCL8 WILL FLAG THAT THE DRIVE MUST RECALIBRATE TO RECOVER FROM AN ERROR 
Py 
¢g 004235 024203 CALL = ENABLE ENABLE ERROR RECOVERY | 
4 004236 101203 006000 BIS PSEKREO!RCBREO, a’ SET SEEK AND RECALIBRATE REQUIRED BIT 
45 004240 100653 000047 MOV R3,U.RCOV(RS) — ; SAVE | 
46 004242 000000 RE TURN RETURN 
47 .SBTTL GOINIT = DRIVE MUST BE INITIALIZED TO RECOVER 
48 004243 GOINIT: 
3 | 
30 ; INIT THE DRIVE, THEN FLAG AS DONE 
Py | 
3 004243 104652 000025 MOV U. MASK (RS) 2: GET PORT 
53 004245 060011 XFC DINIT : INIT THE OR I VE 
54 004246 024287 CALL  GOSEEK ; SEEK REQUIRED IF INITED 
55 004247 101 03 04 BIS #DRINIT,R3 3 THE DRIVE AS INITIALIZED 
56 004251 100653 00004 MOV R3,U.RCOV(RS) : 
57 004253 000000 RE TURN + RETURN 
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~SBTTL 


PTABLE: 
PARTO: 


PART1: 
PART2: 
PARTS: 
PARTI: 
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UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 44 
OVERLAY DATA STRUCTURES AND ASSEMBLY ERROR CHECKING 


OVERLAY DATA STRUCTURES AND ASSEMBLY ERROR CHECKING 


THE PARTITION TABLE n OF THE PARTITION START ADDRESSES AS WELL 
AS HOLDING THE NUMBER (I 
OVERLAY IS LOADED, THE “OVERLAY NUMBER 


AREAI 
AREA2 
BUF ARA 
AREAL 


THE OVERLAY at feet CURRENTLY 


F NO 


3 PARTITION 3 GOES IN READ/WRITE BUFFER AREA 


EACH ENTRY IN THE OVERLAY TABLE IS COMPOSED OF FOUR WORDS: 
ae | TO LOAD OVERLAY INTO 


0 


0 
MSSG$,MS,PARTO 
<PARTO-PARTO>/2 


OVL .MS*4 
SETUP SU, oo hy PARTS 3 


<PARTO=PARTO>/2 
<PARTS-PARTOD/2 


OVL. sus4 4 
NEWOP 
CPARTi“PARTOD/2 


OVL .NO#4 
RNDBE ,RB, PART2 
<PART2-PARTO>/2 


0 

OVL.RB*4 
ePART2 

0 

0 


-$B*4 
RNDTG ART2 
CPARTS“PARTOD/2 


MESSAGES 


SETUP 


NEWOP 


004306 


RNDTG 


000002 





E 10 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 44-1 
OVERLAY DATA STRUCTURES AND ASSEMBLY ERROR CHECKING 


004314 900000 .WORD 0 
004315 0 .WORD OVL.RT#4 
36 004316 DFOVLY »PART2 : 004316 
004317 000000 «WORD 0 
004320 000000 “WORD 0 
004321 002344 “WORD  OVL.ST*4 
37 0043, DFOVLY BUILDP, BP. PARTO,PART3 =; BUILDP 
004322 000000 «WORD  <PARTO-PARTO>/2- 
004323 000003 “WORD <PARTS-PARTOD/3 
004324 000000 WORD 
004325 001344 -WORD  OVL.BP*4 
38 004326 DFOVLY WRITE,W,PARTO : WRITE 
004326 000000 .WORD <PARTO-PARTO>/2 
004327 000000 “WORD 0 
004330 000000 ;WORD 0 
004331 002020 -WORD OVL.We4 
39 004332 DFOVLY AFTWRT,AW,PARTO ; AFTWRT 
004332 000000 .WORD <PARTO-PARTO>/2 
004333 000000 -WORD 0 
004334 000000 <WORD 0 
004335 003020 “WORD OVL.AWe4 
40 004336 DFOVLY READ,R,PARTO : READ 
004336 000000 .WORD <PARTO-PARTO>/2 
004337 000060 “WORD 0 
004340 WORD 
004341 001330 -WORD OVL.Re4 
41 00434 DFOVLY SECCHK,SC,PARTO : SECCHK 
004342 000000 «WORD  <PARTO-PARTO>/2 
004343 000000 “WORD 0 
004344 000000 “WORD 
004345 003064 -WORD OVL.SC*4 
42 004346 DFOVLY CHKEDC,ED,PARTO : CHKEDC 
004346 000000 .WORD  <PARTO-PARTO>/2 
004347 000000 ;WORD 0 
004350 000000 “WORD 0 
004351 001734 “WORD  OVL.ED*4 
43 004352 DFOVLY CHKECC,CK,PARTO : CHKECC 
004 35¢ 000000 .WORD  <PARTO-PARTO>/2 
004353 000000 “WORD 0 
004354 000000 <WORD 0 
004355 002074 <WORD  OVL.CK*4 
44 004356 DFOVLY ERCOV,EC,PARTO : ERCOV 
004356 000000 .WORD <PARTO-PARTO>/2 
004357 000000 -WORD 0 
004360 000000 <WORD 0 
004361 000360 -WORD OVL.EC*4 
45 004 DFOVLY NEWLEV,NL,PARTO 7 NEWLEV 
004 000000 .WORD <PARTO-PARTO>/2 
004363 000000 -WORD 0 
004364 000000 “WORD 0 
004365 000704 -WORD OVL.NL*4 
46 004 366 DFOVLY CMPDAT,CD,PARTO > CMPDAT 
004 000000 «WORD  <PARTO-PARTO>/2 
004367 000000 “WORD 
004370 000000 . WORD 
004371 001404 -WORD OVL.CD*4 


000002 


SEQ 327 





47 OES 


51 004412 


PEEL 


AREA 


0 
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UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 44-2 
OVERLAY DATA STRUCTURES AND ASSEMBLY ERROR CHECKING 


DFOVLY LSTMOD,LM,PARTO : LSTMOD 
eWORD <PARTO=PARTO>/2 
“WORD 0 
“WORD 0 
"WORD OVL.LM*4 
DFOVLY REVCT,RV,PARTO : REVCT 
.WORD <PARTO=PARTO>/2 
“WORD 0 
WORD 
“WORD OVL.RV®4 
DFOVLY SEEK,SK,PART3 : SEEK 
.WORD <PART3-PARTO>/2 
;WORD 0 
WORD 
“WORD  OVL.SK*4 
DFOVLY SEKTST,TS,PART3 : SEKTST 
.WORD  <PART3-PARTO>/2 
“WORD 0 
“WORD 0 
“WORD OVL.TS*4 
DFOVLY RECALB,RC,PART3 : RECALB 
-WORD <PARTS=PARTO>/2 
“WORD 
D 


-WOR OVL.RC*4 
DFOVLY DRPALL,DA,PARTC,PART3 ; DRPALL 
WORD <PARTO=PARTO>/2 
-WORD <PART3=PARTO>/2 


WOR 
WORD OVL.DA*®4 


EVERYTHING FOLLOWING THE AREAO DEFINITION IS IN OVERLAY PARTITION 
SPACE AND WILL BE DESTROYED AFTER INITIALIZATION 


= ° 

DFOVLY INSET,IN,PARTI 3 INSET 
ae neem 

-WORD 0 

WORD OVL.IN®4 

DFOVLY COMCHR,CC,PARTI : COMCHR 
WORD <PARTI=PARTO>/2 

-WORD 0 

-WORD 0 

WORD OVL.CC*4 

DFOVLY SPINUP,SP,PARTI ; SPINUP 
WORD <PARTI-PARTO>/2 

- WORD 

«WORD 

- WORD 


OVL.SP*4 
SFOVLY SORT,SO,PARTI : SORT 
~WORD <PARTI-PARTO>/2 


-WORD OVL.SO*4 
DFOVLY SCHARO,SO,PART : SCHARO 
.WORD  <PARTI-PARTO>/ 


SEQ 328 


FRLENLESELKAR 


— 2 = 





UDATS DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 44-3 
OVERLAY DATA STRUCTURES AND ASSEMBLY ERROR CHECKING 


«WORD 0 

~ WORD 

eWORD OVL.SO*4 

DFOVLY CrHAR $1,PARTI ; SCHARI 
~ WORD <PARTI=PARTO>/2 

eWORD 0 

WORD 

eWORD OVL.S1*4 

DFOVLY GETSER, GS ,PARTI 3 GETSER 
WORD <PARTI=PARTO>/2 

-WORD 0 

WORD 

eWORD OVL.GS*4 

DFOVLY INITD,1D,PARTI ; INITD 
eWORD <PARTI=PARTO>/2 

eWORD 0 

~ WORD 


0 
WORD OVL.ID*4 
= <. = OTABLE> / 4 
GET CHARACTERISTICS AND SUBUNIT CHARACTERISTICS SDI COMMANDS 


NOTE: Brrr OF THEIR ot tHoetuy FOLLOWING SDI LEVEL 2 COMMANDS 


WILL BE ISSUED WITH A LONG T 


Sp1S = 0 ; DOUBLE UP ON THESE COMMANDS, SINCE IF 
> AN ERROR OCCURS te S A DEVICE FATAL 
CR.GCR: MSG GCR,1.11.,CHRRES — ; GET CHARACTER! Stic 
«WORD ‘GCR : ADDRESS OF 5 omunn 
[WORD : SIZE COMMAND IN BYTES 
SWORD 11, : SIZE OF REPLY IN WORDS 
“WORD CHR RES 3 SUCCESSFUL COMPLETION CODE 
, WORD §D1$+U.SD12 RY COUNT OFFSET 
CR.SCR: MSG SCR, 2. 19. ,$BcR ES; GET SUBUNIT” CHARACTERISTICS 
. WORD : S OF COMMAND 
, sor ¢ Ste OF commun IN BYTES 
: 3 SIZE OF REPLY IN WORDS 
“WORD  SBCRES : SUCCESSFUL COMPLETION CODE 
-WORD  $DI$*U.SD12 RETRY COUNT OFFSET 
CR.RUN: MSG RUN,1,7,COMPLT : initiate LOAD 
.WORD ‘RUN : ADDRESS OF COMMAND 
“WORD 1 3 SIZE OF COMMAND IN BYTES 
“WORD ¢ SIZE OF REPLY IN WORDS 
“WORD  COMPLT : SUCCESSFUL COMPLETION CODE 
“WORD  SDI$+U.SD12 ; RETRY COUNT OFFSET 
RUN:  .BYTE 0,DRVRUN : DRIVE 
GCR:  .BYTE O-GETCHR : GET CHARACTERISTICS WITH a 
SCR: BYTE 0.GETSUB : GET SUBUNIT CHARACTERISTICS 
SUBUNT: . WORD : SUBUNIT SELECTIONS IN LOW ORDER BYTE 
: CHECK THAT 4 UNITS WITH 8 SUBUNITS IN ALL, WITH 16 BAD BLOCKS 
; SPECIFIED EACH, CAN FIT IN MEMORY WITHOUT OVERLAPPING WITH 
; THE OVERLAYS OR THE R/W BUFFER SPACE 
IF F ,MAXADR 
MAXSUB = 
MINADR 





ed HIMEM=<<4*<U. LGRP+1>>+<MAXSUB*<S.BESS+68.>>+2> 





UDAT4 DISK EX 
GET CHARACTER 


—rm 


R DMACR X04.01 13-APR=82 15:49:22 PAGE 44-4 
AND SUBUNIT CHARACTERISTICS SD1 COMMANDS 


3 TO DETERMINE READ/WRITE BUFFERS START 
3 TO DETERMINE MAXIMUM OVERLAY ADDRESS 





SEQ 330 





UDAT4 DISK EXERCISER DMACR X04.01 13-APR=-82 15:49:22 PAGE 45 
weeeeeeeee NON-OVERLAY MODULE START = TEST 4 INITIALIZATION 


OWONAOVE WO OONAUS wl 


OUewW—On 


0045 
0045 
0045 
0045 
0045 
0045 
0045 
0045 
0045 
0045 


ONIN dees 
Nounwsrourn 
wn ww 


Fwn— 


SEQ 331 


eSBTTL seeeeeeeee NON-OVERLAY MODULE START = TEST 4 INITIALIZATION 

f AAAAAAAAAAAAAAAAAERAAEREREAEAEAAARARARARAEARARARRARRRARREAAEREAEREERREREEREEEEEEE 
FRAAAAAAAAAARAAERAAAAAEEAARARARAAERARARAARERAAARARERAEAAARAERARAAREEEERHEREEREE 
FRAAAAAAAAAAAAAAEARERAAREAAEARAAAAARARARAAARERERAARREREEEEEREREREEEEERERERREREEE 
FRARARAAAAAAAAAARAAAARAAREEAAERARAARERAAARARAERRAARERAAEREREREREREEAEERAEEEEREEEEE 





THIS ‘OVERLAY’ IS LOADED ALONG WITH THE INITIAL DOWNLINE LOAD OF 

TEST 4. ONCE EXECUTED, THIS OVERLAY IS NEVER LOADED AGAIN UNLESS 
THE ENTIRE TEST IS STARTED (OR RESTARTED) AGAIN. ALL OTHER 
OVERLAYS ARE LOADED INTO THE SPACE THAT THIS ONE OCCUPIES INITIALLY, 
THUS DESTROYING THIS OVERLAY. 


UCURSR: .BLKW 1 
LASTU: . D FIRSTU 
SK: .BLKW 1 
-BLKW 1 
DBN: .BLKW 2 
SECTRK: .BLKW 1 
SECGRP: .BLKW 1 
SECCYL: .8Lkw 1 
GS: Lkw 7 
DSERNM: .BLKwW 3 3; TEMP STORAGE FOR DRIVE SERIAL NUMBER 





es ee —ae a 






ssesesesssesecs 
nuarrrrununis 


SEE 


oe) 


tb ut ss A 
BISS5 
SANS 


SISVRGRONUVS Savanna =so 
sessessssess 


3333 


3 


: 


SEES 


SEREE 


AOUANOS 


o 


8 4710 
° 5374 


Ne 
Nm 


38 
33333 


—C0—3 a ws er wee ee 
BPRsSrSaFEnesees 
WesNsessssosssss 


s 
™ 
oe 





002223 
002223 


START: 


3$: 


1$: 


28: 


4$: 


5$: 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 46 
seeeeeeene NON-OVERLAY MODULE START = TEST 4 INITIALIZATION 


GMPARM 
GETU 


#O1E.M.PARM 


16, ASER39 


#-1,HRO.03 
HR 0 


STOP 
#INTINP,A.PARM 


MEMPOL ,RO 
#BUF 


- LN*LINKLN,R 


R1 
1$ 
R1,SECMAX 


#WBUFLN¢LINKLN,R 


#LINKLN,R3 
5$ 


4$ 
R1, CHNMAX 
ROOT 






Gre Se Ge Se Se Ge Se Ge Se 


LafPe Peo Se eee 
f= 


SEQ 332 


: GET ALL UNITS TO TEST 
BLDUNT t BUILD UNIT AND SUBUNIT PARAMETERS 
#INTINP,M.PARM 


MARK AS INITIALIZATION IN PROGRESS 
FILL OUT UNIT AND SUBUNIT PARM'S, GET SUBUNIT CHAR 


IL 
; 1s IF INITIALIZATION ERRORS 


MOV #SER39, HRO.OS 

MOV #16!F TLDEV+4000. ,R2 | 

MOV R2,HRO.02 
#. .HRO.01 | 


Vv #ERRMC ,HROQ.ROQ 
MOVE "NOT ASSICIATED WITH ANY UNIT’ TO UNIT # 
Sine 


STOP TEST 4 
INITIALIZATION NO LONGER IN PROGRESS 
RO HAS POINTER TO FREE MEMORY 
SUBTRACT END OF CODE FROM FREE MEMORY 
SAVE AMOUNT OF FREE MEMORY 
CLEAR COUNT 

; SUBTRACT NEEDED MEM FOR READ 
IF NO MORE MEMORY, BRANCH 
INCREMENT COUNT 
SAVE_IN SECTOR MAXIMUM | 
CLEAR COUNT 

; SUBTRACT NEEDED MEM FOR WRITE 
INCREMENT COUNT ; 
SUBTRACT LINK LENGTH FROM MEMORY 
IF MEMORY EXHAUSTED, BRANCH 


ooP 
SAVE _IN SECTOR MAXIMUM 
START EXERCISE 







- SBTTL 


5 

$ 004625 107070 002227 
004627 104307 002227 

22 004631 000000 


; 004625 GE TMEM: 


K 10 
SEQ 333 


UDATS DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 47 
GETMEM = ALLOCATES MEMORY FOR UNIT AND SUBUNIT BLOCK AND SUBUN 


GETMEM = ALLOCATES MEMORY FOR LNIT AND SUBUNIT BLOCK AND SUBUNIT PARAMETERS 


RETURN A BLOCK OF MEMORY 
SUB RO,MEMPOL Bey REQUESTED LENGTH FROM MEMOY 


POOL 
MOV MEMPOL ,RO : LOAD RO WITH POIN — TO REQUESTED MEMORY 
RETURN : RETURN TO CALLING PROGRAM 


L 10 







SEQ 334 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 48 
CBB2 = 28 BIT COMPARE FOR SETUP MODULES 


2 


ggete CBB2 == 28 BIT COMPARE FOR SETUP MODULES 


¢ 004632 

: : 28 BIT COMPARE FOR BAD BLOCKS 

6 004632 104634 000001 MOV 1(R3) ,R4 3 GET WORD THAT R3 oie TO 
7? 004634 103204 170000 BIC #*CHBHINB RG 3 STRIP _OFF UNUSED BITS 

8 004636 104625 000001 MOV 1(R2) RS ; GET OTHER WORD TO COMPARE 
9 004640 103205 170000 BIC #*CHBHINB RS : STRIP OFF THE UNUSED BITS 
10 oneees 106045 CMP R4,R5 3 COMPARE 

11 00464 Fang ps BNE : If AE nine IS FOUND, BRANCH 
\¢ 004644 1041 MOV (R2) ,R5 3 GET OTHER WORD TO COMPARE 
13 004645 106135 CMP (R35) RS : COMP 

14 004646 000000 1$: RETURN ; RETURN TO SORTBE 





i _— 4 


} 


SEQ 335 





UDATS DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 49 
TROOT = TEMPORARY ROOT FOR URING TEST 4 SETUP 






1 .SBTTL TROOT = TEMPORARY ROOT FOR URING TEST 4 SETUP 
: 004647 TROOT: 
4 : TROOT WILL FILL OUT THE AS YET UNDEFINED FIELDS IN BOTH UNIT | 
; : AND SUBUNIT PARAMETERS, AS WELL AS GETTING THE SUBUNIT CAHRACTERISTICS 
7 004647 104205 007702 MOV #F IRSTU,RS : RS POINTS TO FIRST SUBUNIT | 
8 004651 114008 MKLOOP: CLR R : FOR ZEROING RECOVERY WORD 
9 004652 10065 047 MOV R2,U.RCOV(RS) ; ZERO RECOVERY WORD | 
10 004654 104207 001000 MOV #FTIME, 3 MARK AS FIRST TIME (WILL DISABLE RECOVERY) 
11 004656 100657 5 MOV RO,U.PARM(RS) = SAVE 
12 004660 104201 000027 MOV #INSET,R1 : FIRST MODULE IS INSET | 
13 004662 100651 000013 MOV R1,U.NFUN(RS) ; SAVE IN UNIT PARAMETERS 
14 004664 104201 000003 MOV #3, 3 SDI SHORT TIMEOUT SET TO 30 SEC 
15 004666 100651 000033 MOV R1,U.SDIS(R5) ; MOVE TO PARAMETERS 
16 004670 104201 000360 MOV #360,R1 3 WRITE PROTECT THE ENTIRE DRIVE | 
17 004672 100651 000045 MOV R1,U.WPRT(RS) : SAVE 
18 004674 022577 CALL - RUN R | 
19 004675 104657 046 MOV U.PARM(R5) RO ; GET UNIT PARAMETERS 
20 004677 101207 001000 BIS #FTIME,R : SET FIRST TIME 
21 004701 100657 000046 MOV RO,U.PARM(RS) =: SAVE 
22 004703 104155 MOV (R5) RS 3 TRAVERSE TO NEXT UNIT 
23 004704 ASSUME U.NEXT,O 
24 004704 106205 007702 CMP #F IRSTU,RS 3 SEE IF TRAVERSED ENTIRE RING: 
25 004706 054651 BNE MKLOOP 3 IF NOT, BRANCH 
26 004707 000000 RETURN : RETURN TO CALLING PROGRAM 
27 004710 AREAL = = z INITILIZATION OVERLAY AREA 
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UDATS Ry ' EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 50 
GMPARM = GET MASTER PARAMETERS (PATTERN 16) AND SET UP OVERLAY 


Pet GMPARM = GET MASTER PARAMETERS (PATTERN 16) AND SET UP OVERLAY ADDRESSES 


MORE : 


1$: 


2s: 


3$: 


GET MASTER PARAMETERS 


OVSTRT,R2 


OVSTRT+1,R3 
Re, OTABLE+2 
#NUMOVL 


POTABLE “Ren? 
3cR5) Ri 
#100001,R1 
R1,R2 


R3 
R2,6(R5) 
7(R5), 
R3,R1 
R1,7(R5) 
#4,R5 


RO 


MORE 

thw ke RO 
HOST 
oor 01 RO 


)+,R2 


#PATO+1,R1 
R2 


GET STARTING ADDRESS OF OVERLAY (LO) 
GET STARTING ADDRESS OF OVERLAY (HI) 
MOVE STARTING oF Oven by OVERLAY TABLE 


RO HAS 
RS POINTS TO OVERLAY TABLE 
R1_ HAS ene atten 


SHIFT TO 

CLEAR UNUSED BITS 

FIND yo OF NEXT OVERLAY 
IF NO CARRY, BRANCH 

PROPOGAT 


E CARRY 
STORE STARTING. a tae OF NEXT OVERLAY 
GET OVERLAY LENGTH (<<2) 

1 ORDER OVERLAY ADDRESS 


INT TO NEXT OVERLAY AREA 


POIN 
; are: NT _ COUNT 


F ALL OVERLAYS NOT ener UP, BRANCH 


E QUEST 
POINTS TO PATTERN Ape cnn ct 


; Re HAS LENGTH OF PATTERN 
F NO PATT 


ANCH 
Rt POINTS TO PATTERN 16 AREA (SKIP EDC) 
MOVE oly gl vy oe He TO PATO AREA 

GET WORD OF 

MOVE TO PATTERN 16 AREA 

DECREMENT COUNT 

IF COUNT UNEXHAUSTED, BRANCH 

RETURN TO CALLING PROGRAM 


SEQ 336 


+ -- - 






SEQ 33 





UDAT4 Disk EXERCISER DMACR X04.01 13-APR-82 15: — 22 PAGE 51 
GETU = POLL ALL PORTS, THEN GET UNITS TO TES 





1 .SBTTL GETU = POLL ALL PORTS, THEN GET UNITS TO TEST 
é 004764 GETU: 
4 ; GET THE UNITS TO TEST | 
° | 
5 ; 
4 ; POLL ALL PORTS AND FILL IN A UDA PORT INFORMATION TABLE (UNITS) | 
9 004764 104205 000001 MOV #1,R5 : MOVE INITIAL MASK TO RS 
10 004766 104204 005354 MOV #UNITS RG * RG POINTS TO UNIT TABLE 
11 004770 5$: PUSH RG + SAVE R4 
004770 100464 MOV R4,=(SP) 
1H 004771 104052 MOV RS,R2 : MOVE MASK TO R2 
13 004772 021007 CALL ——- RDSTAT : GET DRIVE'S STATUS 
14 004773 115002 TST R2 * SEE IF ERROR 
15 004774 015006 BEQ 208 ; IF NOT, BRANCH 
16 004775 075001 BMI 10$ : IF MSB. PARITY ERRORS > HALF SECOND 
17 006776 104203 005210 MOV #SER10,R3 + NO DRIVE ATTACHED 
18 005 00500 BR 15$ + BRANCH 
19 005001 104203 002246 10$: MOV #SERGS.R3 ; PARITY ERRORS > HALF SECOND 
20 005003 100643 000001 15$: MOV R3,1(R4) 3 SAVE ERROR MESSAGE 
A 005005 005200 BR 106$ : REPORT 
005006 114003 20$: CLR R3 : SET UP TIMEOUT COUNT 
005007 104052 25$: MOV R5,R2 : MOVE «port SELECT TO R2 
5% 005010 021007 CALL _—-RDSTAT : GET STATUS | 
25 005011 115002 TST R2 : SEE iY “Eriton 
005012 055016 BNE 30$ : IF ANCH 
27 005013 102201 000001 BIT #RCVRDY,R1 : SEE sf RECEIVER READY ASSERTED 
28 005015 055025 BNE 35$ : IF 
29 005016 117403 30$: DEC t DECREMENT 
005017 055007 BNE 25$ : IF INCOMPLETE BRANCH 
1 005020 104208 005223 MOV #SER11,R3 : RECEIVER READY NEVER ASSERTED 
005022 100643 000001 MOV R3,1(R4) : SAVE ERROR MESSAGE 
005024 903200 BR 106$ : REPORT 
005025 102201 000100 35$: BIT #AVAIL. RI : SEE IF DRIVE | IS AVAILABLE 
5 005027 055035 BNE 40$ : IF SO 
0050 104208 005440 MOV #SER4O,R3 : GET SECONDARY ERROR 
3 005032 1 00000 MOV R3,1(R4) : SAV 
005034 005200 BR 106$ ; 
39 005035 104 : 001750 40$: MOV #MAXSND .R : set ‘yp MAXIMUM TRIES AT SENDING 
40 905037 104 001617 MOV #CR.GST.R : R3 POINTS TO GET STATUS COMMAND 
41 005041 104137 45$: V R3) RO + SET ADR OF SDI Command BUFF 
42 00504 ASSUME 12.0PC,0 
43 005042 104631 000001 MOV L2.SLN(R3),R1 =; SET BUFFER LENGTH 
44 00504 PUSH R : SAVE R2 
005 1004 MOV R2,-(SP) 
45 005045 10405 MOV RS,R2 : SETUP FOR SEND 
00 KFC SEND + SEND COMMAND 
47 00504 R : RESTORE COUNT | 
005047 104262 MOV (SP)+,R2 
42 005050 115001 TST R1 : DID UNIT ACCEPT COMMAND | 
49 005051 015061 BEQ 508 ; RANCH 
50 005052 117402 DEC Re : DECREMENT COUNT 
005053 05504 BNE 4 + IF UNEXPIRED, BRANCH 
3; GET ERROR NUMBER 


SEQ 338 
UDATS DISK EXERCISER DMACR X04.01 S-APR-82 15: 349: 22 PAGE 51-1 | 
GETU = POLL ALL PORTS, THEN GET UNITS TO T 
55 005061 50$: PUSH RG : SAVE R64 
90506} 100464 MOV R4,=(SP) 
56 005 104204 00000 MOV #3,R6 : SET UP SHORT TIMEOUT 
57 005064 104 07 00170 55$: MOV #5T,RO : SET DATA BUFFER ADDRESS 
8 005066 104631 00000 MOV L2.RLNCRS) RI + SET BUFFER LENGTH 
59 005070 104052 MOV R5,R : SETUP FOR RECEIVE 
60 005071 060005 KFC RCV : RECEIVE SDI C 
61 00507 113001 TST R1 + DID ERROR OC( 
005073 015133 BEQ 85$ : IF NOT, BR 
63 005074 106201 000001 CMP #1,R1 : SEE wf TIMEOUT | 
64 005076 055105 BNE 60$ : ANCH 
65 005077 117404 DEC R4 : DECREMENT” TIMEOUT VALUE 
005100 055064 BNE 55$ + IF NOT TIMEOUT, BRANCH 
67 005101 POP RG : RESTORE R 
005101 104264 MOV (SP)+,R4 
68 005102 104203 005253 MOV #SER13,R3 : GET ERROR NUMBER | 
69 005104 005130 BR 80$ t BRANCH TO EXIT 
70 005105 60$: POP : RESTORE R4 
005105 104264 MOV (SP)+,R4 | 
71 005106 110601 ROR R1 : ROTATE INTO POSITION TO TEST 
ie: 005107 110601 ROR R1 ; SEE IF FIRST WORD NOT START FRAME 
73 005110 045114 BCC 65$ + IF NOT, BRANCH 
74 005111 104203 005266 MOV #SER14,R3 : GET ERROR NUMBER 
75 005113 005130 BR 80$ : BRANCH TO END OF LOOP 
76 005114 110601 65$: ROR R1 : SEE IF FRAMING ERROR | 
77 005115 045121 BCC 70$ : IF NOT, BRANCH | 
78 005116 104203 005314 MOV #SER15,R3 : GET ERROR NUMBER 
79 005120 005130 BR 80$ t BRANCH TO END OF LOOP 
80 005121 110601 70$: ROR R1 t SEE IF CHECKSUM ERROR 
81 00512¢ 045126 BCC 75$ + IF NOT, BRANCH | 
82 005123 104203 005336 MOV #SER16,R3 + GET ERROR NUMBER 
83 005125 005130 BR $ : BRANCH TO END OF LOOP 
84 005126 104203 005361 75$: MOV #SERI7 R3 : GET ERROR NUMBER 
85 005130 100643 000001 80$: MOV 3,7(R4) : 
86 005132 005200 BR fds : BRANCH TO END OF LOOP 
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SEQ 339 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 52 
GETU = POLL ALL PORTS, THEN GET UNITS TO TEST | 
1 : 
4 : NOW FILL IN THE TABLE WITH ALL THE SUBUNIT NUMBERS 
4 005133 &5$: POP RG : RESTORE R4 
005133 104264 MOV (SP)+,R4 
5 005134 104207 177777 MOV #=1,RO0 : GET "NO UNITS' FLAG 
6 005136 100647 000001 MOV RO, 1(R4) : CLEAR ANY ERRORS THAT ARE FLAGGED 
7 005140 100647 00000 MOV RO.2(R4) : CLEAR ANY ERRORS THAT ARE FLAGGED | 
8 005142 104307 00170 MOV ST.RO : RO HAS UNIT NUMBER | 
9 005144 104072 MOV RO.R2 : COPY RO TOR 
10 005145 103207 170000 BIC #°CHBHINB,RO =: RO HAS UNIT NUMBER 
11 005147 PUSH  <R1,R2> : SAVE R1 AND R2 | 
005147 100461 MOV R1,=(SP) | 
005150 10046¢ MOV R2,=(SP) 
12 005151 10405 MOV RS,R2 : MOVE UDA PORT MASK TO R2 | 
1 00515¢ 021007 CALL = RDSTAT : GET STATUS | 
14 005153 102201 000002 BIT #ATIN,R1 : SEE IF SPINABLE 
15 005155 055160 BNE 9 : IF SO, BRANCH | 
16 005156 101207 010000 BIS #10000,R0 : SET "NOT SPINABLE' FLAG 
17 005160 90$: POP <R2,R1> + RESTORE 
005160 104262 MOV (SP)+,R2 
005161 104261 MOV (SP)+.R1 
18 005162 101207 040000 BIS #40000,R0 : FLAG UNIT AS NOT TESTED | 
19 005164 110702 SWAB OR : SWAP R2°S BYTES | 
20 005165 119602 ROR R : MOVE SUBUNIT MASK TO LO NIBBLE 
21 005166 11060 ROR R : MOVE SUBUNIT MASK TO LO NIBBLE 
22 005167 11060 ROR R : MOVE SUBUNIT MASK TO LO NIBBLE 
23 005170 11060 ROR R : MOVE SUBUNIT MASK TO LO NIBBLE 
24 005171 103202 177760 BIC #LBLONB,R2 : CLE BUT SUBUNIT BIT 
25 005173 110602 95$: ROR : MOVE SUBUNIT BIT TO CARRY 
26 005174 045200 BCC 100$ : IF — SUBUNITS, BRANCH | 
27 005175 100247 MOV RO, (R4)¢ : MOVE SUBUNIT NUMBER TO TABLE 
28 005176 115407 INC RO : INCREMENT SUBUNIT NUMBER 
29 005177 005173 95$ + BRANCH 
3} | 
33 005200 100$: POP RG : R4 POINTS TO START OF UNIT JUST HANDLED | 
005200 104264 MOV (SP)+,R4 
34 005201 105204 000004 ADD #4 RG : R4 WILL POINT TO NEXT UNIT (CLEAR CARRY FOR ROL) 
35 005203 110205 ROL RS + RS HAS NEXT UNIT PORT MASK 
36 005204 106205 000020 CMP #20,R5 : SEE IF ALL PORTS TESTED 
37 005206 054770 BNE 5$ : IF NOT, BRANCH 
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15:49:22 PAGE 53 
TEST 


NOW GET THE PLUG NUMBERS TO TEST AND FIND THEM IN THE TABLE 
MOV #UTOTST,RO WHAT SUBUNIT NUMBERS TO TEST REQUEST 


: GET 
CALL -HOSTRQ : GET THE PLUG NUMBERS 
MOV #HRQ.01,R0 : RO POINTS TO UNIT NUMBERS TO TEST 
MOV #UNITS : R1 POINTS TO UDA PORT INFORMATION 
MOV (R1) RO : R2 HAS UNIT 
BMI 130$ 3 IF NONE, BRANCH 
PUSH = RI : SAVE R1 
MOV R1,<(SP) 
BIC #160000,R2 : CLEAR "NOT TESTED’, LEAVE "UNSPINABLE’ SET 
CMP (RO) ,R2 : SEE If IT IS A UNIT TO TEST 
BNE 1 : NO MATCH 
MOV R2,(R1) : SAVE UNIT AS ONE TO TEST 
POP R1 : RESTORE STACK 
MOV (SP)+,R1 
BR 175$ : LOOK FOR THE NEXT ONE 
INC R1 : POINT TO NEXT SUBUNIT 
MOV R1,R2 : COPY TO R2 
SUB ITS,R2 : SUBTRACT STARTING ADDRESS 
BIT #3,R2 : SEE IF STILL ON SAME UNIT 
BEQ 125$ 3 IF NOT, BRANCH 
MOV (R1) ,R2 : SEE IF ANY MORE SUBUNITS 
BPL 115$ 3 IF SO, BRANCH 
POP R1 : RESTORE R1 
MOV (SP)+,R1 
ADD #4,R1 : LOOK AT NEXT UNIT 
CMP WUNITS+16.,R1  : SEE IF ENTIRE TABLE SEARCHED 
BNE 110$ : IF NOT, BRANCH 








SEQ 341 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15: “mi 22 PAGE 54 
GETU = POLL ALL PORTS, THEN GET UNITS TO TEST 


1 3 
4 ; DIDN'T FIND THE REQUESTED UNITS == DUMP ALL KNOWLEDGE OF THE 
; : UDA PORTS AND DIE 
5 005247 104170 001106 MOV (RO) ,HRO.03 : SAVE UNIT NUMBER IN REQUEST BUFFER 
6 005251 104204 001110 MOV #HRQ.05,R4 : R4 POINTS TO OUTPUT BUFFER 
7 005253 104205 005354 MOV #UNITS,R : RS POINTS TO UN 
8 005255 104157 135$: MOV (R5) RO : GET FIRS 
9 005256 035263 BPL 140$ : IF VALID UNIT WAS FOUND, BRANCH 
10 005257 104657 000001 MOV 1(R5) ,RO : GET POINTER TO ERROR MESSAGE 
11 905261 100247 MOV RO, (R4)+ 3 SAVE IN OUTPUT BUFFER 
1g 005 005316 BR 170$ : EXIT 
13 00526 140$: PUSH RS : SAVE POINTER TO UNIT TABLE 
005263 100465 MOV RS,=(SP) 
14 005264 102207 010000 BIT #10000,R0 : SEE If DRIVE UNSPINABLE 
15 005266 015272 BEQ : IF SPINABL ANCH 
16 005267 104207 005462 MOV #SER41,RO : REPORT DRIVE(S) UNSPINABLE 
17 005271 005274 BR 150$ + BRANCH 
18 005272 104207 005413 145$: MOV a#SERI8 RO t GET POINTER TO ERROR MESSAGE 
19 005274 100247 150$: MOV (R4S+ : SAVE 
20 005275 114007 CLR : CLEAR COUNT 
21 005276 104851 155$: MOV a : GET UNIT NUMBER 
22 005277 075304 BMI 160$ : IF INVALID, BRANCH 
23 005 115407 INC RO : INCREMENT T 
24 005301 106207 000004 CMP #4,RO : SEE wif 
25 005303 055276 BNE 155$ : IF LOoP 
005 104671 005347 160$: MOV SER18E-1(RO).R1 : GET ~PoINTeR TO CORRECT ERROR MESSAGE 
27 005 100241 MOV R1, (R4)+ : MOVE INTO OUTPUT BUFFER 
28 005307 : VESTORE RS 
005307 104265 MOV (SP)+,R5 
29 005310 PUSH RS : SAVE RS 
005310 100465 MOV RS,=(SP) 
30 005311 104251 165$: MOV (RS)+,R1 : GET SUBUNIT NUMBER 
31 005312 100241 MOV R1,(R4)+ > SAVE 
32 005313 117407 DEC RO. : DECREMENT COUNT 
33 005314 055311 BNE 165$ : IF COUNT _{NCOMPLETE. BRANCH 
34 005315 POP RS + RESTOR 
005315 104265 MOV (SP)+,R5 
35 005316 105205 000004 170$: ADD #4,R5 : POINT TO NEXT UNIT TABLE 
36 005320 106205 005374 CMP WUNITS*+16..R5 : SEE IF ENTIRE TABLE SEARCHED 
37 005 2 055255 BNE 35$ : 1F NOT, CH 
38 005 DEVFTL 1000 : REPORT FATAL ERROR (WILL SHOW UP AS A 5000) 
005323 104 005071 001107 #ER1000. HRO.04 
005326 104202 051610 nov Rosnma-0g 00-2 
005330 104020 001105 MOV R2 
005332 104200 005332 001104 MOV 
005335 104 060014 001103 MOV #ERRMC, ioe. RO 
39 005340 104307 001103 MOV HRO.RO,RO : SET UP FOR REPORT 
40 005 34¢ 021033 CALL HOSTRO : REPORT ERROR 
41 00534 2573 BR : END T 
¢g 005344 115407 175$: INC RO : POINT TO NEXT UNIT TO TEST 
44 005345 104172 MOV (RO) ,R2 ; CHECK K NEXT UNIT 
45 005346 035214 105$ : FIND IN UDA PORT INFORMATION 
46 005347 000000 RETURN : RETURN TO INITIAL LZATION CODE 
48 005350 005435 SERI8E: .WORD SERIBA 3 FOR MULTIPLE SUBUNIT ERROR REPORTING 
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SEQ 342 
UDATS DISK EXERCISER DMACR X04.01 13-APR-82 15: — 22 PAGE 54-1 
GETU = POLL ALL PORTS, THEN GET UNITS TO TES 
49 005351 005431 -WORD SER18B 
50 005352 005425 WORD SER18C 
2) 005353 005421 -WORD SER18D 
3 005354 000020 UNITS: .REPT 16. 
3¢ ot 177777 3 UNITS AND THEIR SURPERVISOR NUM 
005354 177777 WORD 177777 3 UNITS AND THEIR SURPERVISOR NUM 
005355 177777 «WORD 177777 3 UNITS AND THEIR SURPERVISOR NUM 
005356 177777 «WORD = 177777 : UNITS AND THEIR SURPERVISOR NUM 
005357 177777 WORD 177777 3 UNITS AND THEIR SURPERVISOR NUM | 
005360 177777 WORD 177777 3 UNITS AND THEIR SURPERVISOR NUM 
005361 177777 WORD 177777 3 UNITS AND THEIR SURPERVISOR NUM 
Ooaees 177777 WORD 177777 3 UNITS AND THEIR SURPERVISOR NUM 
005365 177777 WORD 177777 3 UNITS AND THEIR SURPERVISOR NUM 
005364 177777 WORD 177777 3 UNITS AND THEIR SURPERVISOR NUM 
005365 177777 «WORD 177777 3 UNITS AND THEIR SURPERVISOR NUM 
O03 808 177777 WORD 177777 : UNITS AND THEIR SURPERVISOR NUM 
005367 177777 WORD 177777 3 UNITS AND THEIR SURPERVISOR NUM 
005370 177777 WORD 177777 3 UNITS AND THEIR SURPERVISOR NUM 
005371 177777 «WORD 177777 2 UNITS AND THEIR SURPERVISOR NUM 
003376 177777 WORD 177777 3 UNITS AND THEIR SURPERVISOR NUM 
005373 177777 WORD 177777 3 UNITS AND THEIR SURPERVISOR NUM 
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SEQ 343 
UDAT4 DISK EXERCISER DMACR X04.01 1S-APR-62 15:49:22 PAGE 55 
BLOUNT = BUILD THE UNIT PARAMETER B | 
1 .SBTTL ®LDUNT = BUILD THE UNIT PARAMETER BLOCK 
é 005374 BLDUNT: 
4 : BLDUNT WILL BUILD THE UNIT AND SUBUNIT PARAMETERS 
6 005.4 104208 000001 MOV #1,R2 : PORT 1 MASK 
7 005376 104020 004507 MOV R2. UMASK t SAVE MASK | 
8 005400 104204 005354 MOV #UNITS, RG : POINT TO UNITS TO BE TESTED TABLE | 
9 005402 104147 ULOP: MOV (R4) RO : GET UNIT TO BE TESTED 
10 005403 075465 BMI NOU : IF FIRST UNIT NOT TO BE TESTED, BRANCH 
11 005404 102207 040000 BIT #40000,R0 : SEE IF FIRST SUBUNIT TO BE TESTED | 
Ig 005406 015426 BEQ 3$ : IF S ANCH 
13 005407 104647 000001 MOV 1(R4) RO : GET SECOND SUBUNIT INFORMATION | 
14 005411 102207 040000 BIT #40000,R0 : SEE | IF THIS SUBUNIT IS USED | 
15 005413 015426 BEQ 3$ : IF BRANCH 
16 005414 104647 000002 MOV 3(R4),RO : SEE af; THIRD SUBUNIT TO BE TESTED | 
17 005416 102207 040000 BIT #40000,R0 : CHECK TESTING BIT 
18 005420 015426 BEQ 3$ : IF IT IS TO BE TESTED, BRANCH 
19 005421 104647 000003 MOV 3(R4) RO : SEE IF FOURTH SUBUNIT TO BE TESTED | 
20 005423 102207 040000 BIT #40006,R0 : TEST TESTING BIT | 
21 005425 055465 BNE NOU + IF UNIT (THE WHOLE THING) NOT TO BE TESTED, BRANCH | 
22 005426 104207 000072 3S: MOV #TLEN.U,RO + RO HAS UNIT DATA STRUCTURE LENGTH 
23 005430 024625 CALL  GETMEM > GET MEMORY | 
24 005431 100707 177053 MOV RO, @LASTU : LINK LAST POINTER TO THIS ONE | 
25 005433 ASSUME U.NEXT 
26 00 104070 004506 MOV RO,LASTU : SAVE POINTER TO THIS ONE 
27 005435 100672 000025 MOV R2.U.MASK(RO) ; SAVE PORT SELECT MASK 
28 005437 104203 000004 MOV #4.R3 : MAXIMUM OF FOUR SUBUNITS 
005441 PUSH = RO + SAVE POINTER TO UNIT INFORMATION | 
005441 100467 MOV RO,-(SP) 
005442 104145 MOV (R46) RS : GET STARTING SUBUNIT NUMBER 
1 005443 103205 1 BIC #°CHBHINB.RS : CLEAR "NOT USED’ BIT, IF SE | 
005445 100675 boone ‘3 MOV RS,U. ) +: SAVE STARTING SUBUNIT NUMBER 
33 005447 105207 000001 ADD * SUBPR : RO WILL POINT TO SUBUNIT POINTERS 
34 005451 104245 1$: MOV (RO) + RS 3 MOVE SUBUNIT NUMBER TO UNIT PARAMETERS 
35 005452 102 5 040000 BIT 40006, 85 : SEE RY SUBUNIT TO BE Estep 
36 005454 015457 BEQ $ : 
7 005455 104205 177777 MOV “1,5 FLAG SUBUNIT AS NOT TESTED | 
005457 100275 2s: MOV RS, (RO)* : MOVE TO SUBUNIT POINTERS (NON-NEG IF TESTED) 
005460 117403 DEC R3 3 DECREMENT C | 
40 005461 055451 BNE 13 : IF ALL SUBUNA TS ARE FILLED IN, BRANCH | 
41 00 POP RO + RESTORE RO | 
00 104267 MOV (SP)+,RO 
42 00546 107204 000004 SUB #4 RG 7 R4 NOW POINTS TO BEGINNING OF UNIT oiee | 
43 005465 104 004507 NOU: MOV UMASK ,R2 : GET UNIT PORT MASK | 
44 005467 110 ROL : ROTATE TO NEXT PORT | 
45 005470 104020 004507 MOV R2,UMASK : SAVE MA 
46 005472 105 ADD #4.R6 + R4 POINTS TO NEXT UNIT INFORMATION | 
47 005474 1 bossa CMP #UNITS*16..R4  : SEE IF ALL UNITS SET UP 
48 005476 05 BNE : IF ALL UNITS NOT SETUP, BRANCH | 
49 0054 10420 770 MOV sF IRSTY R3 : COMPLETE RING | 
50 005501 100 17700 MOV aLaStu : LAST UNIT NOW POINTS TO FIRST 
51 00550 ASSUME nO XT,0 | 
5 503 104207 007702 MOV #F IRSTU,RO : RO POINTS TO FIRST UNIT PARAMETERS | 
53 00550 SUSETL: PUSH RO + SAVE POINTER TO UNIT PARAMETERS | 
~ 005505 100467 MOV RO,-(SP) 


I 11 









SEQ 344 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 A 55-1 
BLOSUS = BUILD ALL SUBUNIT PARAMETER BLOCKS ON THIS UN 


55 -SBTTL BLDSUS = BUILD ALL SUBUNIT PARAMETER BLOCKS ON THIS UNIT 
56 sBLDSUS 


w 
~ 
. 


38 ; BUILD ALL SUBUNIT PARAMETERS 

60 005506 104204 000001 MOV #U. SUBP,R4 : R4 WILL POINT TO SUBUNIT POINTERS 

61 005510 105074 ADD RO.R R4 POINTS TO SUBUNIT POINTERS 

62 005511 104670 000063 004505 MOV U, "WROD ,ucuRs : SAVE SUBUNIT NUMBER 

63 005514 104205 000004 MOV : MAX xu NUMBER OF SUBUNITS 

64 005516 104147 SLOP: MOV tat) »RO ; RO GETS SUBUNIT "POINTER® 

65 005517 076013 BMI NOSUN : IF SUBUNIT INACTIVE, BRANCH 

66 005520 104070 004505 MOV UCURSR : UCURSR GETS SUBUNIT NUMBER 

67 0055 PUSH ane R4,R5> : SAVE R3 = RS 
005522 100463 MOV R3,-(SP) 
005523 100464 MOV R4.=(SP) 
005524 100465 MOV R5.=(SP) 


J1 
SEQ 345 
UDAT4 7s se ia hen DMACR X04.01 13-APR-82 15:49:22 PAGE 56 
BLOBES - HOW MANY WORDS NEEDED FOR THE BEGIN/END OR TRACK 


; pri. BLDBES - FIND HOW MANY WORDS NEEDED FOR THE BEGIN/END OR TRACK/GROUP SETS 
3 ; COMPUTE THE BEGIN/END SET AREA NEEDED 

6 003362 104300 004505 001104 MOV UCURSR,HRQ.01 ; MOVE SUBUNIT NUMBER TO COMMUNICATION AREA 
? 0055 104207 060004 MOV #TGUPRM,RO 3 MOVE REQUEST ety Ma RO 

8 003336 oe S38 CALL HOSTRQ 3 REQUEST INFORMATION FROM HOST 

9 005535 102200 000040 001104 BIT #BEUSED.WRQ.01 ; SEE IF BEGIN/END SETS ARE USED 

10 005536 055544 BNE $ : IF SO, BRANCH 

11 005537 ef 344 goose MOV #S.TGSS+1,RO ; MAXIMUM CONFIGURATION LENGTH 

i 005541 105307 00111 ADD HRQ.07,RO 3 ADD NUMBER OF T/G SETS 

13 005543 005555 BR BLDBB 3 BRANCH 

14 005544 104207 000013 2$: MOV #S.BESS,RO 3 MINIMUM CONFIGURATION WORD COUNT 

15 005546 104301 001106 MOV HROQ.03,R1 : GET NUMBER OF BEGIN/END SETS 

16 005550 055552 BNE 1$ 3 IF NON-ZERO, BRANCH 

17 005551 115401 INC R1 3 MAKE R11 

18 O03336 105011 1$: ADD R1,R1 3 MAKE B/E SETS * 2 

19 005553 105011 ADD R1,R1 3 MAKE B/E SETS * 4 

20 005554 105017 ADD R1,R0 : ADD TO LENGTH OF SUBUNIT PARAMETERS 








SEQ 346 


UDATS ty j EXERCISER DMACR X04.01 13-APR=82 15: - $. “tons 57 
BLOBB FIND HOW 


HOW MANY WORDS NEEDED FOR THE BAD B 


grees BLDBB = FIND HOW MANY WORDS NEEDED FOR THE BAD BLOCKS 


S 
w 
val 
wn 
w 


= 
ROMA 
W—auu 
ow — 
—~“VN Www 


So 


ee 
VEWN— OCODOON OuUSwN— 
SSS88888838sS 
MAMAN 
—) 

uno 


COUNT THE BAD BLOCK PARAMETERS 
PUSH RO 3 SAVE SUBUNIT LENGTH 
V _RO,-(SP) 


MOV UCURSR,HRQ.01 ; MOVE SUBUNIT NUMBER 19 COMMUNICATION” AREA 
MOV #74881 ,RO 3 MOVE es eue st NUMBER 
CALL STRQ 3 REQUEST INFORMATION FRon HOST 
POP 3 RESTORE SUBUNIT LENGTH 

MOV (SP)+,RO 
MOV HRQ.01,R1 ; GET NUMBER OF BAD BLOCKS 
; SAVE NUMBER OF GAD BLOCKS 


MOV R1, : 

ADD R1,R1 ; MAKE BAD BLOCKS * 2 

ADD R1.RO : ADD TO SUBUNIT DATA STRUCTURE LENGTH 
CALL GETMEM : GET REQUESTED AMOUNT OF MEMOR 





L 11 


SEQ 347 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 58 | 
COPYSU = COPY ALL SUBUNIT PARAMETERS TO SUBUNIT BLOCK | 
-SBTTL COPYSU = COPY ALL SUBUNIT PARAMETERS TO SUBUNIT BLOCK 
4 ; COPY SUBUNIT PARAMETRS TO SUBUNIT BLOCK 
6 005574 PUSH RO : SAVE RO | 
005574 100467 MOV RO,-(SP) | 
7 005575 104300 004505 001104 MOV UCURSR,HRQ.01 ; MOVE SUBUNIT NUMBER TO COMMUNICATION AREA | 
8 005600 104207 060004 MOV #T4UPRM,RO : MOVE REQUEST NUMBER TO RO 
9 005602 021053 CALL : REQUEST INFORMATION FROM HOST | 
10 005603 POP RO t RESTORE RO 
o 005603 104267 MOV (SP)+,RO | 
2 ; THESE ARE THE ONLY BITS THAT THE HOST SHOULD SEND TO THE TEST | 
1 077177 VALBIT = INITW!DCYLS!ECCCHK!RONLY!WONLY!RTRIES! EUSED! TRACKS! UCHECK !MCHKAL !OAT} 
16 005604 103200 100600 001104 BIC #CVALBIT HRQ.O1 ; CLEAR ALL BUT VALID BITS (SUBUNIT PARAMETERS) 
17 005607 104301 001105 MOV HRO.02,R1 : GET PATTERN NUMBER | 
18 005611 100671 000004 MOV R1,S.PAT(RO)  : SAVE 
19 005613 104305 001104 MOV HRO.01,R5 : GET UNIT PARAMETERS 
20 005615 102205 02 BIT #DCYLS RS 3 SEE IF DIAGNOSTIC CYLINDERS ARE USED 
21 005617 015625 BEQ : IF NOT, BRANCH | 
22 005 102205 004000 BIT #RONLY, RS : SEE IF READ ONLY 
23 00 : 055625 4$ ; IF $0, BRANCH 
24 005 101205 040000 BIS #INITW,RS : FLAG UNIS AS INITIALLY WRITTEN 
25 005625 102205 000040 4$: BIT #BEUSED RS : SEE IF BEGIN/END SETS USED | 
26 005627 055672 BNE 3$ : IF SO, BRANCH 
27 005630 100175 MOV RS, (RO) : SAVE IN SUBUNIT AREA 
28 005631 ASSUME $.PARM, + ASSUME THAT IS 2 
005631 104201 000013 MOV #S.BESS,R1 : R1 WILL POINT TO BEGIN/END SET AREA | 
005633 105071 ADD RO,R1 : R1 POINTS TO TRACK/GROUP ARc | 
1 0056 104202 001106 MOV #HRO.03,R2 : R2 POINTS TO START/END CYL 
005636 10422 MOV (R2)4+,R5 3 MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
005637 100618 000002 MOV RS,2¢R1) > MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
005641 104225 MOV (R3)+,R5 3 MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
5 005642 100618 000003 MOV RS, 3(R1) 3 MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
005644 104225 MOV (R23) +, R5 3 MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
7 005645 100115 MOV R5, (Ri) 3 MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS | 
005646 104225 MOV (R39) +, RS : MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
39 005647 100615 000001 MOV RS, 1(R1) > MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
40 005651 105201 ADD #4°R1 3 R1 POINTS AFTER LIMITING CYLINDERS 
41 005653 104 24 MOV (R2)+,R4 : GET TRACK/GROUP COUNT | 
42 005654 104225 5$: MOV (R2)+_R5 : GET WORD | 
43 005655 100215 MOV RS, (Ri)* : SAV 
44 005656 117404 DEC RG : DECREMENT COUNT 
45 005657 055654 BNE 5$ ; IF INCOMPLETE, BRANCH 
46 005660 104415 MOV =(R1) RS : GET LAST T/G | 
47 005661 101205 100000 BIS #100060,R5 : MARK AS END OF LIST 
48 005663 100115 MOV RS, (R1) > SAV 
49 005664 104201 000020 MOV #S.TGSS*1,R1 ; R1 WILL POINT TO START OF T/G LIST 
50 005666 105071 ADD RO,R1 ; RI POINTS TO START OF 1/G LIST 
31 005667 105301 001112 ADD HRQ.07,R1 : RI NOW POINTS TO AFTER T/G°S (FOR BAD BLOCKS) 
3g 005672 104201 000013 38: MOV #S.BESS,R1 + R1 WILL POINT TO BEGIN/END SETS 
54 005674 105071 ADD RO,RI : R1 POINTS TO BEGIN/END SETS 
55 005675 104202 001106 MOV #HRO.03,R2 3 POINT TO BEGIN/END SET COUNT 


M11 


UDATS DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 58-1 
COPYSU = COPY ALL SUBUNIT PARAMETERS TO SUBUNIT BLOCK 


56 005677 


R 
Im 
Nm 
&* 


6 1 MOV (R2)+,R4 3 GET COUNT, SEE IF NON-ZERO 
57 005700 055704 BNE 2$ 3 IF $0, BRANCH 
58 005701 115404 INC RG + SKIP COUNT 
59 005702 101205 000200 BIS #ONLYCL,RS : FLAG AS BEGIN/END CYLINDER SUPPLIED 
60 005704 100175 2s: MOV R5, (RO) : SAVE IN SUBUNIT AREA 
61 005705 ASSUME $.PARM,0 : ASSUME THAT S.PARM IS ZERO 
62 005705 104225 1$: MOV (R2)+,R5 : GET LO STARTING CYL 
005706 100613 000002 MOV R5,2(R1) : SAVE 
005710 104225 MOV (R2)+,R5 : GET HI STARTING CYL 
65 005711 100613 000003 MOV RS, 3(R1) + SAV 
005713 104225 MOV (R3)+,R5 : GET LO ENDING CYL 
67 005714 100115 MOV RS, (RI) + SAV 
68 005715 104225 MOV (R2)+,R5 : GET HI ORDER ENDING CYL 
69 005716 100615 000001 MOV R5,1(R1) + SAVE 
70 005720 105201 000004 ADD #4,R1 : R1 POINTS AFTER BEGIN/END CYLINDERS 
71 005722 117404 DEC RG : DECREMENT COUNT 
72 005723 055705 BNE : LOOP AND COPY 
73 005724 104415 MOV =(R1),R5 : MOVE EOL TO BEGIN/END LIST 
74 005725 101205 100000 BIS #100000,R5 : SET HI BIT TO FLAG EOL 
75 005727 100215 MOV R5,(R1)¢ : SAVE 
0057 COPBB: PUSH + SAVE RO 
005730 100467 MOV RO,=(SP) 
77 005731 104300 004505 001104 MOV UCURSR,HRQ.01 ; MOVE TO COMMUNICATION AREA 
78 005734 104207 060005 MOV #74881 .RO : MOVE REQUEST NUMBER TO RO 
79 005736 021053 CALL §HOSTRO : REQUEST INFORMATION FROM HOST 
80 005737 POP RO : RESTORE RO 
005737 104267 MOV (SP)+,R0 
81 005740 104202 001105 MOV #HRO.02,R2 : R2 POINTS AT BAD BLOCKS 
82 005742 104304 004510 MOV NUMBB ,R4 : R4 IS NUMBER OF BAD BLOCKS 
83 005744 016002 BEQ NOBB : IF NO BAD BLOCKS, BRANCH 
84 005745 100671 000012 MOV R1,S.BADP(RO) |; MOVE POINTER TO BAD BLOCKS TO SUB PARAM 
85 005747 114004 CLR RG : START LOOP AT ZERO 
86 005750 106204 000016 BBLOP: CMP #14. RG : SEE IF SECOND BLOCK NEEDED 
87 005752 055765 BNE NOEXTR : IF NOT, BRANCH 
88 00575 PUSH RO + SAVE RO 
005753 100467 MOV RO,-(SP) 
89 005754 104300 004505 001104 MOV UCURSR,HRQ.01  ; SAVE IN COMMUNICATION AREA 
90 005757 104207 060006 MOV #748B2.RO : LOAD REQUEST R 
91 005761 021053 CALL  HOSTRO : REQUEST FURTHER BLOCKS FROM HOST 
92 0057 POP RO : RESTORE RO 
005762 104267 MOV (SP)+,RO 
93 005763 104 02 001104 MOV #HRO.01,R2 : POINT R2 TO BAD BLOCKS 
005765 10422 NOEXTR: MOV (R2)+,R5 : GET BAD BLOCK 
005766 100215 MOV RS, (Ri)+ ; SAVE BAD BLOCK 
96 005767 104225 MOV (R2)+,R5 : GET BAD BLOCK 
97 005770 100215 MOV RS, (Ri)+ > SAVE BAD 
98 005771 115404 INC RG > INCREMENT R4 
99 005772 106304 004510 CMP NUMBB , R4 : SEE If ALL BLOCKS COPIED 
100 005774 055750 BNE BBLOP : IF NOT, H 
101 005775 104415 MOV =(R1) RS : GET LAST BAD BLOCK 
10@ 005776 101205 100000 BIS #100060,R5 : FLAG AS EOL 
103 006000 100215 MOV R5,(R1)4 : 
104 006001 CPYBEX : BRANCH 
105 006002 100674 000012 NOBB: MOV R4,S.BADP(RO) : FLAG AS NO BAD BLOCKS 
106 006004 114004 CPYBEX: CLR 3 CLEAR 
107 006005 100674 000007 MOV R4,S.SCHR(RO) : FLAG CHARACTERISTICS AS NOT YET DEFINED 
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UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 58-2 
COPYSU = COPY ALL SUBUNIT PARAMETERS TO SUBUNIT BLOCK 


<R5,R4,R3> 


BSUSEX 
#-1 -RO 
RO, (R4)+ 
UCURSR 


URS 


R5 
SLOP 
RO 


(RO) ,RO 


LE ,MAXADR-. 


+4 





RESTORE R3 = RS 
MOV (SP)+,R5 
MOV (SP)+,R4 
MOV (SP)+,R3 

BRANCH 

TO FLAG SUBUNIT AS INACTIVE 

MOVE POINTER re oe TO UNIT PARAMS 


DECREMENT COUNT 
IF UNEXPIRED, BRANCH 
RESTORE UNIT POINTER 
MOV (SP)+,RO 


; GO TO NEXT UNIT 


; CLEAR UNUSED BITS 
; SEE IF THE ENTIRE RING IS SET UP 
; IF NOT, BRANCH 


SEQ 349 


B 12 
SEQ 35 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 59 
seeeeeeeee NON-LOADED OVERLAY, ERROR MESSAGES 





1 .SBTTL teeeeneeee NON=LOADED OVERLAY, ERROR MESSAGES 

2 SRRRARAAAAAAARAARARAERAEREEERAREREAEEEAERRERERERRARRRREREARREEAEEEEEEEREER HHREREEE 

s FRRAAAAAAAAAEAAAERARAEEREEEARERAARERAERRARRRRRREREEREAERAEERAEREREREEREERERERERE | 

4 SRAAAAAAAAAAAAARAAAARAEAREREREEREAAERARERAERAREERAEREERREEREREREEREERERAREERERREE 

5 SRRAAAAAAAAAREAARRAERAEREEEAEARAAEERAERRRRRRARRERERAERRRERRERREREREREEEEREEEEEE | 

6 3 i 

4 ; ERROR MESSAGE FORMAT BUFFERS (NEVER LOADED INTO UDA) | 

9 006032 ‘ DMOVLY MS.0 : ERROR MESSAGE OVERLAY 
ra 006032 000105 -WREDC aes ZOUTPUT EDC FOR THIS OVERLAY 
11 000000 42 101 124 ER1:  <ASCII \"ATTIN ASSERTED DURING SEEK'N\ 

12 900016 043 123 105 ASCII \""SEEK FROM GRP 'D8'’ CYL "D28"’ TO GRP "D8" CYL ‘D28NR1\ 

14 9008 508s 04g 122 105 SER22: <ASCII \"'REAL TIME STATE "HI6N\ 

15 000064 042 12 124 ASCII \"'STATUS (R TO L): 'H16S2H16S2H16S2H16S$2H16S2H16S2H16N\ | 
17 000117 04g 101 124 ER2: ASCII \'ATTN ASSERTED UNEXPECTEDLY, ASYNC DRIVE ERROR OR LOGGABLE’W\ 

18 900195 042 111 116 ASCII \""INFORMAT ION’ NR1\ 

20 000166 042 123 105 ER3: ASCII \''SEEK DID NOT COMPLETE, NEITHER ATTN OR R/W RDY WAS ASSERTED'W\ 

21 000225 04g 108 105 “ASCII \"BEFORE TIMEOUT’ N 

32 000235 048 12 105 ASCII \"'SEEK FROM GRP ‘D8’ CYL "D28"' TO GRP ‘D8’ CYL. “DZENR1\ 

24 000271 04 122 103 ER4: ASCII \"RCT AREA CORRUPTED, COULD NOT FIND REPLACEMENT FOR'W\ | 
25 000323 04 114 102 “ASCII "LON “RIN | 
26 000327 04 101 124 -ASCII \“ATTEMPTED TO READ RCT LON “D28N\ 

37 900347 042 123 105 ASCII \""SEARCING FOR LBN’'S1OD28N\ 
29 000365 O42 110 105 ERS:  <ASCII \"HEADER NOT FOUND DURING WRITE'W\ | 
30 000405 12 061 042 <ASCII \R1°BN 'DZ8NR3\ 
31 000413 4g 123 105 ASCII \"'SECTORS FROM INDEX "D8" TRK ‘D8’ GRP “DB CYL “DZBN\ | 
32 900445 042 117 122 ASCII \ORIGIN OF SEEK: GRP ‘D8’ CYL ‘D28N\ | 
34 000470 04 101 124 SERI9: SASCIZ. \“ATTEMPT “D3N\ | 
35 000476 12 061 042 ASCII \R1°BN 'DZBNR3\ 
36 000505 04 123 10 ASCII \"SECTORS FROM INDEX 'D8"' TRK "D8"* GRP "DB" CYL "D28N\ 

7 0005 37 042 117 122 ASCII \"ORIGIN OF SEEK: GRP ‘D8’ CYL ‘D28NR1\ | 
39 000562 042 123 105 ER6: “ASCII \“SELECT TRACK AND WRITE LEVEL 1 CMD NOT EXECUTED’ WR1\ 
41 0006 61s 042 105 103 ER?: “ASCII \ece DETECTED ERROR'WR1\ | 
“3 000631 Oe 105 103 ERB: “ASCII \ece DETECTED ERROR, BUT CORRECTION FAILED'WR1\ | 
45 000661 04 122 105 SER21: ASCII \"RETRY “D4N\ 
46 900666 04 105 12 eASCII \"ERROR RECOVERY LEVEL "D8N\ | 
47 00070 12 061 04 “ASCII \R1°BN 
4" 900712 04 123 10 Sci \"'SECTORS FROM INDEX "D8" TRK "D8" GRP “D8 CYL “D28N\ 
50 900745 04 105 103 ER: “ASCII \"ECC CORRECTIONS EXCEED THRESHOLD’ NR1\ | 
5 000786 04 105 103 ER10: .ASCII \"ECC CORRECTION SUCCEEDED, BUT EDC DETECTS ERROR'WRI\ 
5 001028 04 105 104 ASCII §\"EDC COMPUTED "O16N\ 

34 901033 04 105 104 ASCII \veDe READ''SSO16N\ 
56 001044 04 105 122 ER11: ASCII \"ERROR RECOVERY TRIED ALL LEVELS WITHOUT SUCCESS'W\ 


SEQ 351 
RCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 59-1 
eceeeueee NON LOADED OVERLAY, ERROR MESSAGES 


sASCII  \R1BN, “D28NR3\, 
SOG G8 ASHE RR GBPIE so 
80 001116 ©—«Os104=S 101 «ERI2: «CASEI STDATA FOMPARISON FAILED’ NR1\ 
61 OOl13s «133 T See ~ASCII \R1''BN “D2BNR3\ vag gan iene? seep Maat Soman 
001142 04 123105 ~ASCII \"'SECTORS FROM INDEX "D8'* TRK "D8" GRP "D8" CYL 
eS ore 112108 ASC \“OPFSET OF ERROR WITHIN BUFFER: “DBN\ 
6 0019304 17108 “ASCII \COPFSET OF ERROR WITHIN DISPLAYED LIST: "DB" (1ST WORD OFFSET 0)°N\ 
~ASCII \$4016S40 
Sat nn nT “ASCII \S4016840165401654016S4016S4016N\ 
69 001331 Be>—=«105._-—=S«*103.—«SERZG: “ASCII "ECC OR EDC HAD DETECTED ERROR IN BUFFER'N\ | 
MT 0013S? ae 103 SERS: ASCII \"ECC OR EDC HAD <cNOT>> DETECTED ERROR IN BUFFER'W\ | 
71 001357 = 042s‘ t ASCL | | 
FS dole) «= 042106122 ERTS: “ASCII \"DRIVE NOT ONLINE TO UDA, AND NOT SPINABLE'W\ | 
PS Dolce) = O42Ss«d125—=Ss«11GCERTG: | CASCHT \"UNABLE TO COMPLETE SEEK == TRIED 3 TIMES'N\ 
7% oo1ces 133, “ASCII \R1'BN "D28NR3\, 
77 001474 «= 042—issd1007—Ss«*122 “ASCII \"GRP "DB" CYL *D2EN\ | 
78 001505 000 , aes ieoattias | 
: ASCII \"'SEEK REQUIRED "D2" RETRIES BEFORE COMPLE 
80 oo1sss «= 35—et Sak ASCH Vay BN SD2BNRSA, | 
81 001544 042 107 122 “ASCII \"GRP "DB" CYL *D2EN\ | 
83 001886 © Oue—«105-—=S«122 ERG: ASCII \"ERRORS DURING DRIVE INITIALIZATION AND SETUP" NR1\ 
84 001606 000 -BY 
1 7: ASCII \''NO VALID STATE FROM DRIVE'N\ 
86 ooless «oes “ASCII \"NO DRIVE CLOCKS"N\ | 
88 OOl6s? «ae i. "NO VALID STATE FROM DRIVE’N\ 
$9 oo1ess 063110) tte tT a Aae SY Ok PULSE ERROR FOR 1/2 A SECOND'W\ 
90 001704 000 BYTE 0. we 
Fite ATTEMPT TO WRITE ON WRITE PROTECTED DRIVE 
ge ress 854k HBS OR CAREY AERP DD RPTL SS HAUTE SOT 
-BY ’ | 
9 OO175? —«O4?—s110—=S«105seRI9: “ASCH \"HEADER NOT FOUND DURING READ'W\ | 
98 001776 «133 ~ASCII \R1"BN “D2BNR3\ nat was tag cag teeing Tateel | 
96 002005 04 133408 ASCII \''SECTORS FROM INDEX "D8" TRK "D8" GRP “D8" CYL 
97 000037 sss “ASCII \"ORIGIN OF SEEK: GRP "DB" CYL "D26N\ 
99 000061 042,—=«*123-—=S«105«ER20: “ASCII \"SELECT TRACK AND READ LEVEL 1 CMD NOT SENT‘NR1\ 
101 OBIT. «4d : TAS "DRIVE NOT FORMATTED IN 512 BYTE MODE -- UNABLE TO TEST'N\ 
108 Oorles Od 130 top PRA “ASEH \"XEN © RODE WORD!“ O16N\ 
104 009162 «Oe? 125.116. ER2B: “ASCII \"UNABLE TO CONTINUE TESTING’ NRIR1\ 
196 00290 062 «122=S«125.—SERG2: “ASCII \"RUN/STOP SWITCH OUT’ N\ 
108 00991 062123120. SERGS: ASCII \"'SPINDLE DROPPED READY'W\ 
110 00203 Os 120-117 SER44: CASCII \"PORT SWITCH OUT'W\ 
it ies alt ven 
e. , THAN A HALF SECOND’ 
112 002266 04 120 = 101 SER4S: ASCII \"PARITY ERRORS FOR MORE 
113 002976 000 BYTE 0 





D 12 
SEQ 352 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 59-2 
weeeeeeeee NON-LOADED OVERLAY, ERROR MESSAGES 


114 poeee 943 105 104 ER24: .ASCII \"EDC DETECTED ERROR BUT ECC DID NOT'NRI\ 

11? ooseey B66 105 104 STE 5 COMPUTED °'016"' EDC READ ‘‘O16N\ 

117 OOS ees 042 127 \28 ER25:  .ASCII \‘WRITE ATTEMPTED MAXIMUM TIMES’ N\ 

118 002 122 061 04 eASCII \R1°BN ‘D28NR3\ 

119 002370 000 BYTE 0 

1s 002371 935 122 105 ER26: ASCII \"READ ATTEMPTED MAXIMUM TIMES'N\ 

121 002410 12 061 042 eASCII \R1°BN *D28NR3\ 

is 002417 000 BYTE 0 

123 002420 042 102 117 ER28: .ASCII \'BOTH READ ONLY <AND> WRITE ONLY BITS SET == HOST ERROR’ N\ 
124 002454 000 BYTE 0 

125 002455 042 125 116 ER33:  .ASCII \"UNABLE TO CORRECTLY READ OVERLAY ‘'016NR1\ 

126 002501 000 -BYTE 0 

4 Oo954¢ Bie 124 110 SER39: rt) 5 as UDA AND ALL DRIVES ATTACHED WILL BE REMOVED FROM TESTING’ N\ 
129 00254 042 123 105 ER34: .ASCII \"'SERDES OVERRUN ERROR DURING READ'NR1\ 

130 002565 000 -BYTE 

131 002566 042 104 101 ER35: ASCII \"DATA OR STATE CLOCK TIMEOUT DURING READ''NR1\ 

135 002614 000 -BYTE 

133 002615 042 104 101 ER36: .ASCII \'DATA SYNC TIMEOUT DURING READ’ WR1\ 

134 002636 000 -BYTE 

135 002637 042 122 057 ER37: .ASCII \"R/W RDY DROPPED BEFORE/DURING READ’ 'WR1\ 

136 002662 000 -BYTE 

137 002663 042 122 103 ER38:  .ASCII \"'RCVR RDY DROPPED BEFORE/DURING READ’ WR1\ 

138 002707 000 -BYTE 

139 002710 be5 101 114 ER40: .ASCII \‘ALL COPIES OF RCT READ WITH ERROR, SEARCHING FOR'N\ 
140 pastes 04 114 102 eASCII \""LBN “RIN 

141 002745 943 114 101 eASCII \""LAST RCT LON SEARCHED ‘D28N\ 

rs 002763 04 123 105 *ASCII \"'SEARCING FOR LBN’'S6D28N\ 

143 002777 000 BYTE 0 

144 00 743 103 117 ER41: .ASCII \"‘COULD NOT FIND REPLACEMENT FOR'W\ 

145 003020 04 114 102 ASCII \' *RI1\ 

146 003024 042 114 102 eASCII \"LBN TO REPLACE *D28N\ 

147 003037 000 -BYT 

148 003040 042 124 110 SER26: .ASCII \"*THAT WAS REVECTORED’W\ 

149 003053 000 -BYTE 

150 003054 042 127 111 SER32: .ASCII \"WITH HEADER NOT FOUND'N\ 

151 003070 000 -BYT 

136 003071 943 124 117 ER42: .ASCII \*"TIMEOUT WAITING FOR SECTOR OR INDEX PULSE'W\ 

153 003117 04 107 122 eASCII \"'GRP ‘D8’ CYL *D28NR1\ 

154 003131 000 BYTE 

133 Costas Bae 723 105 ER44: ty \"“SEEK OR HEAD SELECT ERROR DETECTED DURING WRITE’WR1\ 
5 14 anes os 123 105 ER4S: ity \"SEEK OR HEAD SELECT ERROR DETECTED DURING READ'WR1\ 
5 +4 003217 04 104 101 ER47: ity \'DATA OR STATE CLOCK TIMEOUT DURING WRITE’ WR1\ 

16) 003276 93 122 057 ER4B: ty \''R/W RDY DROPPED BEFORE/DURING WRITE’'NR1\ 

168 Ose 04 122 103 ER49: ty \'RCVR RDY DROPPED BEFORE/DURING WRITE’ NR1\ 

163 as toed he6 061 042 ERSO: ith \R1°BEGIN/END SET STARTING BLOCK NUMBER GREATER THAN ENDING BLOCK NUMBER’W\ | 
1er the 34 122 061 042 ERS1: oBstit \R1"°THE BEGIN/END SETS GIVEN OVERLAP’W\ 

4 eat 12 061 042 ERS2: .ASCII \RI'BEGIN/END SET ENDING BLOCK NUMBER EXCEEDS MAXIMUM’ 'N\ 
170 00344 04 115 101 eASCII = \"MAXIMUM BLOCK NUMBER ON DEVICE IS “D28N\ 


E 12 
SEQ 353 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 59-3 
weeeweeeee NON-LOADED OVERLAY, ERROR MESSAGES 


171 003467 000 BYTE 0 

172 003470 122061042 ERSS: ASCII \RI"DUPLICATE BAD BLOCKS'N\ 

174 003505 122 061 042 ERS4: [ASCII \R1°'BAD BLOCK NUMBER EXCEEDS MAXIMUM. MAXIMUM BLOCK NUMBER’ N\ 

175 003542 04 117-116 “ASCII \"'ON DEVICE IS “D28N\ 

176 003554 000 “BYTE 

177 03355 12g 061042 ERSS: © ASCII \RIT'STARTING CYLINDER GREATER THAN ENDING CYLINDER'M\ 

179 00360 07 122 061042 ERSE: “ASCII \R1" RANDOM AND AL SEEKS CAN NOT BE MIXED WITHIN A UNIT'N\ 

181 003647 122 1 —042_—«ERS7: «= CASCIZ. \RI"OVERFLOW WHEN CALCULATING THE L/DBN FROM THE GIVEN CYLINDER’ W\ 

182 003707 (4 103 —«‘131 “ASCII \"CYLINDER TOO LARGE'N\ 

183 003721 000 “BYTE | 
184 00372 122 061 122 ERS8: ‘ASCII \RIR1" EXCEEDS MAXIMUM FOR DEVICE. MAXIMUM IS “DBN\ | 
185 00375 000 “BYTE | 
186 00375 122 067 «2S s«042-s«ERS9: = SASCIZ. \RITWO IDENTICAL “RI"'S'N\ 

187 003767 000 “BYTE 

188 003770 122 061 + «= 122:«ER62: += [ASCII \RIR1"'BN COMPUTED FROM END CYLINDER GIVEN EXCEEDS MAXIMUM “R1'BN ON'W\ 

189 004052 = 042104108 “ASCII \"DEVICE = CYLINDER TOO LARGE N\ | 
191 004052 042117120 SER2O: “ASCH \"OPERATOR ERROR IN ANSWERING MANUAL INTERVENTION QUESTIONS FOR THIS UNIT'N\, 
193 006120 042122 105 ER63: ASCII \"REAL TIME STATE RECEIVE ERROR DURING URITE"NR1\ | 
195 004150 042 122 105 ER64: ASCII \"REAL TIME STATE RECEIVE ERROR DURING READ'WR1\ 

19% 004177 000 “BYTE 0 

197 004200 042 125 116 ER68: ASCII \"UNKNOWN ERROR CODE DURING WRITE'WR1\ 

198 004222 000 “BYTE 
199 004¢23 042125116 ERG9: ASCII \"UNKNOWN ERROR CODE DURING READ" NRI\ | 
200 004244 000 “BYTE | 
201 004265 042 105 122 SER36: ‘ASCII \"ERROR CODE RETURNED “‘D16NR1\ : 
202 004263 000 “BYTE 

203 004264 042 126 111 ER70: [ASCIZ \"TIMEOUT OF SEND'NRIRI\ | 
204 004277 000 “BYTE | 
205 004300 062 126 111 ER71: ‘ASCII \"TIMEOUT OF RECEIVE’NRIRI\ 

206 004314 000 “BYTE | 
207 004315 9 042, —s«106-=Ss«7«ER72: += TASC. \""FIRST WORD RECEIVED WAS NOT START FRAME’ WRIRI\ | 
208 004344 000 “BYTE | 
gOS 004345 042106122 ER73: ASCII \"FRAMING ERROR ON LEVEL 0 RECEIVE"WRIRI\ | 
211 004371 042 103.110 ER74: “ASCII \"CHECKSUM ERROR ON LEVEL 0 RECEIVE’ WRIR1\ | 
213 006416 = 042102, 125_ER7S: “ASCH \"BUFFER SIZE SMALLER THAN LEVEL 2 RESPONSE’ WRIR1\ 

515 Oosee? «Oe 122. 105_:«ER76: + :ASCII. \"'RESPONSE OF LEVEL 2 CMD NOT AS EXPECTED'WRI\ 

216 006475 04 105 130 “ASCII \"EXPECTED RESPONSE "MB8N\ 

217 004810 04g 122105 “ASCII \"RESPONSE RECEIVED “WBNA1\ 

219 004526 = 42106122 ERT? “ASCII \"'DRIVE NEVER DEASSERTED RECEIVER READY AFTER SEND'WRIR1\ 

221 004562 04 125 116 ER78: —SASCII. \"UNKNOWN ERROR CODE RETURNED FROM LEVEL 2 RECEIVE'WR1\ | 
35 004614 04 105212 “ASCII \“ERROR CODE RETURNED "D1GNAT\ | 
24 Doe 638 04 101 = 1124 SERO: “ASCII \"ATTEMPTING TO GET STATUS'N\ | 
26 004651 04 101 = 1124-«SER1: ASCII. = \""ATTEMPTING DRIVE CLEAR CMD'N\ 

27 004667 


"BYTE 0 | 








USlSS 
SeRPEEEE 
ees eter 


CERRY 
WRN 


YS ee 
0 
w 
o 
w 
—_ 


SSSLEAE 


241 00505 


261 005314 
soe 005335 
263 005336 
264 005360 
265 005361 
266 pestle 
267 00541 
268 005420 
i 005421 
70 005425 
271 005431 
272 005435 
273 005437 
274 005440 
275 005461 
$76 005462 
277 005474 
278 005475 
79 005511 
80 tats 
ss Se 
84 005522 


RSRSRSASASASRERESLSL SL SU SUSU SCS TST SC ECR Se SPS Pete Eee e eee 


101 
101 
101 
101 
101 
101 


124 
124 
124 
124 
124 


SER2: .ASCII 
BYTE 
SER3: .ASCII 
BYTE 
SER4: .ASCII 
BYTE 
SERS: .ASCII 
-BYTE 
SER6:  .ASCII 
-BYTE 
SER7:  .ASCII 
BYTE 
SERB: ASCII 
BYTE 
SER9: .ASCII 
-BYTE 
ER1000: .ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
-BYTE 
SER10: .ASCII 
BYTE 
SER11: .ASCII 
BYTE 
SER12: .ASCII 
-BYTE 
SER13: .ASCII 
-BYTE 
SER14 ASCII 
-BYTE 
SER15: .ASCII 
-BYTE 
SER16: .ASCII 
-BYTE 
SER17: .ASCII 
-BYTE 
SER18: .ASCII 
-BYTE 
SER18D: .ASCII 
SER18C: .ASCII 
SER18B: .ASCII 
SER18A: .ASCII 
BYTE 
SER4O: .ASCII 
-BYTE 
SER41: .ASCII 
-BYTE 
RBNTXT: .ASCII 
-BYTE 
TRK$: .ASCII 
BYTE 
GRP$: .ASCII 
BYTE 
L$: ASCII 
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SEQ 354 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 - 49:22 PAGE 59-4 
eeeneeeene NON-LOADED OVERLAY, ERROR MESSAGES 


\""ATTEMPTING TO BRING DRIVE ONLINE’ N\ 
\""ATTEMPTING TO CHANGE MODE''N\ 
\""ATTEMPTING ERROR RECOVERY CMD'W\ 
\"ATTEMPTING TO GET SUBUNIT CHAR'N\ 
\""ATTEMPTING TO SPIN UP DRIVE''N\ 
\""ATTEMPTING TO RECALIBRATE'N\ 
\""ATTEMPTING TO GET COMMON CHAR’ N\ 
\""ATTEMPTING TO ISSUE SEEK'W\ 


\; UNABLE TO FIND REQUESTED DRIVE FOR TESTING'W\ 
\’THE FOLLOWING 1S VISIBLE ON THE PORTS'N\ 


\ UDA PORT 3 == ‘RI\ 

\'NO DRIVE ATTACHED’ W\ 

\"'RCVR RDY NEVER ASSERTED''N\ 

\""TIMEOUT OF SEND’ W\ 

TIMEOUT OF RECEIVE’ W\ 

FIRST WORD RECEIVED WAS NOT START FRAME*WN\ 
\"'FRAMING ERROR ON LEVEL 0 RECEIVE’W\ 


g Cecran ERROR ON LEVEL 0 RECEIVE’ W\ 


\"'RESPONSE LONGER THAN EXPECTED FOR GEI STATUS CMD'N\ 
\'DRIVE *R1\ 


\D12", ‘\ y NOTE: THE STRING WITHIN THE \\°S <<MUST>> 

\ie", ' > BE AN EVEN NUMBER OF CHAR BECAUSE THE 

\D1 ‘ 3 LABELS WILL FORCE WORD ALINGMENT, LEAVING 
\D12N\ : JUNK IN THE LAST BYIE. (SER18A Ok TO BE ODD) 


\'DRIVE NOT AVAILABLE TO THIS UDA’W\ 


5 UNSPINABLE DRIVE ‘R1\ 
g REVECTORED TO RBN ‘D28N\ 


\""TRACK''\ 


0 
, wor" 
Vu" 





SEQ 355 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 59-5 


eeeeeeeeee NON-LOADED OVERLAY, ERROR MESSAGES 


285 005523 BYTE 0 
005524 104 042 DS: = CASCII. \"D'N 

287 005525 “BYT 

288 005526 122-103. -RCTL$: =<ASCII \'RCT LN 

289 005531 “BYTE 0 
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UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 60 
INFORMATIONAL MESSGES 
1 .SBTTL INFORMATIONAL MESSGES 
5 : MESSAGES 
5 005532 116 042 111 MS1: ASCII. = \N“ INITIAL WRITE COMPLETE’ 'N\ 
6 00554 000 “BYTE 
7 005550 N16 042 124 MS2:  cASCII \N''THE PREVIOUS DEVICE FATAL WILL CAUSE THE FOLLOWING DRIVES’ W\ 
8 005606 04 124 117 “ASCII \"'TO BE DROPPED: "RI\ 
9 005620 000 "BYTE 
10 005621 116 04 101 MS3: [ASCII \N''A CORRECTABLE ECC ERROR EXISTS IN "R1°BN "D28N\ 
1 005651 042 12 105 “ASCII \""SECTORS FROM INDEX 'D8'' TRK 'D8"’ GRP DB" CYL ‘D28N\ 
ig 005704 116 042 122 MS4: {ASCII \N"READ ONLY DRIVE, INITIAL WRITE WILL NOT BE PERFORMED’ N\ 
14 005740 000 “BYTE 0 





SEQ 356 


| 


his, SEQ 357 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 61 
weeeeeeews OVERLAY MODULE SETUP = OPERATION TO BE DONE THIS PA 


1 .SBTTL eeeeeeeeee OVERLAY MODULE SETUP = OPERATION TO BE DONE THIS PASS 
2 005740 DMOVLY SU,AREAO 

005741 000105 : :OUTPUT EDC FOR THIS OVERLAY 
3 FERRARA AAAAAAAARERAAAAAREEEEAARARARAAERREARARAEERAREERERAARAAEAEERAREREREREEEREREE 
4 SRAAAAAAAAAAAAAARARAEAEEAEEERAEAAAAARERAAARERARAERAAERARRARAEEEEEARRERRAEREREEREEEEE 
5 fF RRAAAAAAAAAAAAAAAAEARAAAEERERERAARRAERARAEARERAEARAREEERAERERAAREREERAREEEEEEEREEEE 
6 FRRAARARAAAARAAAEAARAEAEREREREEAARERAEAARRERERAERREAEREEEREREEERREEEEAEREREERERERE 
4 3 
: 3 
10 000001 SETUP = 1 : SETUP OVERLAY 
i : SETUP CLEARS ALL ERROR BITS, THE ERROR COUNT, FINDS THE NEXT ! 
1 : LON TO BE READ OR WRITTEN, DESIDES TO READ OR WRITE, CALCULATES 
14 3 THE CYLINDER, TRACK AND GROUP THE LBN RESIDES ON; THEN CALLS ! 
16 ; 
24 .ENABL LSB 
25 904422 114002 CLR R2 : NO ERRORS | 
26 0044 10465 000024 MOV U.CSEC(RS) RO 3; GET TOTAL NUMBER OF SECTORS ALLREADY R/W 
27 004425 105657 000021 ADD U.NSEC(R5).RO : ADD HOW MANY R/W THIS PASS 
28 004427 106657 000023 CMP U.TSEC(RS).RO : SEE IF ALL DONE 
38 004431 014451 BEQ 2$ : IF $0, BRANCH (NEW OPERATION) 
39 004432 100657 000024 MOV RO.U. CSEC(RS) t SAVE CURRENT COUNT 
40 004434 104657 000053 MOV U.CBN(RS),RO : GET LBN 
41 004436 105657 000021 ADD U.NSEC(RSS RO 3; ADD NUMBER OF SECTORS R/W THIS PASS 
42 004440 100657 000053 RO,U.CBN(R5) : SAVE 
4 004448 044 23 BCC : IF NO CARRY, BRANCH 

43 104657 000054 U.CBN+1(R5),RO : GET HI L 

45 004445 115407 INC : PROPOGATE CARRY 
46 004446 100657 000054 MOV RO,U.CBN¢1(R5) : SAVE 
47 004450 004523 BR : BRANCH 
48 004451 1046 23: MOV U.PARM(RS) RO 3: GET UNIT PARAMETERS 
49 006453 102207 000010 BIT #UCHECK RO 3 SEE IF WRITE CHECK IS TO BE DONE 
50 004455 0545 g : IF SO, BRANCH 
51 004456 104141 MOV (R4),R1 : GET SUBUNIT PARAMETERS 
52 0046457 ASSUME $.PARM,0 : ASSUME THAT S.PARM IS ZERO 
53 004457 102201 000100 BIT # 1 : SEE IF AL SEEKS 
54 004461 054471 BNE 63 : IF $0 H 
55 004462 102207 040000 BIT #INITW,RO : SEE IF INITIAL WRITE IN PROGRESS 
56 004464 054471 BNE 6$ : IF SO, BRANCH 
57 004465 101207 004000 BIS #NEWSUB RO ; FLAG AS TO GO ONTO A NEW SUBUNIT 
58 004467 100657 00004 MOV RO,U.PARM(RS) : SAVE 
59 004471 104207 00000. 6$: MOV #NEWOP RO : SET UP A NEW OPERATION 
60 004473 114 00221 CLR SCR1 3 CLEAR SCRATCH AREA1 (NO NEW SUBUNIT FLAG) 
61 004475 104651 000023 MOV U.TSEC(RS).R1  : GET TOTAL NUMBER OF SECTORS TO BE WRIITEN LAST OP 
62 004477 05 BNE : IF NOT FIRST TIME, BRANCH 
63 004500 104200 177777 002217 MOV #-1.SCR1 : FLAG AS NEW SUBUNIT (WITHOUT GOING ONTO NEW SUBUNIT) 
65 004504 rh 000110 5$: BIC #WCHE CK !REDWRT,RO : CLEAR WRITE CHECK, MAKE OPERATION READ 
66 004 100657 ‘ MOV RO,U.PARM(RS) © ; 
67 004510 104657 5 MOV U.MBN(RS),.RO : GET LO LBN 
68 004512 100657 00005 MOV RO,U.CBN(RS) ~—s: 
9 004514 104657 5 MOV U.MBN+1(R5),RO : GET HI LON 

004516 100657 5 MOV RO,U.CBN¢1(R5) : SAVE 
71 0045 114008 CLR R + NO ERRORS 
72 004521 100652 000024 MOV R2,U.CSEC(RS) ; SECTORS R/w IS ZERO 
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UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 61-1 
eeeeeneeee OVERLAY MODULE SETUP - OPERATION TO BE DONE THIS PA 





73 004523 
74 004525 
75 004527 
76 0046531 
77 004533 
78 sett 
79 0045 
80 004537 
81 004541 
ag 004542 
83 004544 
84 004545 
85 004547 
86 004550 
87 poe ees 
88 00455 
89 004555 
90 004557 
91 004561 
3 004563 
e 004565 
95 004567 
96 004571 
97 004573 
98 004575 
99 004576 
100 004600 
101 004601 
16 004602 
103 004604 
104 004606 
105 004607 
106 
107 


104657 


ooo 
RES 
wa 
—~w 


ern 

wi 
OwWoul 

~“o 


VNYUINUNO@—US 


pegesscsss 
WINUUITD 
mou 


2 
RSASAS 


wn 


2s 
esesetee 
SeSee Bsecte 


WWNRIND 


UNF 
Mr 


3 20030284 2911 
~ 
m™~ 

Won 

——WWW 


aes 


9$: 


1$: 


4$: 





GET TOTAL NUMBER OF SECTORS TO R/W 
SUBTRACT HOW MANY DONE 

GET UNIT PARAMETERS 

; SEE IF AN RBN IS BEING HANDLED 


1 : IF NOT, BRANCH 

#1,RO0 ; ONLY READ/WRITE ONE SECTOR 

#REDWRT,R1 : SEE IF WRITE IS IN PROGRESS 

SECMAX,RO : SEE lf TRYING TO READ MORE THAN POSSIBLE 

SECHAX, RO . SET RO TO MAXIMUM POSSIBLE SECTORS TO READ 

CHNMAX RO : SEE IF TRYING TO WRITE MORE THAN POSSIBLE 

CHNMAX , RO : SET ROTO MAXIMUM POSSIBLE SECTORS TO WRITE 

RO,U.MSEC(RS) ; SAVE IN NUMBER OF SECTORS TO R/W THIS PASS 

U.MLEV(RS).R3 : GET MAXIMUM ERROR REVCOVERY LEVEL 

R3,U.ELEV(R5) : STORE IN CURRENT LEVEL 

#-i,R : START RETRIES AT 

R3,U.RWTO(RS) : SAVE IN UNIT PARAMETER AREA 

R2 1S ZERO AT THIS POINT 

R2.U.NSEC(RS) ; NO SECTORES SUCCESSFULLY READ/WRITTEN 
-RRTY(R5) : ZERO READ RETRY VALUE 

#SEEK,RO : POINT TO SEEK AS NEXT OPERATION 


ENABL : £ R Y 
#LEVUSD!NXTLEV.RS neal SEE IF ERROR RECOVERY LEVELS USED 
GOSEEK : CAUSE A SEEK TO RESET ERROR RECOVERY 
#LEVUSD :NXTLEV.RS z NO ERROR RECOVERY IN PROGRESS 
R3,U.RCOV(RS) — ; SAV 

R1 : IMMIDIATE CALL 
JMPRET + RETURN TO 

2 





SEQ 358 






eeeeeeeeee OVERLAY MODULE NEWOP 


4 
2 004610 
3 004610 000105 
4 3 
5 3 
6 ; 
7 3 
8 3 
9 2 
10 000002 
2 
8 3 
14 
15 004611 104147 
16 004612 
17 004612 102207 040100 
18 004614 054626 
19 004615 102207 000040 
20 004617 014623 
$3 004620 104 36 000003 
23 004 3 90430 000005 1$: 
24 004625 636 
25 004626 102207 000040 2s: 
26 0046 014634 
27 004631 104207 000004 
28 004633 004636 
29 004634 104207 000006 3$: 
s 004636 114001 4$: 
1 004637 114002 
3 004640 003231 





UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 62 
- SET UP NEW OPERATION (COMMON 


- SBTTL 


weaeeeeeee OVERLAY MODULE NEWOP - SET UP NEW OPERATION (COMMON CODE TOO) 
DMOVLY NO,AREA1 
sOUTPUT EDC FOR THIS OVERLAY 


SETUP+1 


SET UP A NEW OPERATION 


LSB 

(R4) ,RO 
S.PARM,0 
# NITW.RO- 
#BEUSED,RO 
#RNDBE ,RO 
#RNDTG,RO 


#BEUSED,RO 


PITITTITITI TELL LLL T TTT TTT TT TTT TTT TTT TTT 
S RAARAAAARARAAAAAAAAERARAEAEAAERAERARAAAARARARERERAARARAERARERERRARRAEREREEREEEREEE 
S RRAAAARAARAAAAAARARAEAEREREEAAARARARRARAARARAERAERARAARERAERAEERAERARAEREEEEEEEEEE 
§ TRAAAAAAAARAAAAEAARAAAAAAEEAARAAAAARAAARARARAARARAARAAARERERAEREEAERERREREEEEEEEEE 


; GET SUBUNIT PARAMETERS 


3 ASSUME See S.PARM 


Be Se Ge Ge Ge Ge Ge Se Ge Se Se Ge Ge Se 


IS ZERO 
” mS IF BN'S ACCESSED SREQUENTIALLY 
SEE a BEGIN/END SETS USED 
ts x BRANCH 
53 i A RANDOM BLOCK NUMBER (BEGIN/END SETS) 
of nwoen BLOCK NUMBER (TRACKS/GROUPS) 
if war ee SETS USED 
GET A wn BLOCK NUMBER (BEGIN/END SETS) 
ener (SHOULD BRANCH M.. 7$) seeneeee 


K NUMBER (TRACKS/GROUPS) 
in ine TO NEXT MODULE 


T, 


ali 
| 


SEQ 359 
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SEQ 360 
UDATS DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 63 
AFTOP = AFTER THE SECTOR HAS BEEN DETERMINED, FIND OUT WHAT T 


SBTTL AFTOP = AFTER THE SECTOR HAS BEEN DETERMINED, FIND OUT WHAT TO DO WITH IT 
004641 FTOP: 
REST OF THE OPERATION 


A 
: AFTER THE SECTORS TO BE READ/WRITTEN HAVE BEEN DETERMINED, SET UP THE 
-$BTTL CLRUP = CLEAR ALL PARAMETER BITS 


CLRUP CLEARS ALL NECESSARY FLAG BITS 


004641 104657 000046 MOV U.PARM(RS),RO _; MOVE UNIT PARAMETERS TO RO 
: CLEAR a, aptant BEFORE THE NEXT OPERA 

004643 103207 004712 BIC :REVEC /WCHECK ! DATCMP! REDWRT !NEWSUB, RO 

004645 100657 000046 MOV R0.U.P U.PARM(RS) ; SAVE UNIT PARAMETERS 


USWN =O OCONOUSwra— 


— —s sd ss 


- 





104142 


102202 
054661 
Moe ene 
05466 
024773 
110601 


044665 
101207 
100657 


NOVUWNOON 


NOUSWN OC OONOMNE wn 


ss33sss33333 


VV 
RS 
Vn 


042000 
004000 


000100 
000046 


SEQ 361, 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49: a, PAGE 64 
RORW = DETERMINE IF A READ OR A WRITE IS TO BE DON 


4 dh, RORW = DETERMINE IF A READ OR A WRITE IS TO BE DONE 


1$: 
2$: 


RORW DETERMINES IF THE BLOCK SELECTED WILL BE READ OR WRITTEN 


MOV (R4) ,R2 ; GET SUBUNIT PARAMETERS 

ASSUME $.PARM.0 ASSUME THAT S.PARM IS ZERO 

ei #INITWLWONLY.R2 SEE IF INITIAL WRITE OR URITE ONLY 
BIT #RONLY ,R2 : SEE % READ ONLY 

BNE 2$ 


: GET RANDOM NUMBER 
: ROTATE LOW BIT INTO CARRY 
: IF LOW BIT ZERO, BRANCH 
: SET READ OR URI TE’ BIT (WRITE) 
: SAVE UNIT PARAMETERS 


CALL RANDOM 
ROR R1 


2s 
BIS #REDWRT ,RO 
MOV RO,U.PARM(RS) 


> IF SO, BRANCH 


pe a ~ - . 


N 12 





SEQ 362 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 65 
PATTRN = IF WRITE, DETERMINE WHAT PATTERN IS TO BE WRITTEN 


1 -SBTTL PATTRN = IF WRITE, DETERMINE WHAT PATTERN IS TO BE WRITTEN 

¢ sPATTRN 

4 : FIND PATTERN TO USE (ONLY IF WRITE TO BE DONE) 

6 004665 102207 000100 BIT #REDWRT RO : SEE IF WRITE To BE DONE 

7 004667 014704 BEQ x : IF NOT 

8 004670 104641 000004 MOV S.PAT(R4),R1  : GET PATTER N NUMBER 

9 004672 014676 BEQ RNDO : IF PATTERN NOT SELECTED, BRANCH 
10 004673 103201 177760 BIC #LBLONB,R1 : SPECIAL PATTERN USED, CLEAR HI BITS (MAP 16 TO 0) 

11 004675 00470 BR FIXPAT : IF PATTERN SELECTED, USE IT 
12 004676 02477 RNDO: CALL RANDOM : GET RANDOM PATTERN NUMBER 

13 004677 103201 177760 BIC #LBLONB,R1 : CLEAR UNUSED 81 is. 
14 004701 014676 BEQ R : NO SUCH THING AS PATTERN 0, TRY AGAIN } 
15 004702 100651 000014 FIXPAT: MOV R1,U.PAT(RS) |: SAVE THE PATTERN NUMBER 
16 004704 PATEXT: | 


aR 


So 
e-ssascaeses 


Owno—o—o 

5 ta 
NNR NPN NIT 
NOMONONG 


=—rMmw 
Monon 


So 


OWONAUSWN—O OONOUSwn— 
= 


td bt ts 2 a 
RRRRRA ESSERE ET 
NVMIWN OO NUE No 





000100 
000010 
040000 
000004 


000010 
000046 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 66 
WCHK = IF WRITE, SEE IF A WRITE CHECK IS TO BE DONE 


» SBTTL WCHK 
swe HK 


1$: 
2$: 





SEQ ia 


- IF WRITE, SEE IF A WRITE CHECK IS TO BE DONE 


WCHK SETS THE WRITE CHECK BIT IF A WRITE CHECK IS TO BE DONE 


| Foe. WRITE = TO BE DONE 
; SEE IF WRITE CHECK IS TO BE DONE 


; IF 
; SEE IF INITIAL ys IS_IN PROGRESS 
; IF SO, NO WRITE CH O BRANCH 
; SEE IF a Be 1s” ALWAYS TO BE DONE 


e 


; GET RANDOM NUMBER 

; 1/2 OF THE TIME WRITE CHECK 

; BRANCH (NO WRITE CHECK) IF LOWEST BIT CLEAR 
; SET WRITE CHECK BIT 

; SAVE UNIT PARAMETERS 


GUESS 


NOAULSWNRONUW 
-—Oo-0-0— 
= 
w 


-—oo 
=—NMUNGo—o—0o—0 
S258 

ONES 


g 


DONAUVESWN—O OOO wn— 
So 


SEREEEEREREeee 
‘3 





000002 
000100 
000010 
000001 


000002 
000046 


C 13 


UDATS DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 67 
DCOMP = IF READ OR WRITE W/WRITE CHECK, SEE IF DATA COMPARE I 


- IF READ OR WRITE 


genrenn Re 
#REDWRT RO 
DCREAD 
MWCHECK ,RO 
DCEXT 
#DCMPAL ,R2 
DCMPYS 
RANDOM 

R1 


DCEXT 
#DATCMP RO 


RO. U.PARM(RS) 


W/WRITE CHECK, SEE IF DATA COMPARE IS TO BE DONE 


DCOMP SETS THE DATCMP BIT IF A DATA COMPARE IS TO BE DONE 


SEE Fe IF DATA COMPARE REQUESTED 
sre IF READ is TO BE DONE 

IF SO, BRANCH 

SEE If WRITE CHECK IS TO BE DONE 
SEE IF DATA COMPARE ALWAYS DONE 
IF SO, BRANCH 


GET RANDOM NUMBER 

: SEE IF DATA COMPARE SHOULD BE DONE 
IF NOT, BR 

: SET DATA COMPARE BIT 

: SAVE UNIT PARAMETERS 





Sanaa 
N= NNN 


ae aed ss Oo tb 2 


756 
60 
e8 
65 
67 
70 
72 


7 
7 
7 
7 
7 
7 
7 
7 003 


1 
§ Soc 
4 004 
5 004 
6 004 
7? 004 
8 004 
9 004 
0 004 


5 


Wo 


1 


UDATS DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 68 
DCOMP = IF READ OR WRITE W/WRITE CHECK, SEE IF DATA COMPARE I 


000051 
000053 
000052 
000054 
000024 
000021 
000001 





N U. CBNeT (RSD 


IS ZERO 
; SECTORS R/W THIS PASS IS ZERO 
; IMMIDATE Tar TO_NEXT MODULE 
S SE Ys 





UDATS DISK EXERCISER DMACR_X04.01 13-APR-82 15:49:22 PAGE 69 
RANDOM = RANDOM NUMBER ROUTINE 










E 13 


1 .SBTTL RANDOM = RANDOM NUMBER ROUTINE 

: 004773 RANDOM: 

4 : RANDOM CALCULATES A RANDOM NUMBER AND RETURWS IT IN R1 

2 ; RANGE 0 = 2°16=1 

? 004773 PUSH  <RO,R2> : SAVE RO AND R2 
004773 100467 MOV RO,-(SP) 
004774 100462 MOV R2,-(SP) 

8 004775 104307 002224 MOV LOSEED,RO z MOVE LO ORDER SEED TO RO 

9 004777 104301 002225 MOV HISEED,R1 : MOVE HI SEED TO R1 

10 005001 104 02 000007 MOV 7,R2 ; MOVE LOOP COUNT TO R? 

11 005003 11020 1$: ROL > ROTATE LO ORDER NUMPER BY 1 

le 005004 110201 ROL R1 ; ROTATE HI OREDR NUMBER BY 1 (PROPOGATE CARRY) 

13 005005 103207 000001 BIC #1,R0 : CLEAR LOWER BIT 

14 005007 11740 DEC R2 : DECREMENT COUNT 

15 005010 05500 BNE 1$ : IF COUNT INCOMPLETE, BRANCH 

16 005011 105307 002224 ADD LOSEED,RO 3 ADD ORIGINAL SEED (%129) 

17 005013 045015 BCC 2$ + IF NO CARRY, c 

18 005014 115401 INC R1 + PROPOGATE C 

19 005015 105301 002225 2s: ADD HISEED,R1 : ADD HISEED 

20 005017 105207 001057 ADD #1057,R0 : ADD LO CONSTANT 

21 0050¢1 045023 BCC 3$ : IF NO CARRY, BRANCH 

22 0050, 2 115401 INC R1 : PR TE CARRY 

23 005023 105201 047401 3$: ADD #47601,R1 : ADD HI CONSTANT 

24 005025 104070 002224 MOV RO,LOSEED : SAVE LO ORDER SEED 

25 005027 104010 002225 MOV R1 -HISEED : SAVE HI ORDER SEE 

26 005031 <R2,RO> : RESTORE R2 AND RO 
005031 104262 MOV (SP)+,R2 
005032 104267 MOV (SP)+.RO 

27 005033 RETURN 


SEQ 366 








005034 


NOOO NOulwnr— 


—b ot 


yon ~— 
CONGO WNSwW 


UDAT4 DISK EXERCI 
MASK = FIND MA 


3 


ab Ha 
$So$3z 
=e 
ono 
=—Oo— 
Neo oe 


SER DMACR 
SK FOR RAND 


000001 


177777 


X04.01 13=APR=82 15:49:22 PAGE 70 
OM NUMBER 


Pe Ue MASK = FIND MASK FOR RANDOM NUMBER 


1$: 


AREA2 
MAXADR 


MASK MASKS OUT HIGHER BITS OF A RANDOM NUMBER, SO THE PROB. OF THE 


RANDOM NUMBER E 


PUSH 


R1 


+1 
LE 
+ 


2 "piensa 


XCEEDING THE MAXIMUM DESIRED I$ LESSENED 
; SAVE R1 


MOV R1,-(SP) 


ZERO R1 
ROTATE R1 ONE BIT LEFT 
TURN T 

SEE IF R1_ IS GREATER THAN RO 
IF NOT, BRANCH 


BCC -+2 
BR 1$ 
SET UP FOR COMPLEMENT 
COMPLEMENT R1 
RESTORE R1 


MOV (SP)+,R1 
RETURN TO RNDLBN 


SEQ 367 
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UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 71 
seeeeeeeee OVERLAY MODULE RNDBE - GET NEXT RANDOM BEGIN/END SE 


1 

2 005051 

3 005051 000105 

4 

5 

6 

7 

8 

9 
10 000003 

11 
12 

13 
14 

15 
16 
17 003036 114007 

18 005053 104203 000016 
19 005055 105043 
20 005056 104132 
21 005057 075064 
22 005060 105203 000004 
23 openes 115407 
24 005063 005056 
25 005064 115007 
26 005065 0151 
27 005066 02477 
28 005067 103201 177774 
29 005071 106207 000002 
30 005073 075103 
31 005074 015100 
32 005075 103201 177776 
33 005077 005103 
34 0051 106201 000002 
35 005102 075066 
36 005103 104017 
37 005104 105077 
38 005105 105077 
39 005106 105207 000013 
40 005110 105047 


- SBTTL MOVLY Re H+ AY MODULE RNDBE - GET NEXT RANDOM BEGIN/END SET SECTOR 
sOUTPUT EDC FOR THIS OVERLAY 


sReRRRRRERERARAEREERRREREERERERARARARERERERERERRRERERRRERERERREEEEeReEREEERES 


Be Se Fe Se Ge Ble Ge Ge Ge Ge Se Se 


CL RO 

MOV #S.BESS+3,R3 

ADD 
CNTLOP: MOV (R3) ,R2 

BMI COUNTD 

ADD ” 

INC 

BR CNTLOP 
COUNTD: TST RO 

BEQ GOTOFS 
TRYAGN: CALL RANDOM 

BIC #177774,R1 

CMP #2,RO 

BMI 

BEQ THREBE 

BIC #177776,R1 

BR GOTOBE 
THREBE: CMP #2,R1 

BMI TRYAGN 
GOTOBE: MOV R1,RO 

ADD RO.RO 

ADD RO.RO 
GOTOFS: ADD #S.BESS,RO 

ADD R4_RO 


DMOVLY 


NEWOP+1 


RNDBE GETS A RANDOM LBN NUMBER 


GET A RANDOM BEGIN/END SET FROM THE SUBUNIT'S B/E SETS 
a LSB 


A 
MASK OUT ALL 


; INITILIZE COUNTER 
; R3 POINTS TO FIRST B/E SET 
; R3 POINTS TO FIRST ty a 


NUMBER 
L Gul ¢ Louest 


TEST HOW COUNT RELATES T 
one 


IF COUNT IS 3, 
IF COUNT IS 2, 


BIT 
02 


ee ALL bur" LOWEST BIT 
SEE _IF RANDOM NUMBER OVER 2 


IF SO, GET ANOTHER NUMBER 
MOVE RANDOM NUMBER TO RO 


RO X 
POINT TO RANDOM BEGIN/END SET 
POINT TO RANDOM BEGIN/END SET 


SRAERAAEAAERARARARAARARRERAAEREARARAEREREERERERARAERERRERERERAEHERERERERAAEREEEEEE 
SERRA AAAAEAEAEAAAERAEEAEAEAERAAAARAREERAEREARAREREREAARARERERREEERAREAAEEREREREE 
SRAAAAAARAAAAEAEARAEARAAARERERERERRARAERARAERAARERAAERRERRARAERREREEAEREERERARAEAEREEEE 


SEQ 368 


H 13 
SEQ 369 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 72 

weeeeeeeee OVERLAY MODULE RNDBE - GET NEXT RANDOM BEGIN/END SE 


1 


2 ; ONCE A RANDOM B/E SET HAS BEEN FOUND, FIND A RANDOM LBN 
; : WITHIN THAT B/E SET 
5 005111 PUSH <R4,R5> : SAVE R4 AND RS 
005111 100464 MOV R4,=(SP) 
005112 100465 MOV R5,-(SP) 
6 005113 104374 MOV (RO)+,R4 : R4 GETS LO ORDER ENDING LON | 
7 005114 104275 MOV (RO) +<R5 : RS GETS HI ORDER ENDING LBN 
8 005115 107274 SUB (RO) +, RG : SUBTRACT LO ORDER STARTING LBN 
9 005116 045120 BCC NOBORO : IF NO BORROW, BRANCH 
10 005117 117405 DEC t ADJUST FOR BORROW | 
11 005120 104171 NOBORO: MOV (RO) Ri : GET HI WORD | 
12 005121 103201 170000 BIC #170000,R1 : STRIP OFF EOL FLAG (IF ANY) 
13 005123 107015 SUB sR1,R5 ; SUBTRACT HI ORDER STARTING LBN | 
14 005124 117407 DEC + POINT TO LO ORDER STARTING LBN | 
15 005125 PUSH RO + SAVE RO 
005125 100467 MOV RO,=(SP) | 
16 005126 024773 10$: CALL — RANDOM : GET A RANDOM NUMBER | 
17 005127 114003 CLR : 
18 005130 104301 002224 MOV LOSEED,R1 : ORIGINAL SEED IN R1 
19 005132 115005 TST RS : SEE IF RS IS ZERO 
20 005133 015145 BEQ 11$ ; IF SO, BRANCH | 
21 005134 104057 MOV R5,RO t ELSE, STORE IN RO 
22 005135 025034 CALL MASK : COMPUTE RANDOM NUMBER MASK 
23 005136 303 002225 MOV HISEED,R3 : RANDOM NUMBER INTO R3 
24 005140 103073 BIC RO,R3 + CLEAR WITH MASK 
25 005141 53 CMP R5.R3 : CMP MAXIMUM RANDOM NUM TO RANDOM NUM 
26 00514 acs «i108 ; IF TOO LARGE, DO AGAIN 
005142 045144 BCC .42 
005143 005126 BR 10$ | 
27 005144 055153 BNE CLCLON : IF NOT THE SAME, BRANCH | 
28 005145 104 11$: MOV R4 RO : MOVE R4 TO RO TO COMPUTE MASK 
29 005146 025034 CALL MASK : COMPUTE MASK 
30 005147 103071 BIC RO,R1 t MASK OUT HIGH BITS 
31 005150 1 CMP R4_RI : SEE IF MAX RND NUM < RANDOM NUMBER 
32 005151 BCS 10$ : IF SO, DO AGAIN 
005151 045153 BCC .+2 
00515 005126 i0$ | 
33 005153 10401 CLCLON: MOV R1,R2 : MOVE RANDOM NUMBER TO R2 | 
005154 POP RO : RESTORE RO 
005154 104267 MOV (SP)+,RO | 
5 005155 105272 ADD (RO)+,R2 ; ADD LO ORDER STARTING BLOCK TO RANDOM NUM 
005156 045160 BCC 3$ + IF NO CARRY, BRANCH | 
7 005157 115403 INC R3 : ADJUST HIGH ORDER FOR CARRY 
005160 104171 3S: MOV (RO) ,R1 : MOVE HI ORDER LBN TO R1 
39 005161 103201 170000 BIC #170000,R1 3 STRIP OFF EOL FLAG IF ANY 
40 005163 105013 ADD R1,R3 : ADD HI L 
41 005164 <5 ,R4> + RESTORE RS, R4 
005164 104265 MOV (SP)+,R5 
005165 104264 MOV (SP)+.R4 
42 005166 107207 000003 SUB #3,R0 : RO POINTS TO ENDING LBN 
43 005170 104271 MOV (RO) +,R1 : R1 HAS LO ORDER ENDING L 
44 005171 104177 MOV (RO) ,RO : RO HAS HI ORDER ENDING LBN | 
45 005172 107021 SUB R2,Ri + SUBTRACT LO LBN FROM LO ENDING LBN 
46 005173 0752 BMI 4$ : IF RESULT IS NEGATIVE, BRANCH 
47 005174 045176 BCC 1$ + IF NO CARRY, BRANCH 





48 005175 


w 


ee 
Wee 
WoooN 
NM NW 
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weeeeeeeee OVERLAY MODULE RNDBE - GET NEXT RANDOM BEGIN/END SE 


DEC 


R 

RS.RO 
#77776,R1 
R1 

R1,R0 

R3 

RAN 


RO,R1 
6$ 


R1,RO 
RO,U. TSEC(RS) 
R3 


ne (RO)+ 


R3,(R 
#AF TOP RO 
R1 


R2 
JMPRET 
$B 


L 
LE ,MAXADR-. 


+4 


DOM 
acne 





DECREMENT HI ENDING LBN 

SUBTRACT HI LON FROM HI ENDING LBN 
IF HI WORD IS ZERO, BRANCH 

MOVE MAXIMUM COUNT TO 

INCREMENT MAXIMUM SECTOR COUNT 
COPY TO RO FOR MAXMUM 


SAVE R3 

MOV R3,-(SP) 
GET A RANDOM NUMBER OF SECTORS TO READ/WRITE 
SET READ/WRITE LIMIT 
MAKE MAXIMUM OF LIMIT+1 
SEE IF RANDOM NUMBER EXCEEDS POSSIBLE 
IF SO, BRAN 
ONLY READ/WRITE THE RANDOM NUMBER OF SECTORS 
SAVE IN TSEC 
RESTORE R 


RO POINTS TO LON AREA 
RO POINTS TO LBN AREA 


MOV (SP)+,R3 


SEQ 371 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 73 
eeeeeeeeee OVERLAY MODULE GET NEXT AL BEGIN/EN 
1 .SBTTL teeeeeenee OVERLAY MODULE GET NEXT AL BEGIN/END SET SECTOR 
2 005231 DMOVLY SB,AREA 
005231 000105 .WREDC sOUTPUT EDC FOR THIS OVERLAY 

3 J RAAAAAAAAAAAAAAAAAAREAREREREARARERAERARREREREEEREERERARAEERERAEREREEEEREEEEEE 

4 FERRARA AAAAAAAAAAAEARAEERERAEAAERARAERAERARAEAEARERAERARAEERAER THAEEREEEEREERREEEEE 

5 FEAAAAAAAAAAAAAARAAAAEAAERAEAAAARARAAAAAAAARAAERERERERERARAEEERAEEEEEEREEREEEREREREE 

6 FRAAAAAARAAAAAAAAAAEAAEREREEAAAREREARAARAEAAARAARAREARREEREREEREEREREEEEEEEEEREEE 

? ; 

5 | 
10 000004 RNDBE+1 

i F NDS THE NEXT AL LBN 

14 .ENABL LSB 

15 005052 104657 000046 MOV U.PARM(RS),RO ; MOVE UNIT PARAMETERS TO RO 

16 005054 102207 010000 BIT #DIREC,RO : TEST DIRECTION 

17 005056 015163 BEQ uP : IF UP, BRANCH 

18 005057 115000 002217 TST SCR1 : SEE IF NEW SUBUNIT | 
19 005061 015104 BEQ 5$ : IF NOT, BRANCH | 
20 005062 104201 000013 MOV #S.BESS,R1 + RO WILL POINT TO BEGIN/END SETS | 
21 005064 105041 ADD R4_R : RO POINTS TO BEGIN/END SETS 
22 005065 104617 000003 6$: MOV 3(R1),RO t SEE IF END-OF-LIST 
23 005067 075073 BMI BS : IF SO, BRANCH | 
24 005070 105201 000004 ADD #4,R1 : POINT TO NEXT BEGIN/END SET | 
25 005072 005065 BR 6$ 24 | 
26 005073 104202 000051 8$: MOV #U.MBN,R2 : R2 WILL POINT TO MASTER BN | 
27 005075 10505 ADD RS.R2 t R2 POINTS TO MASTER BN 
28 005076 10421 MOV (R1)+,RO : GET LO ORDER ENDING SET 

29 005077 100127- MOV RO, (R2) + SAVE 

30 005100 104217 MOV (R1)*,RO : GET HI ORDER ENDING SET 
31 005101 100627 000001 MOV RO, 1(R2) + SAVE | 
32 005103 005123 BR : BRANCH | 
33 005104 025275 5$: CALL § FNDBES : FIND BEGIN/END SET THAT LON IS IN | 
34 005105 105201 000002 ADD #2,R1 : POINT TO BEGIN SET ) 
35 005107 021765 CALL 2 : SEE IF LBN = BEGINNING LBN 

36 005110 015143 BEG SD : IF SO, H 
37 005111 104127 MOV (R2) RO : MOVE LOW ORDER WORD TO RO | 
38 005112 107207 000001 SUB RO 3; DECREMENT RO 
39 005114 100127 MOV RO. (R2) + SAVE RO | 
40 005115 045123 BCC : IF NO BORROW, BRANCH | 
41 005116 104627 000001 MOV 1(R2),RO : MOVE HIGH ORDER WORD TO RO | 
42 005120 117407 DEC RO : DECREMENT RO | 
43 005121 100627 000001 MOV RO, 1(R2) : SAVE R 
44 005123 104227 7$: MOV (Rd) +,RO : MOVE LO ORDER BN TO 
45 005124 104223 MOV (R2)+.R3 : MOVE HI ORDER BN TO R 
46 005125 107217 SUB (R1)+_RO ¢ SUBTRACT BEGIN BN FROM BN 

47 0051 075136 BMI 4$ ; If RESULT IS NEGATIVE, BRANCH 

48 0051 5131 BCC 1$ : IF NO BORROW, H | 
49 005130 117403 DEC R3 + PROPOGAT | 
50 005131 106111 1$: MOV (R1),R1 : GET BEGINNING BN | 
51 005132 103201 170000 BIC #*CHBHING RI + CLEAR EOL FLAG, IF ANY 
3 005134 107013 SUB R1,R > SUBTRACT HI ORDER BN FROM HI BN 
53 005135 015140 BEQ + IF EQUAL 

54 005136 104207 077776 4$: MOV #77776,RO : MOVE MAXIMUM COUNT TO RO 

55 005140 115407 $: INC RO : MAKE SUBTRACTION INCLUSIVE 

56 005141 025314 $: CALL § MAXMUM + SET MAXIMUM COUNT (U.TSEC AND U.MSEC) 





” 
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weeteeeeee OVERLAY MODULE 


57 005142 005144 


Ss 

% 

ae 

NO 
at a od od 

R 
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ad 
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WWW 
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SSES2S2 
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: 
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& 
$ 
3 
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So 
Ww 


Win 


04202 000051 
000023 


ee ee en 
NOW 
aN 


MMMM 
NOUWNO ~w 

ees 

=n 

Ranh 


3 


SSSLKALLLLS SBVRAKA 
S 
No 


ssssssesssesesesesesesess 


——s 
Ua 
ME EWN= 


VAR 
nM 


S355 
aww 


000001 


000601 
000001 


3 


PoPofononononononononony 
bet strep 
Saar 
—_ 
SEESS 
AN 
~~~ 


SSSSSRTE 


13-APR-82 15:49:22 P 
GET NEXT 


BESDWN: 
NLBEXT: 


AGE 73-1 

AL BEGIN/EN 
BR NLBEXT 
.DSABL LSB 
CALL PREVBE 
MOV U. TSEC(RS) RI 
DEC Ri 
MGV U.MBN(RS) ,R3 
SUB Ri, 
MOV R3.U.MBN(25) 
BCC 13 
MOV U.MBN+1(R5) ,R3 
DEC 3 
MOV R3,U.MBN+1 (RS) 
BR BEEXT 
TST SCR1 
BEQ 5$ 
MOV #S.BESS,R1 
ADD R4,R1 
MOV #U.MBN,R2 
ADD R5,R2 
MOV 2¢R1) RO 
MOV RO, (R2) 
MOV 3(R1),RO 
BIC #*CHBHINB,RO 
MOV RO, 1(R2) 
BR 7$ 
UPLBN 


; BRANCH 


FIND PREVIOUS B/E SET OR UNIT 
GET TOTAL NUMBER OF SECTORES TO READ/WRITE 
DECREMENT SECTOR COUNT 


; GET LO ORDER MAS 


TER BN 
— SECTORS TO READ/WRITE 


IF NO CARRY, BRANCH 
GET HI ORDER MASTER BN 
= CARRY 


BRANCH 

; SEE IF FIRST TIME ON THIS SUBUNIT 
IF NOT, CH 

; RO WILL POINT TO BEGIN/END SETS 


RO POINTS TO BEGIN/END SETS 
R2 WILL POINT TO MASTER BN 
R2 POINTS TO MASTER E | 

ee LO ORDER STARTING SET 


; GET HI ORDER STARTING SET 
; see EOL FLAG IF ANY 


BRANCH 


- IF GOING UP, UPDATE CURRENT BN TO LAST BN READ/WRITTEN 


UPLBN UPDATES U.MBN TO POINT TO THE LASi LBN READ/WRITTEN 
CINCREASING LBN) . en 


PUSH 


<RO,R2> 


#U.MBN,R2 
R 


R 
U- FSECCRS) .RO 


(R2) ,RO 
RO, (R2)+ 


R 
RO,1(R2) 


SAVE RO,R2 
NOV R2:=(3P) 
R2 POINTS TO LAST LBN 
R2 POINTS TO LAST LBN 
GET R OF SECTORS WRITTEN 
SUBTRACT 


ADD LOW ORDER LBN TO RO 
SAVE LOW ORDER — POINT TO HIGH ORDER 


IF NO CARRY 
GET HIGH ORDER WORD 
INCREMENT 
SAVE HIGH ORDER WORD 
RESTORE RO,R2 
my 2:8 
+, 
FIND BEGIN/END SET THAT LON IS IN 
IF LBN = ENDING LBN, BRANCH 
MOVE LOW ORDER WORD’ TO RO 
INCRERENT RO 
SAVE R 


IF NO CARRY, BRANCH 
MOVE HIGH ORDER WORD TO RO 


; res a RO 
SAVE R 


1 


SEQ 372 


°° 

110 00524 

111 00524 

ie 005244 
113 005245 
114 005 m¢ | 
115 00524 

116 005250 
117 005251 
118 005252 
119 005254 
130 005255 
121 005256 
\¢¢ 005257 
123 005260 
124 005262 
125 poesee 
126 005265 
127 005267 
128 005270 
129 005272 
130 005273 
131 005274 


077776 


000046 
004000 


000002 
004641 
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GOING UP, UPDATE CURRENT BN TO LAST BN READ/WRITTE 


(R1)+#,RO 
(R1) ,R3 
(R2)+,RO 
4$ 

1$ 

R3 

(R2),R3 
#77776,RO 
RO 

BEEXT 
NEXTBE 
U.PARM(RS) RC 
#NEWSUB RO 
#NEWOP , RO 
#AF TOP RO 
R1 


R2 
JMPRET 


RO HAS LO ENDING LBN 

R3 He HI ENDIN ane LBN 

SUBTRACT LO LBN FROM LO ENDING LBN 
IF RESULT is” NEGATIVE, BRANCH 

IF NO CARRY, a 

PROPOGATE CAR 

SUBTRACT HI CoN FROM ENDING LBN 

IF ZERO, BRANCH 

MOVE MAXIMUM COUNT TO RO 

MAKE Ry BL. INCLUSIVE 

SET ee COUNT (U.TSEC AND U.MSEC) 


BRAN 
FIND NEXT B/E SET OR UNIT 
T AME TERS 
ANCH 
NEWOP NEXT MODULE 
BRANCH 
NEXT MODULE IS AF TOP 
IMMIDATE CALL 
NO_ ERRORS 
RETURN TO R 


SEQ 373 
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UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49: ." PAGE 74 
FNDBES = FIND THE BEGIN/END SET CURRENT BN RESIDES I 


1 


¢ 005275 
4 

5 

6 005275 
? 005277 
8 005301 
9 005302 
10 005304 
11 005305 
12 005307 
13 005310 
14 005311 
15 005312 
16 005313 


oo 


OO -8 at ot ot 
Snosresreee 
UWYIW = PON aw 


177777 
000007 
000051 
000004 


seule FNDBES = FIND THE BEGIN/END SET CURRENT BN RESIDES IN 


° 
° 
. 
° 
° 
° 


FNDLOP: 


oOUTO: 


FNDBES FINDS THE BEGIN/END SET THAT THE CURRENT LBN RESIDES IN 


#-1,R3 
MOV ts. BESS=4,R1 
MOV #U. ABN, R2 


ADD R5,R2 
ADD #4,R1 
INC R3" 
CALL CMP2 
BEQ ouTO 
BCC FNDLOP 
RETURN 


; BO 


T TC _LBN 
; INCREMENY B/E SET POINTER 
NT_ COUNT 


; START COUNTER (ADJUSTED) 
; POINT TO B/E SETS 

POINT TO B/E SETS 

INT TO LBN 


; INCREMEN 

; COMPARE LEN WITH ENDING LBN 
; IF = 70, syne 

; IF_LBN > ENDING LON, BRANCH 


; RETURN TO CALLING PROGRAM 


—-—_———_— Ch CU - + --— - OOH 


| 
SEQ 374, 


' 
| 


-_~ 


Ss 
wn 
ww 
= 
™ 


PIPRIPIR) at ot et 
AEWN NNO S 


ONOUESWN =O DONO wn— 
SSSEeSs ss 


pitti 





002223 


002217 
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000006 
000023 
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oes 7 oy ty 4 DMACR X04.01 13-APR=82 15:49:22 PAGE 75 
MAXMUM = FIND HOW MANY SECTORS TO READ/WRITE 


-SBTTL MAXMUM = FIND HOW MANY SECTORS TO READ/WRITE 
MAXMUM: 


MAXMUM WILL WRITE THE on tke NUMBER OF SECTORS IF IN INITIAL WRITE, 
OTHERWISE IT WILL R/W ONE TRACK 


tr 
IWIPRG, 100000 
SCR1 


2 

ee 

S$. TRKL(R4) ,RO 
1$ 


S.TRKL(R4) ,RO 
RO,U. TSEC(RS) 


iF 80, ay Dh WRITE IS IN PROGRESS 


ANCH 
SSUME IWIPRG IS SIGN BIT 
FIRST TIME ON THIS UNIT 


IF NOT, BRAN CH 

oe WITH NEXT TRACK 

1 IF TRACK GREATER THAN MAX 
LESS that TRACK LENGTH, BRANCH 


SAVE NUMBER OF SECTORS TO R/W 
RETURN TO CALLING PROGRAM 


3 
w 
rs 


—~— 2 O— 


2 
o— 
Ros 


VASSSVRARUVVSSHVSARAWs=Somveulwn— 
RISS5 
VAAGEER 


Ww 
- 


RRARANAAAAAAR EERE 
on 302 oo = 
RaRagae 


r~ 
& 
Nm 
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170000 


077776 
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VBE = MOVE TO PREVIOUS BEGIN/END SET 


-SBTTL PREVBE = MOVE TO PREVIOUS BEGIN/END SET 
PREVBE : 


PREVBE IS CALLE 


D E LBN’S ARE DECREASING, AND THE LAST LBN 
WAS THE FIRST Lo 


TH 
ITHIN A B/E SET. PREVBE FINDS THE PREVIOUS 
B/E SET, OR, IF IT I T ON THE SUBUNIT, FINDS THE LAST B/E 
SET OF THE PREVI . IF IT IS THE FIRST BE SET OF THE FIRST 
UNIT, THE DIRECTION OF THE LBN'S ARE REVERSED (THEY BEGIN GOING UP 


THE UNI 
TST R3 ; SEE IF ALLREADY ON 1ST B/E SET 
BNE 5$ ; IF NOT, BRANCH 
MOV U.PARM(RS),RO ; GET UNIT PARAMETERS 
BIS #NEWSUB,R ; MARK AS GOING ON TO THE NEXT UNIT 
MOV RO,U.PARM(RS) ; SAVE 
BR 6$ ; EXIT 
5$: SU8 #6,R1 ; POINT TO PREVIOUS ENDING SET 
; MOVE ENDING SET TO LBN 


RO HAS LO ENDING LBN 
HAS HI ENDING LBN 
SUBTRACT LO BEGINNING LBN FROM LO ENDING 
; IF RESULT IS NEGATIVE, BRANCH 
; IF NOC BRANCH 


Y, 


BM 
BCC 1$ 


5 
an 
P ] 

parry om 

~ —~ = 

— + Vn 
ee 
P ] 
So 

De Se Ge Ge Ge Ge Ge Ge Ge Ve Se Ge Se Se Se Be Se Se Se Se Sed 


DEC R ; PROPOGATE CARRY 
1$: MOV (R1) ,R1 ; GET BEGINNING 
BIC #*CHBHINB,R1 CLEAR EOL FLAG, IF ANY 
SUB R1,R ; SUBTRACT HI ORDER BN FROM HI BN 
BEQ ; IF ZERO, BRANCH 
4$: MOV #77776,R0 MOVE MAXIMUM COUNT TO RO 
2$: INC R ; TO MAKE IT AN INCLUSIVE SUBTRACT 
3$: CALL NXTTRK ; SET MAXIMUM COUNT (U.TSEC AND U.MSEC) 
6$: RETURN ; RETURN TO CALLING PROGRAM 


C 14 








UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 77 
NEXTBE = MOVE TO NEXT BEGIN/END SET 


-SBTTL NEXTBE = MOVE TO NEXT BEGIN/END SET 
NEXTBE: 


005370 
4 : NEXTBE IS CALLED WHEN THE CURRENT LeN IS THE LAST OF ITS B/E SET. 
5 : NEXTBE GOES TO THE NEXT B/E SET FOR THE NEXT TH HE rt I 
6 : THE LAST ON THE SUBUNIT, IT GOES TO THE FIRST B/E SET OF THE NEXT 
? : UNIT. IF IT IS THE LAST B/E SET ON THE LAST UNIT, THE “DIRECTION Is 
8 : CHANGED (DOWN), AND THE INITIAL WRITE BIT IS CLEARED IN CASE AN 
R ; INITIAL WRITE IS IN PROGRESS 
11 005370 104617 000003 MOV 3(R1),RO : SEE IF THIS IS LAST B/E SET ON THIS UNIT 
12 005372 0535402 BPL 1$ : IF SO, BRANCH 
13 005373 104657 000046 MOV U.PARM(RS),RO  : GET SUBUNIT PARAMETERS 
14 005375 101207 004000 BIS #NEWSUB,R ¢ RARK AS GOING ON TOA NEW SUBUNIT 
15 005377 100657 000046 MOV RO,U-PARM(RS) : SAVE 
16 005401 005426 BR 7$ : EXIT 
17 005402 105201 000006 1$: ADD #6,R1 t POINT TO NEXT BEGINNING LON 
18 005404 025427 CALL Move : MOVE BEGINNING LON TO LBN 
19 005405 107201 000002 SUB #2,R1 : R1 POINTS TO END Ser” 
20 005407 104217 MOV (Ri)+,RO : RO HAS LO ENDING L 
21 005410 104213 MOV (R1)+_,R3 + R3 HAS HI ENDING SET 
22 005411 107217 SUB (R1)+_RO : SUBTRACT BEGINNING L 
23 005412 075422 BMI 5% : IF RESULT IS NEGATIVE, BRANCH 
24 005413 045415 Bcc 2$ > IF NO CARRY, BRANCH 
25 005414 117403 DEC 3 + PROPOGA , 
26 005415 104111 2s: MOV (R1),R1 : GET BEGINNING BN 
27 005416 103201 170000 BIC #°CHBHINB,R1 =: CLEAR EOL FLAG, IF 
28 005420 107013 SUB R1,R3 : SUBTRACT HI ORDER en FROM HI BN 
29 005421 015424 BEQ : IF ZERO. AN'CH 
30 005422 104207 077776 5$: MOV #77776,RO : MOVE MAXIMUM COUNT TO RO 
31 005424 115407 3s: INC + INCREMENT RO (INCLUSIVE SUBTRACT) 
32 005425 025442 4$: CALL = NXTTRK > SET MAXIMUM COUNT (U.TSEC AND U.MSEC) 
33 005426 000000 7$: RETURN > RETURN TO CALLING PROGRAM 





SEQ 377 






move 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR=-82 15:49:22 PAGE 78 
Vv - 28 BIT MOVE 


- 28 BIT MOVE 


MOV2 COPIES A 28 BIT NUMBER POINTED TO BY R1 TO TWO WORDS POINTED 
BITS 31-28 ARE 


CLEARED BEFORE COPYING 


SAVE RO 

MOV RO,-(SP) 
MOVE SOURCE LOW ORDER WORD TO RO 
MOVE RO TO DESTINATION LOW ORDER WORD 
MOVE SOURCE HIGH ORDER WORD TO RO 
STRIP OFF UNUSED BITS 
MOVE RO re DESTINATION HIGH ORDER WORD 


RESTORE 
MOV (SP)+,RO 
RETURN TO CALLING PROGRAM 
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NXTTRK = F 


005442 


PDEA) ed aed at ed ed at es ot os 
WONAUSWN—OO @BuOunfwn— 


<SS3 SNSRKUNYss 
sssssssses 
Sunn 


& 

So 
88 
MVM 


& 

La) 
ss 
Vw 

w 


wi 
LVS 


ow— 
— 

REEPEE Sus 

WN =NNNO-O— MON 


ty Spt to 
RANSERER 
aN 


207 
51 


000020 
000046 


005604 
002201 
000004 


000020 


000001 
177777 
000046 


177760 


000046 


1$: 


2$: 


3$: 


4$: 


FIND HOW MANY SECTORS TO R/W TO ALIGN WITH NEXT TRACK 
4 NXTTRK = FIND HOW MANY SECTORS TO R/W TO ALIGN-WITH NEXT TRACK BOUNDRY 


COMPUTE HOW ey SECTORS i atet oe te TO GET ON A May BOUNDRY 


THIS WILL AL 
WITHOUT ANY ‘BACKWARDS* 
PUSH = RO 
TST M.PARM 
BMI & 
ASSUME IWIPRG, 100000 
MOV U.MBN(RS), 
MOV Rie CURBN 
MOV U.MBN+1(R5),R1 
MOV R71, CURBN+1 
CLR RO 
CALL CALC 
MOV #CYLSCR,RO 
MOV #CYL,R1 
MOV #6 ,R2 
MOV (Ride R3 
MOV R3, (RO) 
DEC R2- 
BNE 
MOV #20,R0 
MOV U.PARM(RS) ,R1 
CALL 1D 
PUSH RO 
CALL CALC 
MOV ACYLSCR,RO 
MOV #CYL,R1 
MOV 4,R2 
MOV (R1)+,R3 
CMP (RO)+-R 
BNE 2$ 
DEC R2 
BNE 9$ 
POP RO 
CMP #20,R0 
BEQ 1$ 
BR 3$ 
POP RO 
CMP #1,R0 
BEQ 4$ 
MOV #-1,R1 
BIC U.PARM(RS) RI 
CALL «1D 
ROR RO 
BIC #LBLONB,RO 
BNE 1$ 
INC RO 
BR 4 
MOV U.PARM(RS) ,R3 


WRITES TO BE PERF 


ORMED 
SEEKING (EXCEPT IN THE CASE OF REVECTORS) 
: SAVE RO 


MOV RO,-(SP) 
SEE | IF INITIAL WRITE 
IF EXIT (WRITE MAXIMUM POSSIBLE) 
ASS sume IWIPRG IS SIGN BIT 
GET LO LO ORDER SECTOR TO R/W 


VE TO CALC AREA 
GET HI ORDER SECTOR TO R/W 
MOVE TO CALC AREA 
TELL CALC TO SETUP ALL REQUIRED PARAMETERS 
eB TRACK THAT SECTOR IS ON 


POINTS TO SCRATCH SPACE 
R1 POINTS TO CYL, GRP AND TRACK 
MOVE 4 WORDS 


SAVE 

DECREMENT COUNT 

IF INCOMPLETE, BRAN 

START INCREMENT SY 10 (16 DECIMAL) 

GET UNIT PARAMET 

ee OR DECREMENT (DEPENDING ON DIRECTION) 


MOV RO,-(SP) 


; CALCULATE NEW CYL/GRP/TRK 

; RO POINTS TO SCRATCH SPACE 

; R1 POINTS TO CYL, GRP AND TRACK 
4 WORDS 


T 
IF INCOMPLETE, BRANCH 
RESTORE STEPSIZE 


MOV (SP)+,RO 
SEE _IF ORIGINAL STEPSIZE 
If SO, BRANCH 


BRANCH 
RESTORE STEPSIZE 


MOV (SP)+,R0 
ace IF LAST STEPSIZE 
FOUND FIRST SECTOR be ANOTHER TRACK 
SET UP FOR COMPLEMENT 
COMPLEMENT 


ROTATE TO HALVE STEPSIZE 
CLEAR UNUSED BITS 
IF are ie LOOP 


LOOP 
GET UNIT PARAMETERS 


SEQ 379 





FIND HOW 
54 005542 


rie at EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 79-1 


HOW MANY SECTORS TO R/W TO ALIGN WITH NEXT TRACK 


seSse —— 
FS 


SE 


010000 
000051 
002175 
002175 
000051 


000023 


010000 
002175 
002176 
002175 
002176 


5$: 
6$: 


7$: 


ID: 


1$: 


2$: 


CYLSCR: 


MAXADR 


alae 
U.MBN(RS) ,R3 
CURBN RS 
CURBN , R3 
U.MBN(RS) ,R3 
RO 

RO,R3 

7$ 


R3,RO 
RO,U. TSEC(RS) 


_— 
RO, CURBN 
2s 
CURBN+1 
2s 

G2 -CURaN 
CURBN+1 


oooo 


LE ,MAXADR-. 
+i 


FIND WHAT DIRECTION YOU'RE GOING IN 
F_UP, H 


I AN 
GET LO ass STARTING BN 
he ENDING 


5 
par 
aes 
> 
o 
“4 
nn 
= 


NG BN 
GET MAX SECTORS THAT CAN BE R/W 
MOV (SP)+,RO 


COMPARE 

IF CAN WRITE MORE _ POSSIBLE, BRANCH 
SETUP TO WRITE TO 

SAVE IN SECTORS TO RW 

RETURN TO CALLING PROGRAM 


SEE IF GOING UP OR DOWN 
if CH 


; PROPOGATE CARRY 


SCRATCH AREA FOR STORING CYL, GRP AND TRK 


SEQ 380 
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SEQ 381 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 80 
weeeeneeee OVERLAY MODULE RNDTG = RANDOMLY GET NEXT TRACK/GROU 


-SBTTL seeeeeeeee OVERLAY MODULE RNDTG = RANDOMLY GET NEXT TRACK/GROUP SECTOR 
005610 DMOVLY RT,AR 
005610 000105 WREDC OUTPUT EDC FOR THIS OVERLAY 
TITITIITIVIITILILLI ILLITE LITTLE LITLE T TET ETT TTT ETT 
Ti iirivii iit iviiiiiiiiiiiiiiitiiiitiiiitititit 
ir iiriviitii iii itiiiiiiiitiiiiiitiiiitititit 
ii iviiiiisiiiiitiiiiiiiiiitiiititititititit 


NMP 2 2 
RUNS SRNOARWr—Cwmvounw Nu 


000005 RNDTG = 
COME UP WITH A RANDOM BN TO TEST USING THE TRACK/GROUP SETS 
FIRST COME UP WITH A RANDOM COUNT <= MAXIMUM COUNT 
-ENABL LSB 
003036 024773 1$: CALL RAN 3 GET RANDOM NUMBER 
005053 114002 CLR : HI ORDE WORD IS ZERO 
005054 104301 002224 MOV LOSEED,R1 : LOSEED IN R1 
005056 104647 000014 MOV S.MCNT+1(R4),RO ; GET MAXIMUM HI ORDER WORD 
005060 015072 BEQ 3$ : IF ZERO, CH 
005061 025034 CALL MASK ; CREATE MASK a RANDOM NUMBER 
005062 104302 002225 MOV HISEED,R2 3 PUT NUMBER IN 
005064 10307 BIC RO,R 3 STRIP ~. UNUSED BITS 
25 005065 106642 000014 CMP S.MCNT+1(R4),R2 ; SEE IF MAX EXCEEDED 
26 005067 BCS 1$ : IF SO, TRY AGAIN 
5067 045071 BCC -+2 
5070 005052 BR 1$ 
27 005071 055102 BNE 5$ : IF NOT EQUAL, md 
28 005072 104647 000013 3$: MOV S.MCNT(R4),RO ; GET LO ORDER 
29 005074 025034 CALL MASK 3 GET RANDOM MASK 
30 005075 103071 BIC RO,R1 3 STRIP OFF BITS 
31 005076 106641 000013 CMP S.MCNT(R4),R1 ; CHECK WITH MAX 
32 005100 BCS 1$ : IF GREATER THAN MAX, DO AGAIN 
005100 045102 -+2 


005101 005052 BR 1$ 


H 14 
SEQ 382 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 81 | 
eeeeeeweee OVERLAY MODULE RNDTG = RANDOMLY GET NEXT TRACK/GROU 


1 ; 
¢ ; NOW FIND THE BN ASSOCIATED WITH THAT COUNT 
4 00510, Ss: PUSH _— <RS,R4> ; PUSH THE UNIT AND SUBUNIT POINTERS 
005102 100465 MOV RS, = (SP) 
005103 100464 MOV R4.=(SP) 
5 005104 104205 000015 MOV #S.TGOF RS : RS WILL POINT TO THE TRACK/GROUP OFFSETS 
6 005106 105045 ADD R4.RS : R5 POINTS TO THE TRACK/GROUP ORIGINAL OFFSET 
7 005107 104257 MOV (R5)+,RO : GET LO ORDER O FSET. MOVE TO RUNNING TOTAL | 
8 005110 104253 MOV (R5)+,R3 > GET HI ORDER OFFSET, MOVE TO RUNNING TOTAL | 
9 005111 107201 000001 6$: SUB #1,R1 : DECREMENT LO BY ONE 
10 005113 045120 BCC 7$ : IF NO BORROW, BRAN 
11 005114 107202 000001 SUB #1,R2 : DECREMENT HI COUNT BY ONE 
12 005116 BCS 9$ : IF COUNT EXHAUSTED, BRANCH 
005116 045120 BCC .+2 
005117 005132 BR 9s 
13 005120 104254 7$: MOV (R5)+,R4 : GET 1/G OFFSET 
14 005121 055126 BNE : IF NOT END OF L BRANCH 
15 005122 104205 000017 MOV #S.TGSS,RS5 : RS WILL POINT TO stant OF T/G LIST 
16 005124 105165 ADD (SP) RS : RS POINTS TO START OF T/G LIST 
17 005125 104254 MOV (R5)+,RG : GET T/G OFFSET 
18 005126 105047 8$: ADD R4,RO” t ADD TO RUNNING TOTAL 
19 005127 045111 BCC 6$ + IF NO CARRY, BRANCH 
20 005130 115403 INC R3 : PROPOGATE CARR 
21 005131 005111 BR 63 + BRANCH 
22 005132 9$: POP <R4,R5> + RESTORE 
005132 104264 MOV (SP)+,R4 
005133 1042 


65 MOV (SP)+,R5 | 
| 








: 
4 005134 
005134 
5 005135 
6 005137 
? 005140 
8 005140 
9 poses 
10 00514 
11 005145 
\¢ 005147 
13 005151 
14 poses 
15 00515 
16 005154 
17 005155 
18 005156 
005156 
19 005157 
20 005160 
21 005161 
22 opstes 
23 00516 
24 005164 
25 005165 
005165 
005166 
26 005167 
005167 
27 005170 
28 005171 
29 005172 
30 005174 
31 005175 
32 005176 
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106021 


000006 


000020 


000007 
000003 
177400 


10$: 


11$: 


12$: 


13$: 
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UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 82 
weeeeeeeee OVERLAY MODULE RNDTG = RANDOMLY GET NEXT TRACK/GROU 


NOW FIND A RANDOM OFFSET INTO THE RANDOM TRACK OR GROUP 


PUSH 





RO 

S$. TRKL(R4) ,R2 
(R4) ,RO 
S.PARM,0 
#TRACKS ,RO 
11$ 
S.SCHR(R4) ,R1 
TRKGRP(R1) ,R1 
#HIBYTE ,R1 


R 
R2,RO 


R1,R2 


R1,U.MBN(RS) 
13$ 


R3 
R3,U.MBN+1(R5) 


Se Se Se Ge Be Ge Ge Ge Ge Ge Ge Ge Ge Se 


STORE LO ORDER TOTAL ON STACK 
MOV RO,=(SP) 
R2 HAS TRACK LENGTH 
GET SUBUNIT PARAMETERS 
ASSUME THAT S.PARM IS ZERO 
SEE IF USING TRACKS 
R1 POINTS TO SUBUNIT PARAMETERS 


R1_HAS NUMBER OF TRACKS/GROUP 
cLene UNUSED BITS 


IF UNEXHAUSTE 


D, BRANCH 
MOVE COUNT TO R2 (MATCH WITH TRACKS ABOVE) 
MOV R2,-(SP) 


; SAVE ON STACK 


; ADJUST COUNT 
; MOVE TO MASKING REGISTER 
FIND MASK 


GET RANDOM NUMBER 
STRIP OFF UNUSED BITS 
F RANDOM 


SEE I NUMBER SMALL ENOUGH 

IF NOT, BRANCH 
BCC -+2 
BR 12$ 


GET NUMBER OF SECTORS 

MOV (SP)+,R2 
R2 IS NOW SECTORS REMAINING mo 
SAVE 
IF NO CARRY, BRANCH 


PROPOGATE CARRY 
SAVE HI ORDER STARTING BN 


(or7:,R1 


SEQ 383 


J 14 

SEQ 384 

UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 83 
eeeeeeeene OVERLAY MODULE RNDTG = RANDOMLY GET NEXT TRACK/GROU 


1 





3 ; NOW COME UP WITH A RANDOM NUMBER OF SECTORS TO R/W WITHOUT GOING 
; : OFF THE TRACK/GROUP THAT WE'RE ON 
5 905200 106202 000016 CMP #16,R2 : ONLY WRITE A MAXIMUM OF 16 SECTORS 
6 005202 035206 BPL 15$ : IF LESS THAN 16, BRANCH 
i 005203 104 07 177774 Ov #MAXMSK RO : Ser READ/WRITE LIMIT 
9 005206 104027 15$: MOV R2,RO ; RO IS SECTORS LEFT ON THIS T/G 
10 005 925034 CALL ‘MASK : GET MASK 
11 005210 024773 14$: CALL —« RANDOM : GET RANDOM NUMBER 
le 005211 103077 BIC RO,R1 : STRIP OFF UNUSED BITS 
13 005 le 115401 INC R1 : MUST BE GREATER THAN ZERO 
14 005213 106021 CMP R2,R1 : SEE IF SMALL ENOUGH 
15 005214 BCS 148 ; IF NOT, BRANCH 
Sele. eset ad 
16 005216 100651 000023 MOV R1,U.TSEC(RS) ; SAVE SECTORS TO WRITE 
17 005220 104207 004641 MOV #AFTOP,RO : NEXT MODULE IS AFTOP 
19 908593 114002 ttR Re ¢ WO ERRORS 
20 005224 003231 BR JMPRET + RETURN TO 21 
ee IF LE ,MAXADR-. 
2 MAXADR = + 
24 ENDC 






eeteeereee OVERLAY MODULE 


4 

2 005225 

3 005225 000105 

4 

5 

6 

7 

& 

9 
19 000006 
4 

13 
15 005052 104657 000046 
16 005054 104141 

17 005055 

18 005055 102207 010000 
19 005057 015067 
20 005060 102201 000020 
21 e394) 015065 
22 005063 025207 
23 005064 0050 

24 005065 025351 
25 005 005075 

26 005 102201 000020 
27 005071 015074 
28 005072 025130 
29 0050 005075 

30 0050 025271 

31 005075 104642 000006 
32 0050 104141 

33 005100 

34 005100 115000 002223 
35 ope toe 035121 

36 00510 

37 005103 102201 000020 
38 005105 055121 

39 005106 104027 
40 005107 104641 000007 
41 005111 104611 000003 
ri} 005113 103201 177400 
43 005115 1008 
44 poa1te 10507 
45 00511 117401 
46 0051 05511 

47 005121 100652 00092? 
48 005123 104207 00464 
49 005125 114001 

50 003166 114002 

51 005127 003231 


UDATS DISK EXERCISER DMACR x04.01 Lh am 15:49:22 PAGE 84 








AL TRACK/GR 
-SBTTL eeeeeeewen OVERLAY MODULE GET NEXT AL TRACK/GROUP SECTOR 
DMOVLY ST,AREA 
-WREDC sOUTPUT EDC FOR THIS OVERLAY 


TIITITITITTETELILILI LLL TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TT TTT TTT TTT 
STARA AAAAAAAAARAARAEAAREERAARARARRAEARAREEERREERRERERRERERERERAEEREREEEEEEEREEEE 
p RARER AAAAARAARAARAAAEEERARARAARAEAAERAREERERERERERAEEEERAEERARAHHEEREREEEEEEEE 
sRAAAARAAAARAERAAAEARARAERAEAEERAEARARAARERERERAERAERRRARARAERAAERERAEREREEEREEEREEE 


RNDTG+1 
: FIND THE NEXT TRACK/GROUP TO TEST ALLY 
; .ENABL LSB 
MOV U.PARM(RS).RO  ; GET UNIT PARAMETERS 
(R4),R1 : GET SUBUNIT PARAMETERS 


MOV P 
ASSUME S.PARM,0 
BIT eens Ne 


; ASSUME THA PARM IS ZERO 
; SEE IF GOING ip (INITIAL WRITE) OR DOWN 


BEQ IF GOING UP OR INITIAL WRITE, BRANCH 

BIT #TRACKS ,R1 SEE IF TRACKS OR GROUPS 

BEQ 2$ IF 7 

CALL DOWNT ; GO DOWN A TRACK 

BR 5$ ; CALCULATE NUPGER OF SECTORS TO READ/WRITE 
2s: CALL DOWNG ; GO DOWN A GROUP 

BR 5$ ; CALCULATE NUMBER OF SECTORS TO READ/WRITE 
3$: BIT #TRACKS,R1 ; SEE IF TRACKS OR GROUPS 

BEQ 4$ ; IF ye La BRANC 

CALL UPT ; GO UP A_TRACK 

BR 5$ ; CALCULATE NUMBER OF SECTORS TO READ/WRITE 
4$ CALL ; A_GROUP 


$ UPG e GO UP 
5$: MOV S.TRKL(R4),R2 3; GET aere pom 
MOV R4),R1 3: GET ‘golf woe! 
ASSUME S.PARM,0 3 ASSUME THAT S.P IS ZERO 
TST M.PARM : SEE wht INITIAL URITE IN PROGRESS 
BPL ‘% : IF 2 BRANC 
ASSUME IWIPRG,100000 ; ASSUME” IWIPRG IS oo BIT 


BIT SIRACKS I ; see IF TRACKS IN 


BNE ; IF SO, BRANCH 
MOV R2,RO ; COPY SECTORS/TRACK TO RO 
MOV S.SCHR(R4),.R1 =; GET rd TO § SUBUNIT CHARACTERISTICS 
MOV TRKGRP(R1),R1 ; GET TRACKS/GROUP 
BIC #HIBYTE ,R1 ; CLEAR UNUSED BITS 
CLR Re CL RUNNING TO 
6$: ADD RO,R2 ADD TO RUNNING TOTAL 
DEC R1 DECREMENT COUNT 
BNE 6$ IF INCOMPLETE, BRANCH 
7$: MOV R2,U.TSEC(RS) ; SAVE NUMBER OF pis TO PROCESS 
8$: MOV #AF TOP ,RO ; NEXT MODULE IS A 
CLR IMMIDATE CALL 
CLR R2 ; NO_ ERRORS 
BR JMPRET ; RETURN TO 52 





L 14 





SEQ 386 
UDATS DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 85 
UPT = MOVE UP ONE TRACK 


1 .SBTTL UPT = MOVE UP ONE TRACK 

: 005130 UPT: 

4 : POINT U.MBN TO THE NEXT TRACK TO TEST (IT DOESN'T HAVE TO BE A 
5 : TRACK, BUT IF GROUPS, U.MBN MUST BE ADJUSTED BACK TO THE FIRST 
6 : BN IN THE GROUP 

8 005130 115000 002217 TST SCR1 : SEE IF NEW SUBUNIT 

9 005132 015135 BEQ 10$ : IF NOT, BRANCH 

10 005133 025405 CALL §NEWUPT : SETUP NEW SUBUNIT 

11 005134 005206 R 4$ : EXIT 

12 005135 104657 015 10$: MOV U.CCNT(RS).RO ; GET LO ORDER COUNT 

13 005137 107207 000001 SUB ; : DECREMENT 

14 005141 100657 15 MOV RO.U.CCNT(RS) : SAVE 

15 005143 045162 BCC : IF NO BORROW, BRANCH 

16 005144 104657 000016 MOV U.CCNT#1(R5),RO : GET HI ORDER. COUNT 

17 005146 107207 000001 SUB #1,R0 : PROPOGATE BORROW 

18 005150 045160 BCC 1$ : IF NO BORROW, BRANCH 

19 005151 104657 000046 MOV U.PARM(RS).RO : GET UNIT PARAMETERS 

20 005153 101207 004000 BIS UB,RO : FLAG AS TO GO ONTO NEXT SUBUNIT 

21 005155 100657 000046 RO,U.PARM(RS) : SAVE 

22 005157 005206 BR 4s : EXIT 

23 005160 100657 000016 1$: MOV U. CONTI (RS) > SAVE 

24 005162 104657 000017 2$: MOV u. sect : GET POINTER TO CURRENT TRACK/GROUP 
25 005164 104271 MOV som? : GET OFFSET TO NEXT 

26 005165 055172 BNE : IF OFFSET, BRANCH 

27 005166 104207 000017 MOV #S.TGSS,RO : RO WILL POINT TO START OF OFFSETS 
28 005170 105047 ADD R4_RO + RO POINTS TO OFFSETS 

29 005171 104271 MOV (RO)+,R1 : R1 HAS OFFSET 

30 005172 100657 000017 3$: MOV RO. U. “BcIGcRs) : SAVE POINTER TO CURRENT TRACK/GROUP 
1 005174 105651 000051 ADD U.MBN(RS).R1 : ADD OFFSET TO CURRENT BN 

32 005176 100651 000051 MOV R1,U.MBN(RS) : SAVE 

33 005200 045206 BCC : IF NO CARRY, EXIT 

34 005201 104651 000052 MOV U.MBN+1(R5),R1 : GET HI ORDER 

35 005203 115401 INC R : PROPOGATE CARRY 

36 005204 100651 000052 MOV R1,U.MBN¢1(R5) : SAVE 

37 005206 000000 4$: RETURN : RETURN TO CALLING PROGRAM 
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10$: 


3$: 


4$: 


5$: 





-SBTTL DOWNT 
OWNT: 


M14 
UDATS DISK EXERCISER enc ata 01 13-APR-82 15:49:22 PAGE 86 
DOWNT = MOVE 


= MOVE DOWN ONE TRACK 


MOVE THE MASTER BN DOWN TO TEST THE PROCEEDING TRACK/GROUP 


SCR1 
10$ 
NEWDNT 


U.CCNT(RS) RO 
RO.U.CCNT(RS) 
U.CCNT#+1(R5) RO 
#1,R0 


U.PARM(RS) ,RO 
#NEWSUB,R 
RO,U.PARM(RS) 
RO,U. CCNT+1(R5) 
as oR1 


RO 
(RO) ,R1 


U. —e R1 
=(RO),R1 

R1,U.MBN(RS) 

RO.U.PCTG(RS) 
U.MBN+1(R5) ,RO 


RO,U.MBN+1(R5) 


R4, 
U.PCTG(RS) ,RO 
RO,R1 


SEE IF NEW SUBUNIT 

IF NOT, BRANCH 

yt nan THIS SUBUNIT 
GET LO ORDER COUNT 
we COUNT 


IF NO BORROW, BRANCH 
GET HI ORDER COUNT 


AME TERS 
ae AS TO GO ONTO NEXT SUBUNIT 
anes 


AVE 
RO WILL POINT TO START OF ha OFFSETS 
RO POINTS TO aot OF T/G OFFSETS 
GET POINTER INTO LIST 
SEE IF AT START OF LIST 
IF NOT, BRANCH 
RO POINTS TO NEXT WORD 
SEE IF END OF LIST 
IF NOT, BRANCH 
GET LO ORDER MASTER BN 
— OFFSET 


SAVE POINTER 


— BORROW 
RETURN TO CALLING PROGRAM 


SEQ 387 


UDATS DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 87 
UPG = MOVE UP ONE GROUP 


1 -SBTTL UPG = MOVE UP ONE GROUP 

¢ 005271 UPG: 

2 3 MOVE MASTER BN UP TO THE NEXT GROUP 

6 005271 115000 002217 TST SCR1 : SEE IF THIS 1S A NEW SUBUNIT 

7 005273 015277 BEQ 10$ : IF NOT, BRANCH 

8 005274 025405 CALL NEWUPT 3 INITILEZE THE SUBUNIT FOR TRACKS | 
9 005275 025507 CALL SETSEC 3 INITILIZE THE SUBUNIT FOR GROUPS 
10 005276 005350 BR 5$ 3 EXIT | 
11 003¢77 102201 040000 10$: BIT #INITW,R1 : SEE IF AN INITIAL WRITE IS BEING DONE 
12 005301 055346 BNE 4$ 3 IF SO, BRANCH | 
13 005302 104641 000006 MOV S.TRKL(R4),R1  : R1 HAS TRACK LENGTH | 
14 005304 104657 000020 MOV U.CTRK(RS),RO  ; GET TRACK COUNT 

15 005306 117407 DEC RO 3 DECREMENT COUNT 
16 005307 015325 BEQ 1$ 3 IF COUNT EXHAUSTED, BRANCH 

17 005310 100657 000020 MOV RO,U.CTRK(RS) 3: SAVE 
18 005312 105651 000051 ADD U.MBN(RS),R1 3 MOVE BN TO NEXT TRACK 
19 005314 100651 000051 MOV R1,U.MBN(RS) 3 SAVE 
20 005316 045350 BCC : EXIT 
21 005317 104657 000052 MOV U.MBN+1(R5),RO =; GET HI ORDER BN 
22 005321 115407 INC 3 PROPOGATE CARRY 
23 005322 100657 000052 MOV RO,U.MBN¢1(R5) =: SA ve | 
24 005324 005350 BR 3 EXI 
25 005325 025507 1$: CALL SETSEC 3 SETUP NEXT TRACK/GROUP COUNT 

26 005326 114002 CLR Re ; CLEAR RUNNING TOTAL 
27 005327 117407 2$: DEC RO 3 DECREMENT COUNT 
005330 015333 BEQ 3$ : IF COUNT EXPIRED, BRANCH 
29 005331 105012 ADD R1,R2 : ADD SECTORS/TRACK TO RUNNING TOTAL 
005332 005327 BR ; LOOP 

31 005333 104657 000051 3$: MOV U.MBN(RS) RO 3 GET LO ORDER MASTER BN 

32 005335 107027 SUB E 3 ADJUST BACK TO START OF GROUP 

3 005336 100657 000051 MOV RO,U.MBN(RS) 2 SAVE 

34 005340 045346 BCC : IF NO BORROW, BRANCH 

35 005341 104657 000052 MOV U.MBN+1(R5),RO ; GET HI ORDER MASTER BN 
36 005343 117407 DEC 3 PROPOGATE BORROW 
37 005344 100657 000052 MOV RO,U.MBN+1(R5) =: SAV 

38 005346 114007 4$: CLR RO 3 CLEAR RO SO UPT DOESN'T DETECT A NEW SUBUNIT 

39 005347 025130 | CALL UPT 3: GO TO NEXT GROUP 
40 005350 000000 5$: RETURN 3 RETURN TO CALLING PROGRAM 











UDATS DISK EXERCISER DMACR — 01 13-APR-82 15:49:22 PAGE 88 
DOWNG = MOV ONE GROUP 


S 
wn 
Ww 
w 
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MUVMIMmumuivi 
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Mmrorn 

wn 

Ssss 
Mum 
ew 
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25 


= MOVE DOWN ONE GROUP 


MOVE MASTER BN TO THE NEXT LOWER GROUP 
TF wat IF yf IS A NEW SUBIUNIT 


SETUP safe SUBUNIT FOR TRACKS 
ar” THIS SUBUNIT FOR GROUPS 


ooo 
nna 
w 


4$ 
U.CTRK(RS) ,RO 
RO 


2388 


( EMENT COUNT 
IF EXPIRED, BRANCH 
SAVE 
GET LO ORDER MASTER BN 
— TRACK LENGTH 


a 
ae 


EXIT 

GET HI MASTER BN 
PROPOGATE BORROW 

B nots SAVE 


OWN A_ GROUP 
MASTER BN ON LAST TRACK OF GROUP 
RETURN TO CALLING PROGRM 






UDATS DISK i XERCISER DMACR ad a 13=APR=82 15:49:22 PAGE 89 
NEWUPT = INITILIZE PARAMETERS F ALLY UP BY TRACKS 





1 .SBTTL NEWUPT = INITILIZE PARAMETERS FOR ALLY UP BY TRACKS 
: 005405 NEWUPT : 

4 : INITIALIZE THIS SUBUNIT FOR ALLY ACCESSING TRACKS IN 
2 ; ASCENDING ORDER 

7 005405 104647 000013 MOV S.MCNT(R4),RO =; GET MAXIMUM COUNT 

8 005407 100657 000015 MOV RO,U.CCNT(R5) |: SAVE IN CURRENT COUNT 

9 005411 104647 000014 MOV S.MCNT+1(R4),RO : GET HI ORDER MAXIMUM COUNT 

10 005413 100657 000016 MOV RO,U.CCNT+1(R5) : SAVE IN HI ORDER | CURRENT COUNT 

11 005415 104647 000015 MOV S.TGOF(R4),RO  : GET STARTING OFF 

12 005417 100657 000051 MOV RO, : SAVE IN MASTER ow 

13 0054¢1 104647 000016 MOV $.TGOF+1(R4),RO : GET HI ORDER STARTING OFFSET 

14 005423 100657 00005 MOV RO,U.MBN+1(R5) : SAVE IN HI ORDER MASTER BN 

15 005425 104207 000017 MOV #S.TGSS,RO : RO WILL POINT TO START OF OFFSETS 
16 005427 105047 ADD RG, : RO POINTS TO START OF OFFSETS 

17 005430 100657 000017 MOV RO,U.PCTG(RS) 3; SAVE IN POINTER TO CURRENT TRACK/GROUP 
18 005432 000000 RETURN 3 RETURN TO CALLING PROGRAM 


SEQ 390 


ee D 15 


UDAT4 DISK 7 ERCISER DMACR x04.01 sete M4 49:22 PAGE 90 


SEQ 391 


NEWONT = INITILIZE PARAMETERS FOR Y DOWN BY TRACKS 
1 .SBTTL NEWDNT = INITILIZE PARAMETERS FOR ALLY DOWN BY TRACKS 
g 005433 NEWDNT : 
4 : INITIALIZE THIS SUBUNIT FOR ALLY ACCESSING TRACKS IN 
2 ; DESCENDING ORDER 
7 005433 PUSH — <R5,R4> ; SAVE UNIT AND SUBUNIT POINTERS 
005433 100465 MOV R5,-(SP) | 
005434 100464 MOV R4.-(SP) 
8 005435 104648 15 MoV S.TGOF(R4),R2 _ ; R2 HAS LO ORDER STARTING OFFSET | 
9 005437 104643 000016 MOV S$. TGOF+1(R4),R3 : R3 HAS HI ORDER STARTING OFFSET 
10 005441 104647 13 MOV S.MCNT(R4),RO  : RO HAS LO ORDER MAXI | 
11 005443 100657 000015 MOV RO,U.CCNT(RS) ; SAVE LO ORDER MAXIMUM COUNT | 
12 005443 104641 14 MOV S.MCNT#1(RG),R1 : S HI ORDER MAXIMUM COUNT 
13 005447 100651 000016 MOV 1,U.CCNT+1(R5) ; SAVE HI ORDER MAXIMUM | 
14 005451 105204 000017 ADD -TGSS,R4 ; RG POINTS TO START OF OFFSETS 
15 005453 107207 000001 1$: SUB ss #1,RO ; DECREMENT COUNT 
16 005455 045462 BCC 2$ : IF NO CARRY, BRANC 
17 005456 107201 000001 § #1,R1 ; PROPOGATE BORROW 
18 005460 BCS : IF COUNT EXHAUSTED, BRANCH 
005460 045462 BCC 42 
005461 005474 BR és 
19 005462 104245 2s: MoV (R4)+,R5 : GET OFFSET 
20 005463 055470 BNE $ > IF NOT END-OF=LIST, BRANCH 
21 005464 104204 000017 MOV = #S.TGSS,R4 ; R4 WILL POINT TO START OF OFFSETS 
005466 105164 ADD (SP) .R4 ; R4 POINTS TO START OF OFFSETS 
23 005467 104245 MOV (R4)+,R5 > GET OFFSET 
24 005470 105052 3$: ADD — RS, R2° > ADD OFFSET TO BN 
25 005471 045453 BCC 1$ : IF NO CARRY, LOOP 
26 005472 115403 INC R3 ; PROPOGATE CARRY 
27 005473 005453 BR : LOOP 
28 005474 104665 000001 4$: MOV 1(SP) RS : GET UNIT POINTER 
29 005476 100654 000017 MOY RA U-BCTG(RS) SAVE QRQINTER TO CURRENT TRACK/GROUP 
30 005500 POP <R4,R5> ; RESTORE 
005500 104264 MOV (SP)+,R4 
005501 104265 MOV (SP)+.R5 
31 005502 100632 000051 MOV = R2,U.MBN(R5)__—s;:_ SAVE LO ORDER STARTING BN 
2 100653 000052 R3.U.MBN+1(R5) : SAVE HI OR 


32 005504 
33 005506 000000 


: RETURN TO CALLING PROGRAM | 


Pr] 
m 
. 
2 

e 





— OC 







1 
3 005507 

: ; 
6 005507 104647 : 
7 005511 104677 000003 

8 005513 103207 177400 

9 005515 100657 000020 

10 005517 000000 
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UDAT4 DISK EXERCISER DMACR X04.01 13-APR=-82 15:49:22 PAGE 91 
SETSEC = SETUP TRACK/GROUP COUNT FOR SELECTED GROUPS 


Pe A SETSEC = SETUP TRACK/GROUP COUNT FOR SELECTED GROUPS 


MOVE TRACKS/GROUP TC U.CTRK 

MOV S.SCHR(R4),RO ; RO POINTS TO SUBUNIT CHARACTERISTICS 
; RO HAS TRACKS/GROUPS 

BIC #HIBYTE ,RO 3 CLEAR UNUSED BITS 


MOV RO,U.CTRK(RS) CK COUNT 
RETURN ; RETURN TO CALLING MODULE 


SEQ 392 






SEQ 393 
UDATS DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 92 
LSTTRK = SET MASTER BN TO POINT TO LAST TRACK IN THE GROUP 


ert LSTTRK = SET MASTER BN TO POINT TO LAST TRACK iN THE GROUP 


1 

¢ 005520 

¢ $ SET MBN TO LAST TRACK OF GROUP 

6 005520 025507 CALL SETSEC 3; SETUP TRACK/GROUP COUNT 

7 poses: 114002 CLR R2 3 CLEAR RUNNING TOTAL 

8 0055 4 117407 2$: DEC RO 3: DECREMENT COUNT 

9 005523 015527 BEQ 3$ 3; IF COUNT EXPIRED, BRANCH 

10 005524 105642 000006 ADD S$. TRKL(R4) ,R2 3; ADD SECTORS/ TRACK TO RUNNING LENGTH 
11 005526 00552 BR 2$ 3; LOOP 

\¢ 005527 105652 000051 3$: ADD U.MBN(RS) ,R2 3; MBN WILL POINT TO LAST TRACK IN GROUP 
13 005531 100836 000051 MOV R2,U.MBN(RS) 3; SA 

14 005533 04553 BCC 3: IF NO CARRY, EXIT 

15 005534 104657 000052 MOV U.MBN+7(R5),RO ; GET HI ORDER BN 

16 005536 115407 INC 3: PROPOGATE CARRY 

17 005537 100657 000052 4$: MOV RO,U.MBN+1(R5) =; SAVE 

18 005541 000000 RETURN 3 RETURN TO CALLING MODULE 

19 IF LE ,MAXADR-. 

20 MAXADR = + 
21 ~ENDC 





1 
2 Spaces 
00554 


Ne oe eet tye tere 4 
M—O DONAUSWN $0 OOVNOULW 


000105 


000007 


021031 
104657 


002235 
002175 
002176 
002175 


002176 
004710 


002201 
002202 
002203 


-SBTTL 


G 15 


UDATS DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 93 
weeeteeeeee OVERLAY MODULE BUILDP = BUILD THE READ/WRITE LINKED 


wennerenee + MODULE BUILDP = BUILD THE READ/WRITE LINKED LISTS 


DMOVLY 
REDC 


BP AREA 
OUTPUT EDC FOR THIS OVERLAY 


oW 
TITIIIILI LLL E ELLE LLL TREE TTT TTT TTT TET TTT TTT TTT TTT TTT 


BUILDP 


1$: 
4$: 


5$: 


p EARAAAARAEAAREARRAEEREEERERAEREEREEERARERREERERAEEERREARAEREREREEREEEEEEEEEEEREE 
5 RAARAAAEAAAERRAEREERREREERERRRAEERARERRERERERAEERERERERREREREEEEEEEEREREERREREEEE 
sRERAAAAAARAERAREREAAREAREAEERERAEERAREARRRERERERAERARARAEEAERARERRREREREERRERHEEEE 


3 READ/WRITE LINKED LIST BUILDER 


BUILD THE READ/WRITE LINKED LISTS 


LSB 
TLKHST COMMUNI CATE io THE HOST SO NOT TO TIME OUT 
U.PARM(RS) A + RO HAS UNIT PARAMETERS 


; GET NUMBER OF * sectors TO READ/WRITE 
; SEE IF RON ° BE READ/WRITTEN 


; IF NOT, H 
CURBN ; a Lo ORDER TO CURRENT BN 
CURBN VE HI ORDER TO CURRENT BN 


3 MOVE LO ORDER TO CURRENT BN 


U.MSEC(RS) MA xset 
#RBNBN RO 


1$ 
U.RBN(RS) 
URBNE1 (RS), 


U.CBN(RS),CURBN * 
U. CBN+1(R5) , CURBN+1 


MEMPOL , TMEMPL M POOL) 
R FORCE THE CALCULATION TABLE TO BE FILLED 
RO, CHAINS MARK CHAIN AS EMPTY 

AL 3 CALCULATE CYL, TRK AND GRP 
U.CCYL(R5),CYL ; SEE IF LO CYL MATCHES 


3_ if BRANCH 
U.CCYL+1(R5) ,CYL+1 ; SEE IF HI CYL MATCHES 
; BRANCH 


U.CGRP(RS) ,GROUP’ ! SEE IF GROUP MATCHES 
7$ 3: IF NOT, BRANCH 


H 15 





UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 94 
LINK = BUILD A LINK (NODE) IN THE READ/WRITE CHAIN 





} -SBrTL LINK = BUILD A LINK (NODE) IN THE READ/WRITE CHAIN 

3 ; 

$ ; LINK WILL CREATE THE LINKS FOR THE CHAIN 

6 004473 104653 000046 MOV U.PARM(RS),.R3 ;-_R3 HAS UNIT PARAMETERS 

7 004675 104307 002232 MOV CHAINS ,RO : RO POINTS TO START OF CHAIN 

8 004477 054521 BNE 22 : IF THE CHAIN IS ALLREADY STARTED, BRANCH 
9 004500 102203 000100 BIT #REDWRTR3 : SEE IF READ IN PROGRESS 

10 004502 014513 BEQ 21 : IF SO, BRANCH 

11 004503 102203 000400 BIT #REVEC,R3 + SEE IF TRYING TO FIND A REPLACEMENT 
12 004505 054513 BNE 21$ : IF $0, YOU'RE TRYING TO READ, SO BRANCH 
13 004506 104207 000401 MOV #WBUFLN,RO + RO HA NUMBER OF WORDS IN WRITE BUFFER 
14 004510 024703 CALL  ALLOCM : ALLOCATE THE MEMORY 

15 004511 104070 004711 MOV RO, SECPTR : SECPTR POINTS TO WRITE BUFFER 

16 004513 104207 000007 21$: MOV #LINKLN,RO : RO HAS LENGTH OF CHAIN LINK 

17 004515 024703 CALL ALLOCM : ALLOCATE THE MEMORY 

18 004516 104070 002232 MOV RO, CHAINS : CHAINS POINTS TO FIRST LINK 

19 004520 004541 BR 248 : BRANCH 

20 004521 10417 22$: MOV (RO) ,R1 : R1 HAS NEXT LINK POINTER 

21 004522 102201 100000 BIT #EOC,R1 : SEE If THIS LINK IS THE LAST 

22 004524 054531 BNE 23 : IF $0, CH 

23 006525 103201 170000 BIC #*CHBHINB,R1 =; CLEAR UNUSED BITS 

24 006527 104017 MOV R1,RO ; no POINTS TO NEXT LINK 

25 004530 004521 BR 22$ ; 

26 004531 104072 23$: MOV RO,R2 : SA AVE RO 

27 004532 104207 000007 MOV #LINKLN,RO : RO HAS LENGTH OF LINK 

28 004534 024703 | CALL ALLOCM : ALLOCATE MEMORY FOR LINK 

29 004535 103201 100000 BIC #EOC,R1 : CLEAR THE END<OF <CHAIN FLAG 

30 004537 101071 BIS RO,Ri : PUT IN POINTER TO NEXT LINK 

31 904540 100121 ml MOV R1.(R2) ; PUT POINTER BACK IN LAST LINK 





SEQ 395 
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UDAT4 DISK EXERCISER DMACR X04.01 13-APR=-82 15:49:22 PAGE 95 
FILLIN = FILL THE READ/WRITE CHAIN LINK (NODE) WITH REQUIRED | 


1 
2 
3 
4 
5 
6 004541 
7 004543 
8 004545 
9 004546 
10 004550 
11 004551 
\¢ 004553 
13 004555 
14 004557 
15 004561 
16 004562 
17 004564 
18 004566 
19 004570 
004570 
20 004571 
21 004573 
22 004574 
23 004575 
004575 
24 004576 
25 004577 
26 004577 
27 004601 
28 004603 
29 004605 
30 004607 
31 004611 
32 004613 
33 004615 
= oosel? 
9 aou6ee 
; 004623 
39 004625 
40 6 
41 0046 
£3 004631 
43 004633 
44 004635 
45 004635 
46 004637 
47 004641 
48 004642 
49 004644 
50 004645 
51 004646 
6 O0s6e 
53 00465 
54 004654 
55 004657 


S32 
eS yg | 


- 2 
SRRES 
RNA PoNINonNwrwn 


i=] 
= 
& 
oa 
w 


~—0=-0— _ — 
oooo 4 
= 
iN 
So 
Nm 


04 
4 


Ra 
Sooon 


=—VW 
ae 


Rss 
= 
= 
w 
oa 


002204 
000100 
000400 
122400 
000004 
140000 
004711 
013400 
000004 
100009 


000415 


000001 
002207 
000005 
002205 
000006 
002175 


000002 
002176 
000200 


020000 
140000 


060000 
002172 


000003 
002206 


002217 


000006 
000001 002235 
000001 002175 


11$: 


12$: 


15$: 
16$: 


13$: 


FILLIN BUILDS THE PARAMETERS THE UDA REQUIRES TO WRITE OR READ A BLOCK 


TRACK ,R2 
#REDWRT ,R3 


#REVEC ,R3 
11$ 

#WREAL ,R2 
R2,RW. CMD (RO) 
wy oR 
eee 

12$ 

#RREAL ,R2 
R2,RW.CMD(RO) 
#RSTOP,R2 


#RBUFLN,RO 
ALLOCM 


0 

R17, RW. BUF (RO) 
R2 _RU. SBI (ROD 
R2,RW.ANG(RO) 
R2,RW.LOW(RO) 
URBN+1 ,R2 
R4),R3 
.PARM,0 
DCYLS.R3 
#HD.DBN,R2 
#HD.RBN,R2 
HIBN,R2 


=—RBNA—@BOBWO 
oo’ sus my 
A o 


HD.LBN,0 
R2,RW.HI (RO) 
INDEX ,R2 


SCR1,R2 
13$ 


R 
RS .RW.ANG(RO) 
1 ,MAXSEC 


#1, CURBN 
5$ 





Sete tee 


Be Ge Ge Ge Ge Ge Ge Ge Ge Se Be Be Be Se 


aii te FILLIN = FILL THE READ/WRITE CHAIN LINK (NODE) WITH REQUIRED INFORMATION 


GET TRACK (HEAD) NUMBER 
iF IF READ IN PROGRESS 


ING TO FIND A REPLACEMENT 
SO, YOU'RE TRYING TO READ, SO BRANCH 
E REAL TI OMMAND 


C 
MOVE TO SDI REAL TIME COMMAND AREA 
MOVE LAST BLOCK FLAG TO R2 
R1 POINTS TO WRITE BUFFER 


BRANCH 
BUILD READ REAL TIME COMMAND 
MOVE TO SDI REAL TIME COMMAND AREA 


; MOVE LAST BLOCK FLAG TO R2 
SAVE RO 


MOV RO,-(SP) 


; SIZE OF READ Dhl 


ey BUF F 
R1 POINTS TO BUFFER 
RESTORE RO 
MOV (SP)+,RO 
MOVE LAST BLOCK FLAG TO NEXT BLOCK POINTER 


MOVE POINTER TO SECTOR TO POINTER AREA 
R2 POINTS TO DUMMY SDI AREA 

MOVE R2 TO POINTER TO DUMMY SDI AREA 

R2 CONTAINS jap Hh TO BE WRITTEN 

MOVE TO ANGLE FROM INDEX 

MOVE LOW ORDER BN TO R2 

MOVE LOW ORDER BN a as EXPECTED HEADER 


; MOVE HIGH ry BN T 


-_ BRANCH 

GET ee een tae 
T S.PARM IS ZERO 
i ok IF ee CYLINDERS 
DIAGNOSTIC HEADER 
BRANCH 
REVECTORED eAeeR 
ADD HI BN BITS 
MOVE R2 TO HI WORD EXPECTED HEADER 
pH DISTANCE FROM INDEX 
DJUST INDEX 

sre Tr fs AFTER INDEX 
ie THETA FROM INDEX 
TF COUNT SECTOR COUNT 


T_ COMPLETE, BRANCH 
D ONE TO LO CURRENT SECTOR 


; iF NO CARRY 






SEQ 397 





UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 95-1 
FILLIN = FILL THE READ/WRITE CHAIN LINK (NODE) WITH REQUIRED I 


-DSABL LSB 


536 004669 115400 002176 INC ——CURBN¢1 ; PROPOGATE CARRY 
57 004662 004456 BR 5$ : H | 
58 004663 114001 7$: = CLR ; IMMIDATE CALL 7 
59 004664 114002 CLR sR ; NO ERRORS | 
60 004665 104653 000046 MOV U.PARM(RS),R3  ; GET UNIT PARAMETERS | 
61 006667 102203 000100 BIT — #REDWRT,R3 : SEE IF READ 1S TO BE DONE 
004671 014700 BEQ $ : IF SO, BRANCH | 
63 004672 102203 000400 BIT #REVEC,R3 ; SEE_IF READING RCT 
004674 054700 BNE 28 : IF $0, BRANCH | 
65 004675 104207 000010 MOV - #WRITE, RO ; WRITE ROUTINE IS NEXT | 
004677 004702 BR > BRANCH | 
67 004700 104207 000012 2: MOV ~~ AREAD,RO ; READ ROUTINE IS NEXT | 
68 004702 003231 38: BR JMPRE f | 
} 






UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 96 
ALLOCM = ALLOCATE MEMORY FOR THE READ/WRITE BUFFERS AND CHAIN 


1 ~SBTTL ALLOCM = ALLOCATE MEMORY FOR THE READ/WRITE BUFFERS AND CHAIN 
¢ 004703 ALLOCM: 

: : ALLOCATE MEMORY FOR READ/WRITE BUFFERS 

6 004703 107070 004710 SUB RO, TMEMPL oar Aa FROM MEMORY POOL 

? 004705 104307 004710 MOV TMEMPL ,RO ; RO POINTS TO MEMORY ALLOCATED 

: 004707 000000 RETURN RETURN 10 CALLING MODULE 

10 004710 TMEMPL: .BLKW 1 3 TEMPORARY MEMORY POOL FOR READ/WRITE 
11 004711 SECPTR: .BLKW 1 : SECTOR POINTER FOR WRITE 

12 IF LT, BUFARA-. 
13 BUFARA = . 
14 -ENDC 
15 IF LE ,MAXADR-. 
16 MAXADR = + 
17 ~ENDC 





SEQ 398 


oe yay ee a a 
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SEQ 399 
UDAT4 DISK EXERCISER DMACR X04. 01 13=APR=82 15:49:22 PAGE 97 
eeeeeneeen OVERLAY MODULE WRIT 
1 .SBTTL eeeeeeeee OVERLAY MODULE WRITE 
2 004712 DMOY LY W,AREAO 
004712 000105 WREDC ZOUTPUT EDC FOR THIS OVERLAY | 
3 [RRRRRARRRAAAARERERAAERAERAERARERRERRRERAERR ARERR ERE RR EERE ERERERREReREeeEEEES | 
4 FERRARA AAAAAARAAAAERARERERAARERAERERRRARARAEERARRRAERRERERERERRERERREREEEEEREEE 
s FRAARAAAAARARARARAAEAAREEEEERERERARARARAAEEREREERAEEEREREAEREEEEREREREEEEEREREEEE 
6 ama iat aaa tana iliac aaa 
7 : 
3 | 
10 000010 WRITE = BUILDP+1 | 
12 : WRITE GENERATES THE PATTERNS AND WRITES THEM TO THE DRIVE 
21 .ENABL LSB 
22 004422 024212 CALL DSABLE : DISABLE ERROR RECOVERY | 
23 004423 104657 000012 MOV U.RWTOC(RS),RO  ; MOVE READ/WRITE TIMEOUT VALUE TO RO | 
% 004425 115407 INC : INCREMENT COUNT | 
25 004426 100657 000012 MOV RO,U.RWTO(RS) =: AVE | 
004430 014522 BEQ $ : IF KNOW THAT THE TIMEOUT IS UNEX | 
27 004431 106207 000002 CMP #2,R0 : SEE” 1 OF RIED MAXIMUM TIMES 
28 004433 BCS 11$ : IF SO, BRANCH | 
004433 044435 BCC +2 
004434 004441 BR i1$ 
29 004435 104141 MOV (R4),R1 : GET SUBUNIT PARAMETERS 
30 004436 ASSUME $.PARM,0 + ASSUME THAT S.PARM IS ZERO 
31 004436 102201 001000 BIT #RTRIES,R1 > SEE IF RETRIES ARE ENABLED 
32 004440 054522 BNE : IF SO, BRANCH 
33 004441 11$: HARDER 25, <S.LETR(R4) ,U. CBN(R5S ,U. CBN#1 (R5)> | 
004441 104200 002342 001107 MOV #ER25,,HRO.04 
444 104640 000005 001110 MOV S.LETR(R4) ,HRO.05 
004447 104650 000053 001111 MOV U. CBNCRS) ,HRO.06 
452 104650 000054 001112 MOV U;CBN+1 (RS) .HRO. -07, 
004455 104202 107671 MOV #25! ERHARD+4000 
004457 104020 001105 MOV RD ROO 
004461 104200 004461 001104 MOV #..HRQ.01 
004464 104200 060014 001103 MOV #ERRMC ,HRO.RO 
34 004467 ERRORC <U.PARM(RS) ,ARBNTXT,U.RBN(RS) ,U.RBN¢1(RS)> 
004467 104650 000046 001113 MOV U.PARM(RS) ,HRO.08 | 
004472 104200 005475 001114 MOV #RBNTXT | 
004475 104650 000055 001115 MOV U.RBN(R5) ,HRO. 10 | 
004500 104650 000056 001116 MOV U.RBN+1(R5) ,HRO.11 
35 004503 ENDERR 0 | 
004503 114000 002230 CLR ERRPOS ; CLEAR THE POSITION. 
004505 104653 000046 U.PARM(RS),.R3 =; GET UNIT PARAMETERS 
7 004507 103203 000200 BIC : : IF HANDLING AN RBN, CLEAR IT 
38 004511 10065 6 R3,U.PARM(RS) : SAV 
39 004513 104201 000001 MOV “1. : ONLY 1 SECTOR HANDLED 
40 004515 100651 000021 MOV R1.U.NSEC(RS) : 
41 006517 104207 000001 MOV #SETUP,RO : SETUP IS NEXT MODULE CALLED 
42 004521 004645 BR 7$ + BRANCH 
43 004522 021777 8$: CALL § BULDUM : BUILD DUMMY SDI CONTROL BLOCK 
45 .SBITL BULDSC = BUILD THE SECTOR TO WRITE (FILL WITH PATTERN AND CALC EDC) 
Pe sBULDSC 
48 : BULDSC BUILDS THE INFORMATION AND DATA PATTERN TO BE WRITTEN ON THE 





49 
50 
51 004523 
26 004525 
53 004526 
54 sett 44 
55 0045 
56 004531 
57 oocess 
58 00453 
59 004534 
60 004535 
61 004537 
¢ 004540 
63 004542 
64 004544 
65 
66 
67 
68 
69 
70 004545 
004545 
004546 
004547 
71 004550 
72 004552 
73 004554 
74 004555 
75 004557 
76 004560 
77 004561 
78 004563 
77 004564 
80 004565 
81 004566 
82 004567 
83 004570 
84 004571 
85 004572 
86 004573 
87 004574 
88 004575 
89 004576 
90 004577 
91 004600 
92 004601 
004601 
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UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 97-1 
BULDSC = BUILD THE SECTOR TO WRITE (FILL WITH PATTERN AND CALC 


SECTOR 

MOV U.PAT(RS),R1 : GET PATTERN NUMBER TO rte 
MOV R1,R3 : COPY PATTERN NUMBER TO R 

SWAB R1 3 SWAP THE BYTES 

BIS R1,R3 3 yo THE PATTERN NUMBER 
MOV R3,R1 : COPY R1 

ROL R1 ; ROTATE TO NEXT POSITION 

ROL R1 

ROL R1 

ROL R1 

BIC 0 melas R1 CLEAR eee BITS 
ae R1 one REP. LICATE THE P. N 


CHAINS ,RO 
MOV RW. BUF (RO) RO 
MOV : MOVE P 
COPPAT = COPY THE DATA PATTERN TO BUFFER 


TER 
; GET POINTER TO FIRST WRITE CHAIN NODE 
3 RO ag yt TO BUFFER AREA 

ATTERN NUMBERS TO SECTOR 


MOV RO,-(SP) 
MOV R4,-(SP) 
MOV R5,-(SP) 


OF WORDS TO FILL WITH PATTERN 


AREA 
ao Sort WRITE IN SECTOR 
WORDS IN PATTERN 


AREA 
WORDS TO MOVE TO SECTOR 


MOV (SP)+,R5 
MOV (SP)+,R4 
MOV (SP)+,RO 


.SBTTL 
:COPPAT 
; COPPAT COPIES THE PATTERN TO THE SECTOR TO BE WRITTEN 
PUSH  <RO,R4,R5> zy SAVE RO,R4,RS 
MOV U.PAT(RS),R2  ; R2 HAS PATTERN NUMBER 
MOV PATPTR(R2S . R22: POINT T0 TO PATTERN 
MOV #SCTWRD.RI : R1 HA HAS NUMBER 
COPLPO: MOV R2,R4 : R4 POINTS TO LENGTH OF PATTERN 
MOV (R4)+,R3 3 R3 CONTAINS LENGTH OF PATTERN. 
CMP #1,R3 : SEE IF PATTERN IS 1 WORD LONG 
BEQ ONEPAT : IF $0 BRANCH 
COPLP1: MOV (R46) +, RS : RS GETS 1 WORD OF THE DATA, PATTERN 
MOV RS, (RO) + : MOVE PATTERN WORD TO SECTOR 
DEC 1 > DECREMENT NUMBER OF 
BEQ COPF IN : IF ALL WORDS WR 
DEC R3 + DECREMENT COUNT OF 
BNE COPLP1 ; IF DATA PATTERN UNFINISHED, BRANCH 
BR COPLPO : BRANCH 
ONEPAT: MOV (R4) RS : GET 1 WORD OF DATA PATTERN 
COPLP2: MOV RS, (RO)+ : MOVE PATTERN TO SECTOR 
DEC : DECREMENT NUMBER OF 
BNE LP2 : IF INCOMPLETE, BRANCH 
COPFIN: MOV oeRD) RS : GET EDC 
MOV R5, (RO) : MOVE TO BUFFER 
POP <R5.R4,RO> 3 RESTORE RS,R4,RO 
MOV Y.PAT(RS) .RI : GET PATTERN NUMBER 
BNE is : IF NOT PATTERN 16, BRANCH 
DEC : POINT TO START OF BUFFER 
CALL  CMPEDC : COMPUTE EDC 
MOV R2,BF.EDC(RO) : SAVE EDC 
21$: CALL LOCK : WRITE THE SECTOR 
TST : SEE If ERROR OCCURRED 





—— 
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SEQ 401 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 97-2 
COPPAT = COPY THE DATA PATTERN TO BUFFER 


100 004615 054645 BNE 7$ : IF NOT, BRANCH 

101 004616 104643 000011 MOV S.MEGW(R4),R3  : GET MEGABYTE COUNT 

108 004620 106203 003642 CMP #1954. ,R3 : SEE IF ONE MEGABYTE TRANSF ERED 

103 0046 é 034641 BPL 6s t BRANCH IF NOT 

104 004 107203 003642 SUB #1954. ,R3 : CLEAR MEGABYTE COUNT 

105 004625 100643 000011 MOV R3,S.MEGW(R4) > SAVE NEW COUN 

106 004627 114000 001105 CLR H t NOT REPORTING READS 

107 004631 104200 000001 001106 MOV #1,HRO.03 : REPORT 1 MEGABIT WRITTEN 

108 004634 104502 060011 MOV so AT&MXER.R2 : SET UP FOR MEGABIT REPORT 
109 004636 104020 001103 MOV -R2-HRO Q.Ra : FLAG AS NON-ERROR 

110 004640 004642 BR : EXIT 

111 004641 11400 me he o @ + NO ERRORS | 
112 004642 104207 000011 1$: MOV #AFTWRT,RO t AFTWRT IS NEXT MODULE 
113 004644 114001 2$: CLR R 3 IMMIDATE CALL 

114 004645 003231 BR JMPRET t RETURN TO RDWRT | 
115 .DSABL LSB | 


r 





B 16 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 98 
WBLOCK = WRITE THE SECTOR(S) 


~-SBTTL WBLOCK = WRITE THE SECTOR(S) 
WBLOCK: 


SEQ 402 


é 004646 
4 ; WBLOCK WRITES THE SECTOR(S) ONTO THE DRIVE 
6 004646 PUSH = RS : SAVE R4 
004646 100464 MOV R4,=(SP) 
7 004647 104307 002232 MOV CHAINS, RO ; POINT TO START OF CHAIN 
8 004651 104652 000025 MOV U.MASK(R5) ,R2 ; R2 HAS SDI_ INTERCONNECT 
9 004653 104644 000007 MOV S.SCHR(R4).R4 : RG POINTS TO SUBUNIT CHARACTERISTICS 
10 004655 OTSee 000005 MOV DATPRE (R4) ,R4 : R4 CONTAINS DATA PREAMBLE LENGTH 
11 004657 103204 177400 BIC #HIBYTE ,R4 : STRIP OFF UNUSED BITS 
12 004661 060012 XFC ITSI ; WAIT FOR SECTOR OR INDEX PULSE 
13 004666 115001 TST : SEE IF ERROR OCCURRED 
14 004663 614723 BEQ 3$ 
15 004664 DEVFTL 42,<U.CGRP(RS) ,U.CCYL(RS5) ,U.CCYL+1(R5)> 
004664 104200 003071 001107 MOV #ER42,HRO.04 
004667 104650 000066 001110 MOV U. CERPCRS) , HRQ. 05 
004672 104650 000064 001111 MOV U.CCYL(RS) .HRO.06 
004675 104650 000065 001112 MOV U. CEM eT RSD HRQ.07 
004700 104202 047712 MOV #42! FTLDEV+4000. .R2 
004702 104020 001105 MOV R2,HRO.02 
004704 104200 704 001104 MOV #.HRO.01 
004707 104200 060014 001103 MOV #ERRMC ,HRO.RO 
16 004712 ENDERR 
004712 104200 000051 001113 MOV #SER22,HRO.08 
004715 104200 000011 002230 MOV #8+1, ERRPOS : SET THE POSITION 
17 004720 024227 CALL  GOSEEK 
18 004721 POP RG : RESTORE SUBUNIT POINTER 
004721 104264 MOV (SP)+,R4 
19 004722 005024 BR rs 3 : EXIT 
20 004723 060003 3$: KFC XWRITE + WRITE THE | SECTOR(S) 
21 004724 POP RG t RESTORE R 
004724 104264 MOV <SP)+,R4 
22 004725 100651 000061 R1,U.RWER(RS) ; SAVE ERROR IF ANY 
23 004727 014776 BEQ : IF R BRANCH 
24 004730 104651 000026 MOV U. WRIT(RS) , Pu GET WRITE PROTECTION STATUS 
25 ; NOW I OR IN THE READ-ONLY WRITE PROTECT BITS. THIS WILL CATCH 
36 ; IT 1F SOnenou I GET INTO THIS MODULE ON A READ-ONLY DRIVE 
28 004732 101651 000045 61S U.WPRT(RS),R1 =; SET READ-ONLY BITS 
29 006734 106652 000050 MOV U.SUBU(R5),.R2  : GCT SUBUNIT IN USE 
30 004736 105202 000003 ADD #3,R2 3 ADD 3 TO SHIFT WRITE PROT STAT TO LO NIBBLE 
31 004740 110601 10$: ROR R1 : ROTATE PROTECTION STATUS (LO BIT TO CARRY) 
32 004741 117402 DEC R2 : DECREMENT SUBUNIT IN USE 
i} 004742 034740 BPL 10$ : IF >= 0, BRANCH 
34 004743 110601 ROR R1 : MOVE THE Bit INTO CARRY TO TEST 
35 004744 045023 BCC 7$ > IF CARRY CLEAR (NOT WRITE PROTECTED) BRANCH 
36 004745 DEVFTL 18,U.RWER(RS)  : REPORT WRITE ON WRITE PROTECTED D IVE 
004745 104200 001705 001107 MOV #ER1 
004750 104650 1 001110 MOV U.RWER ars 0.05 
004753 104208 04766 MOV U-RMER(RS) -HRO.05 
004755 104020 00110 MOV Re, 02 
004757 104200 004757 001104 MOV #. .HRO.01 
004762 104200 060014 001103 MOV #ERRMC ,HRO.RO 
37 00476 ENDERR 
004765 104200 000051 001111 MOV #SER22,HRO.06 







SEQ 403 
UDAT4 DISK EXERCISER DMACR x04. 01 13-APR=-82 15:49:22 PAGE 98~1 
WBLOCK = WRITE THE SECTOR(S) 
770 494390 000007 002230 MOV #6+1,ERRPOS ; SET THE POSITION 
773 024227 CALL GOSEEK 
39 004774 104051 MOV R5,R1 : DEFFERED CALL 
40 004775 005024 BR ; BRANCH 
41 004776 104657 000012 5$: MOV U.RWTO(RS) ,RO 3; GET tt 
005000 015023 BEQ 7$ : IF NO RETRIES, BRANCH 
43 005001 REPSFT SOFT : REPORT ONE SOFT ERROR 
5001 104200 000001 001105 MOV #1,HRO.02 
5 114000 001106 CLR HRO.03 
5 114000 ? CLR HROQ. 
005010 100467 MOV RO,=(SP) 
005011 104657 000063 MOV U.UNUM(RS) ,RO 
005013 105657 50 ADD U. SUBU(RS) ,RO 
005015 104070 001104 MOV RO,HRO. 
005017 104207 MOV #T4SOFT,RO 
005021 021053 CALL HOS 
005022 104267 MOV (SP)+,RO 
44 005023 114002 7$: CLR R2 : NO ERRORS 
000000 6$: RETURN ; RETURN TO CALLING PROGRAM; 
IF LT,BUFARA-. 
BUFARA = ‘ 
eENDC 
olf LE ,MAXADR-. 
MAXADR = +1 
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UDAT4 DISK EXERCISER DMACR ae a 13=APR=82 15:49:22 PAGE 99 
eeeeeeeeee OVERLAY MODULE AFTWR 


- SBTTL 
ete AW, AREAO 


SEQ 404 


seaneeneee OVERLAY MODULE AFTWRT 
OUTPUT EDC FOR THIS OVERLAY 


WR 
TITIIIITITILITILILITILILI TELE TL TTT TITTLE TTT TTT TITTLE TTT TTT TTT TTT TTT Tee 
S RAAAAAAAAAAAARAAAAAERAREAERARAAAARAERARRARARARARARERRARAEREEARAEEEREEEREEEEEEEE 
SRAAAAAAAAAAAAAERAAERARAEARARAAARARAARARARERAERARARRAREAERERREREREREEEEREREEEEE 
{RIERA AAAAAARARAAAAAAAAAERERAEARARARAAAERAREREAREARERAAERAEERREEREAEEREEREREEEREEE 


= WRITE+1 


Be Se Se Se Fetes Oe Oe Os Ge Be Se 
wn 
& 
~ 


AFTWRT WILL HANDLE ANY ERRORS THAT GCCURRED DURING THE WRITE 
OPERATION 


-ENABL LSB 
FNDWER = IF ERROR DURING WRITE, FIND IT°S POSITION IN THE CHAIN 


.SBTTL 
:FNDWER 
: FIND THE FIRST BUFFER THAT IS NOT WRITTEN 
PUSH <R4,R5> : SAVE REGISTERS 
MOV R4,-(SP) 
MOV R5.-(SP) 
MOV U.CBN(R5),R4 —;: GET LO ORDER BN 
MOV U.CBN+1(R5),R5 : GET HI BN 
CLR R2 : CLEAR SECTOR COUNT 
MOV CHAINS ,RO : RO POINTS TO FIRST BUFFER 
31$: MOV Rs. Ru. Cow(RO) : MOVE T0 CHA IN 
MOV HIRO) + MOVE TO CHAIN 
MOV tab a : GET STATUS BITS 
ASSUME ay Star 0 
BIT #BUFFLG.R1 : SEE IF THIS BUFFER HAS BEEN WRITTEN 
BNE 32$ s if GRANCH 
INC R2 : INCREMENT SECTOR COUNT 
TST R1 : SEE IF END-OF-LIST 
I 32$ IF LAST BUFFER, EXIT 
ASSUME WSTOP=40000, 100000 ASSUME WRITE STOP BIT IS SIGN BIT 
C #°CHBHINB,Ri = ;:-: CLEAR iNUseD BIT 
MOV R1,R : MOVE TO RO 
ADD #1_RG + ADD ONE TO hou ORDER BN 
BCC 31 1$ : IF NO CARRY, BRANCH 
INC : PRPOGATE CARRY 
BR R $ ; LOO 
32$: POP <R5,R4> : LP CTORE REGISTERS 
MOV (SP)+,R5 
MOV (SP)+_R4 
R2,U.NSEC(RS) ; SAVE AS NUMBER OF SF°TORS nANDLED 
ADD S.MEGW(R4),R2  : ADD TO MEGABITS tin TTEN 
MOV »S.MEGW(RG) =: SAVE 
MOV sRWER(RS),.R2  : SEE IF ANY £ARROR OCCURRED 
BNE $ + Te ss, on H . 
MOV U.PARM(RS) %S =: GET UNIT. PARAMETERS 
BIC NPS : CLEAR RBN BIT 
MOV RO,U."ARM(RS) : SAVE 
MOV #SETUP, RO : SETUP NEXT MODULE 


MOV R5,R1 





; DEFERRED CALL 
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a —" EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 99-1 


= IF ERROR DURING WRITE, FIND IT'S POSITION IN THE CHAI 
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ERRORC 


SEQ 405 


17$ : EXIT 
BLKCHK : SEE IF THIS IS A KNOWN BAD BLOCK 
15$ : IF NOT, BRANCH 
tig 
U.NSEC(RS),RO ; GET NUMBER OF SECTORS WRITTEN 
: SKIP THIS SECTOR 
RO,U.NSEC(RS) : SAVE 
#SETUP,RO : SETUP NEXT MODULE 
RS RI : DEFERRED CALL 
U.NSEC(RS).R1  : GET SECTORS WRITTEN 
U.CSEC(R5).R1  : ADD TO TOTAL SECTORS WRITTEN 
R1,U.CSEC(R5) =: SAVE 
U.NSEC(RS),R1 =: GET SECTORS WRITTEN 
U.CBN(R5),R1  : ADD TO LO ORDER CURRENT BN 
R1,U.CBN(R5) =: SAVE 
2$ : IF NO CARRY, BRANCH 
U.CBN+1(R5),R1 =: GET HI ORDER CURRENT BN 
Ri : PROPOGATE CARRY 
R1,U.CBN+1(R5) : SAVE 
R1 : SET UP FOR NO SECTORS WIRITTEN 
R1,U.NSEC(RS) : SAVE 
U.RWER(RS),R1  : GET WRITE ERROR 
RI : SEE IF REVECTOR 
1$ ; IF SO, BRANCH 
#2,R1 : SEE IF FAILURE IN DRIVE 
5% ; IF NOT, BRANCH 
6 ; REPORT 
MOV #ER6,HRO.04 
MOV #6 'ERSOFT*4000. .R2 
MOV R2,HRQ.02 
MOV #..HRO.01 
MOV #ERRMES ,HRO.RO 
GOINIT 
12$ ; BRANCH 
#4 RI : SEE IF F HEADER COMPARE FAILURE 
U.PARM(RS).R1 =: GET ONiT PARAMETERS 
A) RS : GET SUBUNIT PARAMETERS 
#DCYLS.R3 : SEE IF USING DIAGNOSTIC CYLINDERS 
7$ : IF $0, BRANCH 
#RBNBN,R1 : SEE If WRITING A RBN 
: IF $0, BRANCH 
#REVCT,RO : REVECTOR NEXT MODULE 
RI ; IMMIDATE CALL 
5 > REPORT HEADER COMPARE FAILURE 
MOV #ERSHRO.04 
MOV #5 'ERHARD+4000. .R2 
MOV R2.HRO. O02 
MOV ee 2 
MOV #ERRMC ,HRO.RO 
<S.LETR(R4) ,RW.LOW(RO) ,RW.HI(RO)> 
MOV S.LETR(R4) ,HRO.05 
MOV RW. LOW(RO) .HRO.06 


F 16 
SEQ 406 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 99-2 
FNDWER = IF ERROR DURING WRITE, FIND IT'S POSITIGN IN THE CHAI 


004636 104670 000003 001112 MOV RW.H1(RO),HRO.07 
103 004641 ERRORC <R1,#RBNTXT,U.RBN(RS)> 
004641 104010 001113 MOV R1,HRO.08 
004643 104200 005475 001114 MOV #RBNTXTHRO.09 
004646 104650 000055 001115 MOV U.RBN(R5) ,HRO. 10 
104 004651 ERRORC <U.RBN+1(R5) ,RW.ANG(RO)> 
004651 104650 000056 001116 MOV U.RBN+1(R5),HRO.11 
004654 104670 000006 001117 MOV RW. ANG(RO) ,HRO. 12 
105 004657 ERRORC <RW.CMD(RO),U.CGRP(RS) ,U.CCYL(RS) .U.CCYL#1(R5)> 
004657 104670 001120 MOV Rw. CMD(RO) ,HRO. 13 
004 04650 000066 001121 MOV U.CGRP(RS) .HRO. 14 
004665 104650 000064 001128 MOV U.CCYL(R5) .HRO.15 
004670 104650 000065 00112 MOV U.CCYL#1(R5) ,HRO. 16 
106 004673 ERRORC <U.LGRP(RS),U.LCYL(RS) ,U.LCYL*1(R5)> 
004673 104650 000071 001124 MOV U.LGRP(RS) ,HRO. 17 
004676 104650 000067 001125 MOV U.LCYL(R5) .HRO.18 
004701 104650 000070 001126 MOV U.LCYL+1(R5) ,HRO. 19 
107 004704 ENDERR 0 
004704 114000 002230 CLR ERRPOS ; CLEAR THE POSITION 
108 004706 103201 000200 BIC #RBNBN,R1 z NO LONGER HANDLING AN RBN 
109 004710 100651 000046 MOV R1,U.PARM(RS) : SAVE 
110 004712 104201 0v0001 MOV ; : ONLY 1 SECTOR WRITTEN 
1117 004714 10065? 900021 MOV R1.U.NSEC(RS) : SAVE 
112 004716 104207 000001 MOV #SETUP,RO : SETUP NEXT MODULE 
113 004720 005224 BR 1 : EXIT AND REPORT 
114 004721 106201 000153 8$: CMP #153,R1 : SEE IF POSITIONER ERROR 
115 004723 054765 BNE 22$ : IF NOT, BRANCH 
116 004724 REPSFT ,,SEEK : REPORT SEEK ERROR 
004724 114000 001105 CLR HRO.02 
004726 114000 CLR HRO.03 
004730 104200 1 001107 MOV #1,HRO.04 
004733 100467 MOV RO,-(SP) 
004734 104657 000063 MOV U.UNUM(RS) ,RO 
004736 105657 50 ADD U. SUBU(RS) .RO 
004740 104070 001104 MOV RO,HRO.O1 
004742 104207 060007 MOV #T4SOFT.RO 
004744 021053 CALL HOSTROQ 
004745 104267 MOV (SP)+,RO 
117 004746 SOFTER 44 : POSITIONER ERROR 
004746 104200 003132 001107 MOV #ERGS HRO.04 
004751 104202 147714 MOV #44 'ERSOFT+4000. .R2 
004753 104020 001105 MOV 2,HRO.02 
004755 104200 004755 001104 MOV #..HRO.01 
004760 104200 060013 001103 MOV #ERRMES ,HRO.RO 
118 006763 024235 CALL  GORCLB : RECALIBRATE NEEDED 
119 004764 005124 BR * BRANCH 
120 004765 106201 000213 228: CMP #215,R1 : SEE IF READ/WRITE FAILURE 
121 004767 055006 BNE 23$ : IF NOT. H 
122 004770 SOFTER 48 > READ/WRITE READY FAILURE 
004770 104200 003246 001107 MOV #ER4B,HRO.04 
004773 104202 147720 MOV #48 ERSOFT+4000. .R2 
004775 104020 001105 MOV R2.HRO.02 
004777 104200 004777 001104 MOV . .HRO.O1 
005002 104200 060013 001103 MOV #ERRMES ,HRO.RO 
123 005005 005124 BR 12$ : ERROR EXIT 
124 005006 106201 000253 238: CMP #253,R1 3 SEE IF DRIVE DATA OR CLOCK TIMEOUT 
125 005010 055030 BNE 21$ 3 IF NOT, BRANCH 





SEQ 407 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR=-82 15:49:22 PAGE 99-3 
FNDWER = IF ERROR DURING WRITE, FIND IT'S POSITION IN THE CHAI 
126 005011 SOFTER 47 : DRIVE CLOCK TIMEOUT 
005011 104200 003217 001107 v #ER47,HRO.04 
005014 104202 147717 MOV P67 SERSOF +4000. .R2 
005016 104020 001105 MOV R2, HR. 02 
502 104200 005020 001104 mov 0.01 
005923 104200 060013 001103 siRAMES. HRO.RO 
127 005026 024243 CALL  GOINIT : INIT THE DRIVE 0 RECOVER 
128 005027 005124 BR 12$ > ERROR EX 
129 005030 106201 000313 21$: CMP #313,R1 : SEE IF RECIEVER READY TIMEOUT 
130 5032 055052 NE 24$ : IF NOT, H 
131 00503 SOFTER : RECEIVER READY FAILURE 
005033 104200 003273 001107 MOV #ERSI,HRO.04 
005036 104202 147721 MOV #49! ERSOFT+4000..R2 
005040 104020 001105 MOV R2, HRQ. 02 
005042 104200 005042 001104 MOV #..HRO.01 
005045 104200 060013 001103 vERRMES. HRO.RO 
132 005050 024243 CALL  GOINIT : INIT THE DRIVE m0 RECOVER 
133 005051 005124 BR 
134 005052 106201 000413 24$: CMP #413,R1 : SEE IF RTDS ERROR DURING WRITE 
135 005054 055073 BNE 25$ : IF NOT, BRANCH 
136 005055 SOFTER : 
005055 104200 120 001107 MOV #ER63,HRO.04 
005060 104202 147737 MOV #63! ERSOFT+4000. .R2 
005062 104020 001105 MOV R2,HRO.02 
005064 104200 005064 001104 MOV . .HRO.01 
005067 1042 0013 001103 MOV #ERRMES ,HRO.RO 
137 005072 005124 BR 12$ BRANCH 
138 005073 25$: HARDER 68,<#SER36,R1> : UNKNOWN ERROR CODE 
005073 104200 200 001107 MOV #ER68,HRO.04 
005076 104200 245 001110 MOV #SERSG, HRO.05 
005101 104010 001111 MOV R1,HRO.06 
005103 104202 107744 MOV #68! ERHARD+4000. .R2 
005105 104020 001105 MOV R2,HRO.02 
005107 104200 005107 104 MOV #.,HRO.01 
005112 104200 14 001103 MOV #ERRMC.HRO.RO 
139 005115 ENDERR 
005115 104200 000051 001112 MOV #SER22,HRO.07 
005120 104200 000010 002230 MOV #7+1, ERRPOS : SET THE POSITION 
140 005123 005215 BR 14$ 
141 005124 12$:  CERROR 5,ASER19 
005124 104200 000470 001110 MOV #SER19 .HRO.05 
142 005127 ERRORC <U.RWTO(RS),S.LETR(R4) ,RW.LOW(RO) .RW.HI(RO)> 
005127 104650 000012 001111 MOV U.RWTOCRS) -HRO.O¢: 
005132 104640 000005 001112 MOV S$. LETR(R4) .HRO.C” 
005135 104670 000002 001113 MOV RW. LOW(RO) .HRO.68 
005140 104670 000003 001114 MOV RW. HI (RO) ,HRO.09 
143 005143 ERRORC <U.PARM(RS) ,ARBNTXT,U.RBN(RS)> 
005143 104650 001115 MOV U.PARM(RS) ,HRO. 10 
005146 104200 005475 001116 MOV TXT HRQ. 
005151 104650 55 001177 MOV U.RBN(R5) ,HRO. 1? 
144 005154 ERRORC <U.RBN+1(RS) ,RW.ANG(RO)> 
005154 104650 000056 001120 MOV U.RBN+1(RS5) .HRO.13 
005157 104670 000006 001121 MOV RW.ANG(RO) ,HRO. 14 
145 005162 ERRORC <RW.CMD(RO).U.CGRP(RS) ,U. CCVL CRS), su. CCYL+1(R5)> 
005162 104670 000004 001122 .CMD(RO) ,HRO.15 
005165 104650 000066 00112 mov U.CGRP(RS) _HRO.16 
005170 104650 000064 001124 MOV U.CCYL(R5) -HRO.17 
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104650 


000065 


000071 
000067 
000070 


000051 
000027 


000001 
000022 


001125 


001126 
001127 
001130 


001131 
002230 


148: 


178: 
138: 


BUF ARA 


MAXADR 


MOV 
ERRORC ee ae 


ENDERR 
CALL 

MOV 
MOV 
CLR 


GOSEEK 


1,R1 
R1.U.MSEC(RS) 
13$ 


R2 

JMPRET 

LS8 

LE ,BUFARA-. 
+1 


LE ,MAXADR-. 


MOV 
MOV 


MOV 


MOV #2 
SEEK ae tal FOR ERROR RECOVERY 
DEFERRED 
an ro. URITE ONE SECTOR 


SEQ 408 


U.CCYL+1(R5) ,HRO.18 


U.LGRP(RS) ,HROQ.19 
U.LCYL (RS) ,HRO.20 


U.LCYL+1(R5),HRO.21 


#SER22,HRO.22 
+1, ERRPOS 


NO_ERRORS 
; RETURN TO CALLING PROGRAM 


: SET THE POSITION 
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ord he td ot od et ot 
RENESSESARE REPL FF 

MANO Aan 
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000022 


m 
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OMY Ake MODULE READ 
OUTPUT EDC FOR THIS OVERLAY 


o Wi 
TITIIIIITILE TELL LI TILE LI TTL LTT TTT TEE TTT TTT TTT TTT TTT T TTT TTT TTT TTT TTT TTT 
p RERARAAAAAAEAERAEAAAARAEAAEEEAAAARARAAARAAEARAERAAERERERERARAEARERAERERAREREREEEEEE 
SRAAAAEAAARAAAAAEAERAAEEAEEEARAAEAARERAERARAERAEAERERRERERERARERERAEEAEEAREEEEREHARAEEEE 
laa aaa aaa aa alta a eee 


DMOVLY 


= AF TWRT+1 

READ READS A BLOCK FROM THE DEVICE 
-ENABL LSB 

CALL DSABLE 

Oar U.RWTOC(RS) ,RO 
MOV RO,U.RWTO(RS) 
BEQ $ 

CMP #2,R0 

BCS 11$ 

MOV (R4) ,R1 
ASSUME $.PARM,0 

BIT #RTRIES,R1 
BNE 

MOV U.PARM(RS) ,R1 
BIT #REVEC,R1 

BNE 

HARDER 


ERRORC 


ENDERR 


UDATS DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 100 
weteevewee OVERLAY MODULE READ 


$ : IF SO 
26.<S.LETR(R4) ,U.CBN(RSS 


MOV 
<U.PARM(RS) ,ARBNTXT .U.RBN(RS) ,U. RBN*T(RSDS. 
MOV sun -HRQ.08 


0 


U.PARM(RS) ,R3 
#RBNBN,R 
R3.U,PARMCRS) 
RO.U.NSEC(RS) 
#SETUP,RO 
R5_R 
#REVECR3 

8$ 

#REVCT,RO 


I 16 





DISABLE ERROR RECOVERY 
poe READ/WRITE TIMEOUT VALUE TO RO 
MENT COUNT 


CRE 
SAVE el TIMEOUT 


FIRST TIME == BRANCH 
ATTEMPTED MAX TIMES 
BRANCH 


; GET SUBUNIT PARAMETERS 
; ASSUME THAT S.PARM IS ZERO 
ary He Ly E ED 


C 
GO FOR RETRIES 


ER26,HRO.04 
S.LETR(R4) ,HRO.05 


U. aot »HRO.11 

: CLEAR THE POSITION 
GET UNIT PARARE | ER S 

iY yHANDLING AN RBN, CLEAR IT 
: ONE SECTOR HANDLED 


xT ee CALLED 


IF NOT, 
REVECTOR NEXT "MODULE 


J 16 


SEQ 410 

UDAT4 DISK EXERCISER DMACR ey 01 13-APR=82 15:49:22 PAGE 100-1 
eeteeeenee OVERLAY MODULE REA 

49 004534 104200 177777 002220 MOV #-1,SCR2 ; MARK SECTOR AS BAD 

50 004537 544 BR 4$ : EXIT 

51 004540 021777 5$: CALL BULDUM : BUILD THE yan SDI CONTROL BLOCK 

52 004541 024546 CALL RBLOCK : READ THE 7s 

53 004542 104207 000013 MOV #SECCHK ,RO 3 SECCHK NEXT MOD ULE CALLED 

54 004544 114001 4$: Ci. R1 3 IMMIDATE CALL TO NEXT MODULE 

3? 004545 003231 cs: an io : RETURN TO RDWRT MODULE 
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SEQ 411 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 101 
RBLOCK = READ THE SECTORS 
1 -SBTTL RBLOCK = READ THE SECTORS 
: 004546 RBLOCK: 
$ ; READ A SECTOR FROM THE DEVICE 
6 004546 104307 002232 MOV CHAINS ,RO : POINT TO START OF CHAIN 
7 004550 104652 000025 MOV U.MASK(R5),R2  : R2 HAS SDI INTERCONNECT : 
8 004552 060012 XFC WAITSI : WAIT FOR SECTOR OR INDEX PULSc 
9 004553 115001 TST R1 + SEE IF ERROR OCCURRED 
10 004554 014613 BEQ 6$ 
11 004555 DEVFTL 42,<U.CGRP(RS) ,U.CCYL(RS) ,U.CCYL*1(R5)> 
004555 104200 003071 001107 MOV #ER42,HRO.04 
004560 104650 000066 001110 MOV U. CGRP(RS) ,HRO.0S 
004563 104650 000064 001111 MOV U.CCYL(R5) .HRO.06 
004566 104650 000065 001112 MOV U.CCYL#1(R5) ,HRO.07 
004571 104202 047712 MOV #42! F TLDEV+4000. .R2 
004573 104020 001105 MOV R2,HROQ.02 
004575 104200 004575 001104 MOV #. .HROQ.01 
004600 104200 060014 001103 MOV #ERRMC ,HRO.RO 
12 004603 ENDERR 
004603 104200 000051 001113 MOV #SER22,HRO.08 
004606 104200 000011 002230 MOV #8+1, ERRPOS : SET THE POSITION 
13 004611 024227 CALL - GOSEEK 
14 004612 004647 BR 5$ : EXIT 
15 004613 060002 6$: XFC XREAD : WRITE THE SECTOR(S) 
16 004614 100651 000061 MOV R1,U.RWER(RS) : SAVE ERROR TYPE 
17 004616 024650 CALL FNDRER 3; FIND READ ERROR (FILL IN CORRECT BN NUMBERS) 
18 004617 115001 TST R1 : SEE IF ANY ERRORS OCCURRED 
19 004620 054646 BNE 4$ : IF SO, BRANCH 
20 004621 104657 000012 MOV U.RWTO(RS),RO : SEE IF ANY RETRIES 
21 004623 014646 BEQ 4$ : IF SO, BRANCH 
22 004624 REPSFT SOFT : REPORT SOFT ERROR 
004624 104200 000001 001105 MOV #1,HRO.02 
004667 114000 001106 CLR HRO.03 
004631 114000 001107 CLR HRO.04 
004633 100467 MOV RO,-(SP) 
004634 104657 000063 MOV U.UNUM(RS) ,RO 
004636 105657 000050 ADD U. SUBUC(R5) RO 
004640 104070 001104 MOV RO,HRO.01 
004642 104207 ? MOV #T&SOFT.RO 
004644 021053 CALL -HOSTRO 
004645 104267 MOV (SP)+,RO 
23 004646 114002 4$: CLR R2 : NO ERRORS 
24 004647 000000 : RETURN ; RETURN TO CALLING PROGRAM; 
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1 
2 004650 
3 
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000001 


FNDRER 


7$: 


BUF ARA 


MAXADR 


L 16 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 102 
IF ERROR DURING READ, FIND IT*S POSITION IN THE CHAIN 


SBTTL FNDRER =~ IF ERROR DURING READ, FIND IT'S POSITION IN THE CHAIN 


FIND THE FIRST BUFFER THAT IS NOT READ 
3 SAVE REGISTERS 


PUSH 


<R1,R4,R5> 


U. CBN(RS) ,R4 
U. CBN+1(R5) RS 


C 
R4,RW.LOW(RO) 
RS Rw HI(RO) 


(RO) ,R1 
#BUFFLG, R1 
8$ 

R1 

8$ 

RSTOP, 100000 
#*CHBHINB,R1 
R1,R0 

#1,R4 

7$ 

RS 

7$ 
<R5,R4,R1> 


LT, BUFARA-. 


LE MAXADR-. 


MOV R1,-(SP) 
MOV R4,=-(SP) 
MOV R5,=-(SP) 


GET 7 ey BN 
RO boyy aA FIRST BUFFER 


; GET STATUS BITS 
; SEE IF : aa HAS BEEN READ 


IF NOT, BRANCH 
SEE IF ND-OF -LIST 
IF LAST BUFFER, EXIT 


; ASSUME READ STOP IS SIGN 


CLEAR UNUSED BITS 
MOVE TO RO 


ADD ONE TO LOW ORDER BN 


IF NO CARRY, BRANCH 


; PRPOGATE CARRY 


LOOP 
RESTORE REGISTERS 


MOV (SP)+,R5 
MOV (SP)+,R4 
MOV (SP)+,R1 


RETURN TO CALLING PROGRAM 


SEQ 413 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR=-82 15:49:22 PAGE 103 
weweeeeens OVERLAY MODULE SECCHK = CHECK THAT BUFFER FULL AND 


1 .SBTTL ‘seeeneweee OVERLAY MODULE SECCHK = CHECK THAT BUFFER FULL AND ECC 
2 004707 DMOVLY SC,AREAO 
004707 000105 WREDC sOUTPUT EDC FOR THIS OVERLAY 
3 TTI TTITETT ITLL LLLL ELITE TTL TET TTT TTT TTT TTT TTT TT TTT TTT TTT TT TTT 
. 4 J RAAAAAERAAAARAAERAEEEARERERERERRAREAERRAEREEERERRAERREREAARREREEREREERERREEEERERE 
5 F RARAAAAAAAAAEAARAAAAAEAAEEREEEARARAAAARARAAAAERAAAARAARAREARAAAEAEAREAAEERERAREEEEE 
6 FRRAARAAARARAEARAAAAAAAAEEEEEAARRAARAEARAERERAERARERARERERERERAREAARAAAAEERREREREEE 
7 3 
: 3 
10 000013 SECCHK = READ+1 
12 : CHECK TO SEE IF THE SECTOR'S FULL, IF NOT, REPORT WHY (UNLESS 
13 ; REVECTOR WHERE I'LL REVECTOR THE BLOCK) 
14 ; IF THE SECTOR'S FULL, CHECK ECC AND EDC, THEN CALL THE NEXT ROUTINE 
13 : DEPENDING ON THE OPTIONS IN U.PARM (SELECTED BY USER) 
24 .ENABL LSB 
25 004422 104307 002232- MOV CHAINS,RO : GET POINTER TO READ CHAIN 
26 004424 104171 MOV (RO) RI ; GET STATUS OF BUFFER 
7 004425 ASSUME RW.STA,O 
28 004425 102201 040000 BIT #BUFFLG,R1 : SEE IF BUFFER FULL 
29 004427 055231 BNE : IF SO, BRANCH 
004430 021725 CALL BLKCHK : SEE If THIS IS A KNOWN BAD BLOCK 
31 004431 045216 BCC 3$ : IF $0, BRANCH 
32 004432 104651 000021 MOV U.NSEC(RS).R1 =: GET NUMBER OF SECTORS READ 
33 004434 105651 000024 ADD U.CSEC(RS).R1 ; ADD NUMBER OF SECTORS PREVIOUSLY HANDLED 
34 004436 100651 000024 MOV R1,U.CSEC(R5) : SAVE 
35 004440 104651 000021 MOV U.NSEC(R5).R1 =: GET NUMBER OF SECTORS READ 
36 004442 105641 000010 ADD S.MEGR(R4),R1  : ADD TO MEGABITS READ 
37 004444 100641 10 MOV R1,S.MEGR(R4) =: SAVE 
38 004446 104651 21 MOV U.NSEC(RS),R1  : GET NUMBER OF SECTORS READ 
39 004450 105651 000053 ADD U.CBN(RS),R1 ; ADJUST U.CBN TO SECTOR WITH ERROR 
40 004452 100651 53 MOV R1,U.CBN(R5)  : SAVE 
41 004454 044462 BCC 1$ : IF NO CARRY, BRANCH 
42 004455 104651 000054 MOV U.CBN+1(R5),R1 ; GET CURRENT BN 
43 004457 115401 INC Ri 3 PROPOGATE CARRY 
44 004460 100651 000054 MOV R1,U.CBN¢1(R5) : SAVE 
45 004462 114001 1$: CLR R1 ; TO CLEAR NUMBER OF SECTORS HANDLED 
46 004463 100651 000021 MOV R1,U.NSEC(RS) ; ZERO SECTORS HANDLED 
47 004465 104651 000061 MOV U.RWER(RS) RI k GET READ/WRITE ERROR 
48 004467 106201 000003 CMP #3,R1 ; SEE. IF REVE CTORED BLOCK 
49 004471 014533 BEQ 2$ : sel 
50 004472 106201 000002 CMP #2,R1 : $ E if PAILORE IN DRIVE 
51 004474 054514 BNE BS ; T, BRANCH 
52 004475 SOFTER 20 ; REPO T 
004475 104200 002061 001107 MOV #ER20,HRO.04 
004500 104202 147664 MOV #20 ERSOF T+4000. .R2 
004502 104020 001105 40V R2,HRO.02 
004504 104200 004504 001104 MOV #..HRQ.01 
004507 104¢ 060013 001103 MCV #ERRMES ,HRO.ROQ 
53 004512 02424 CALL GOINIT 
54 004513 005117 BR 12$ : BRANCH 
55 004514 106201 000004 8$: CMP #4,R1 > SEE IF HEADER COMPARE FAILURE 
56 004516 09465¢ BNE 6$ 3 IF NOT H 
57 004517 104653 000046 MOV U.PARM(RS),R3.: GET UNIT PARAMETERS 
SR 004521 104141 MOV (R4),R1 : GET SUBUNIT PARAMETERS 
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ERRORC 


ERRORC 
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UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 103-1 
weeeeeeeee OVERLAY MODULE SECCHK = CHECK THAT BUFFER FULL AND 


$.PARM,0 
serv . 
#REVEC RS 
#RBNBN ,R3 
#REVCT,RO 
19$ 

19 


SEE IF ON DIAGNOSTIC CYLINDERS 
IF SO, BRANCH 

SEE IF REVECTOR ENABLED 

IF SO, BRANCH AROUND 

SEE IF READING RCT OR RBN 
IF SO, REPORT ERROR 
REVECTOR NEXT MODULE 

= REPORT HEADER COMPARE ERROR 


9,HROQ.04 
1” ita 


<R3,#RBNTXT,U.RBN(RS)> 


<U.RBN+1(R5) ,RW.ANG(RO)> 


MOV 
NO EP EE SA 


MOV 
RAGES DAEM El AER 


0 


#RBNBN,R3 
R3.U_PARMCRS) 
R1.U.NSEC(RS) 
#SETUP,RO 


18 
#REVCT RO 
#-1,SCR2 


#52,R1 
o$ 


5 


12$ 
#150,R1 
228 


CLR ERRPOS 
: IF HANDLING A RBN, CLEAR IT 
ONL Y ONE SECTOR HANDLED 


SETUP NEXT MODULE 
BRANCH + REPORT, DELAYED CALL 
MODULE 


REVECTOR N 


SECTOR MARKED BA 

EXIT, IMMIDATE CAL 

SEE IF SERDES OVER 

IF NOT, CH 

; SERDES OVERRUN 
MOV 


MOV 
; REST OF ERROR MESSAGE 
SEE IF DATA S$ 
IF NOT, BRANC 


S.LETR(R4) ,HROQ.05 
RW.LOW(RO) ,HRO.06 
RW.HI (RO) ,HRO.O 


#RBNTXT,HRO.09 
U.RBN(85) ,HRO. 10 


U.RBN+1(R5) ,HRO.11 
te 


RW. CMD (RO) ,HRQ. 13 
U.CGRP(RS) .HRO. 14 
U.CCYL(R5) -HRO.15 
U.CCYL#1(R5) ,HRO.16 


U.LGRPC(RS) ,HRQ.17 
U.LCYL(RS) ,HRO.18 
U.LCYL+1(R5) ,HROQ.19 


: CLEAR THE POSITION 


34,HRO.04 
$6 t+4000. .R2 


| 1 
2 SEQ Say 
UDATS DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 103-2 


teeeeerene OVERLAY MODULE SECCHK = CHECK THAT BUFFER FULL AND | 


| 
90 004676 SOFTER %6 : DATA SYNC TIMEOUT | 
004676 104200 002615 001107 MOV WER36,HRO.04 | 
004701 104202 147704 MOV #36! ERSOFT+4000. ,R2 
004703 104020 001105 MOV —-R2,, KRO.02 | 
004705 104200 004705 001104 MOV #. .HRQ.01 
004710 104200 060013 001103 MOV #ERRMES ,HRO.RO 
91 004713 005117 BR 12$ : REST OF ERROR MESSAGE 
92 004714 106201 000153 22$: CMP #153,R1 : SEE IF POSITIONER ERROR 
93 004716 054760 BNE 23$ ; IF NOT, BRANCH 
004717 REPSFT ,,SEEK ; REPORT SEEK ERROR 
004717 114000 001105 CLR HRQ.02 
004721 114000 001106 CLR HRO.03 
004723 104200 000001 001107 MOV #1,HRO.04 
004726 100467 MOV RO,=(SP) 
004727 1046§7 000063 MOV U.UNUM(R5) ,RO 
004731 105657 000050 ADD U. SUBU(R5) .RO 
004733 104070 001104 MOV HRQ. 
004735 104207 060007 MOV Sreecet. RO 
004737 021053 CALL _ HOSTRQ 
004740 104267 MOV (SP)+,RO 
95 004741 SOFTER 45 : REPORT POSITIONER ERROR 
004741 104200 003165 001107 #ERGS,HRO.04 
004744 104202 147715 mov #451 ERSOFT+4000. .R2 
004746 104020 001105 MOV R2,HRQ.02 
004750 104200 004750 001104 MOV *HRQ_01 | 
004753 104200 060013 001103 MOV #ERRMES,HRO.RO 
96 004756 024235 CALL  GORCLB : RECALIBRATION REQUIRED FOR RECOVERY 
97 004757 005117 BR 1 : REST OF ERROR MESSAGE 
98 004760 106201 000213 23$: CMP #213,R1 : SEE IF READ/URITE READY FAILURE 
99 004762 055001 BNE 24$ : IF NOT, BRANCH 
100 004763 SOFTER 37 s READ/URITE READY ean 
004763 104200 002637 001107 MOV ER37,HRO.04 
004766 104202 147705 MOV #SyTERSOFT +2000. .R2 
004770 104020 001105 MOV R2,HRQ.02 
004772 104200 004772 001104 MOV #..HRO.01 
004775 104200 060013 001103 MOV #ERRMES ,HRO.RO 
101 005000 005117 BR 12$ 3 REST OF ERROR MESSAGE | 
102 005001 106201 000253 24$: CMP #253,R1 : SEE IF DATA DRIVE OR STATE CLOCK TIMEOUT 
103 005003 055023 BNE 21$ : IF NOT, BRANCH 
1 5004 SOFTER 35 : DRIVE CLOCK TIMEOUT 
5004 104200 002566 001107 MOV ERS 5,HRO.04 
005007 104202 147703 MOV # 35 1ERSOFT+4000. .R2 
005011 104020 001105 MOV R2,HRO.02 
005013 104200 005013 001104 MOV #..HROQ.01 
005016 104200 060013 001103 #ERRMES ,HRO.RO | 
105 005021 024243 CALL  GOINIT : INIT THE DRIVE mo RECOVER 
106 005022 005117 BR 1 : REST OF ERROR MESSAGE 
107 005023 106201 000313 21$: CMP #313,R1 : SEE IF RECIEVER READY TIMEOUT 
108 005025 055045 BNE 5$ : 1 ANCH | 
109 005026 SOFTER 38 : RECIEVER” READY FAILURE | 
005026 104200 002663 001107 MOV #ERSB-HRO. 04 
005031 104202 147706 MOV r 38: ERSOFT+4000. .R2 
005033 104020 001105 MOV —«wR2..HRO.02 | 
005035 104200 005035 001104 MOV #..HRO.O1 | 
005040 104200 060013 001103 MOV PERRMES. HRO.ROQ 
110 005043 02424 CALL  GOINIT : INIT THE DRIVE TO RECOVER 
111 005044 005117 BR 12$ + REST OF ERROR MESSAGE 








UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 103-3 
seeeeeeeee OVERLAY MODULE SECCHK = CHECK THAT BUFFER FULL AND 


SEQ 416 
| 


112 005045 106201 000413 25$: CMP #413,R1 y RTDS FAILURE DURING READ? 
113 005047 055066 BNE 6$ : IF NOT, BRANCH 
114 005050 _ SOFTER 64 : 
005050 1404200 004150 001107 MOV #ER64 ,HRO.04 
005053 104202 147740 MOV #64 'ERSOF T+4000. .R2 
005055 104020 001105 MOV R2,HRO.02 
C05057 104200 005057 001104 MOV #. .HRO.O1 
005062 104200 060013 001103 MOV #ERRMES ,HRO.RO 
115 005065 005117 BR 12$ : BRANCH 
116 005066 26S: HARDER 69,<#SER36,R1> ; UNKNOWN ERROR NUMBER 
005066 104200 004223 001107 MOV #ER69, HRO.04 
005071 104200 004245 001110 MOV #SER36,HRO.05 
005074 104010 001111 MOV R1, HRO.06 
005076 104202 107745 MOV § #69!ERHARD*+4000. .R2 
005100 104020 001105 MOV R2,HRQ.02 
005102 104200 005102 001104 MOV #. .HROQ.01 
005105 104200 060014 001103 MOV #ERRMC ,HRO.RO 
117 005110 ENDERR 
005110 104200 00051 001112 MOV #SER22,HRO.07 
005113 104200 000010 002230 MOV #741, ERRPOS : SET THE POSITION 
118 005116 005210 BR 14$ : REST OF ERROR MESSAGE 
119 005117 12$: CERROR 5,ASER19 
005117 104200 000470 001110 MOV #SER19,HRO.05S 
120 005722 ERRORC <U.RWTO(RS),S.LETR(R4) ,RW.LOW(RO) ,RW.HI(RO)> 
005ic2 104650 000012 001111 MOV U.RWTOC(RS) ,HRO.06 
005125 104640 000005 001112 MOV S$. LETR(R4) .HRO.07 
005130 104670 000002 001113 MOV RW. LOW(RO) .HRO.U8 
005133 104670 000003 001114 MOV RW. HI (RO) ,HRQ.09 
121 005136 ERRORC <U.PARM(RS) ,ARBNTXT,U.RBN(RS)> 
005136 104650 000046 001115 MOV U.PARM(RS) ,HRQ. 10 
005141 104200 005475 001116 MOV #RBNTXT, RO. 
005144 104650 000055 001117 MOV U.RBNR5) ,HRO. 12 
122 005147 ERRORC <U.RBN+1(R5),RW.ANG(RO)> 
005147 104650 000056 001120 MOV U.RBN+1(R5S),HRO.13 
005152 104670 000006 001127 MOV RW. ANG(RO) ,HRO. 14 
123 005155 ERRORC <RW.CMD(RO),U.CGRP(RS) ,U.CCYL(RS) ,U.CCYL#1(R5)> 
005155 104670 001122 MOV RW. CMD (RO) ,HRO.15 
005160 104650 000066 001123 MOV U.CGRP(R5) .HRO.16 
005163 104650 000064 001124 MOV U.CCYL(R5) .HRO.17 
005166 104650 000065 001125 MOV U.CCYL#1(R5) ,HRO.18 
124 005171 ERRORC <U.LGRP(RS),U.LCYL(RS) .U.LCYL+1(R5)> 
005171 104650 000071 001126 MOV U.LGRP(RS) ,HRO.19 
005174 104650 000067 001127 MOV U.LCYL(R5) .HROQ.20 
5177 104650 000070 001130 MOV U.LCYL#1(R5) ,HRO.21 
125 005202 ENDERR 
005202 104200 000051 001131 MOV #SER22,HRO.22 
005205 104200 000027 002230 MOV #22+1,ERRPOS =; SET THE POSITION 
126 005210 024227 14$: CALL _—‘ GOSEEK : SEEK REQUIRED FOR RECOVERY 
127 005211 104207 000001 MOV 1,R0 : SET UP TO READ ONE SECTOR 
128 005213 100657 000022 MOV RO.U.MSEC(RS) : SAVE 
129 005215 005235 BR : EXIT 
130 005216 104641 000010 3S: MOV S.MEGR(R4),R1  : GET NUMBER OF SECTORS READ 
131 005220 117401 DEC : READJUST TO ACTUAL SECTORS TESTED 
132 005221 100641 000010 MOV R1,S.MEGR(R4) : SAVE 
133 005223 104201 100000 MOV #EO0C,R1 : MOVE END-OF=CHAIN TO R1 
134 005225 100171 MOV 1, (RO) 3 FLAG THIS BUFFER AS END-OF=CHAIN (FOR LSTMOD) 
135 005226 104207 000021 MOV #LSTMOD RO : LSTMOD NEXT MODULE 
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SEQ 417 


136 005230 005233 BR 19$ : EXIT, NO ERRORS, IMMIDATE CALL 
137 005231 104207 000014 4$: MOV #CHKEDC ,RO : CHKEDC IS NEXT MODULE 
138 005233 114002 19$: CLR R2 ; NO ERRORS 

139 005234 114001 17$: CLR R1 3 IMMIDATE CALL 

140 005235 003231 18$: BR JMPRET ; RETURN TO 

141 -DSABL LS6 

142 IF LE ,BUFARA~. 

143 BUFARA = +1 

144 ENDC 

145 IF LE ,MAXADR-. 

146 MAXADR = +1 

147 ~ENDC 
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SEQ 418 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 104 
eeeeeeenree OVERLAY MODULE CHKEDC - CHECK THAT ECC AND EDC ARE 


| 1 LSBTTL teenenneee OVERLAY MODULE CHKEDC = CHECK THAT ECC AND EDC ARE OK 
2 005236 DMOVLY ED,AREAO 
005236 000105 WREDC sOUTPUT EDC FOR THIS OVERLAY 
S ITTITITITITTIIIITIIILIIL TIT TIT ITLitiititili iit titi iti titi iti ii tii t tid 
4 LARAAARAAAARAEAAERERREEERERERERREEREERARERERERRRREEEERERAREEERREREEEEEEREEEEEEE 
5 J RAAAAAAAAAAEREKAEEREEEEEEERHEEERAARRARERRRRRRRRRERAEREERAEEAEEAEARERHERERRERRE 
6 2S pe gmennbie anette unica euphemism eueenenT ecEninear ne pent MaRIERL EMR 
7 : 
. : 
10 000014 CHKEDC = SECCHK+1 
12 : CHECK THAT THERE IS NO ECC ERROR IN THIS SQUEFER. IF NOT, CHECK THE | 
13 : EDC, IF THAT IS INCORRECT YOU HAVE A MAJOR ERROR.. | 
14 ; IF ECC AND EDC IS OK, GO TO DATA COMPARE (IF REQUESTED) | 
16 .ENABL LSB 
24 004422 104307 002232 MOV CHAINS RO : RO POINTS AT READ CHAIN LINK BEING TESTED 
25 004424 104177 MOV (RO) Ri t R1 IS BUFFER STATUS 
26 004425 102201 010000 BIT #ECCFLG,RI1 > SEE IF ECC ERROR IN BUFFER | 
27 004427 014556 BEQ 1 : IF NOT, CHECK EDC | 
28 004430 104653 000046 MOV U.PARM(RS),R3 * GET UNIT PARAMETERS 
29 004432 102203 000400 BIT MREVEC,R3 > SEE IF FINDING A REVECTOR 
30 004434 054454 BNE 2$ : IF SO, B 
31 004435 021725 CALL  BLKCHK : SEE IF THIS IS A KNOWN BAD BLOCK 
32 004436 BCS 5$ : IF NOT, BRANCH 
004436 044440 BCC +2 
004437 004450 BR S$ 
33 004440 104641 000010 MOV S.MEGR(R4),R1  ; GET NUMBER OF SECTORS READ 
34 004442 117401 DEC Ri + READJUST TO ACTUAL SECTORS HANDLED 
35 004443 100641 000010 MOV R1.S.MEGR(RG) : SAVE 
36 004445 104207 000021 MOV #LSTMOD ,RO + LAST MODULE IS NEXT 
37 004447 005005 BR 19$ : EXIT, NO ERRORS, IMMIDATE CALL | 
004450 104141 5$: MOV (R4),R1 : GET UNIT PARAMETER S 
39 004451 ASSUME §$.PARM,O : ASSUME THAT S.PARM IS ZERO 
40 004451 1 02201 010000 BIT #ECCCHK,R1 : SEE IF ECC CORRECTION 1S REQUESTED 
41 004453 014457 BEQ i IF NOT. BRANCH | 
42 004454 104207 000015 2s: MOV #CKKECC,RO ; CHKECC hEXt MODULE 
43 004456 005005 BR 19$ NO ERRORS, IMMIDATE CALL 
44 006457 6$: SOFTER 7 <#SER21,U.RRTYIRS) ULELEV(RS)> 
004457 104200 15 001107 MOV #ER7,HRO 
004462 104200 000661 001110 MOV #SER21,HRO.0 
004465 104650 010 001111 MOV U.RRTY(RS) -HRO.06 | 
004470 104650 000027 001112 MOV U.ELEV(R5) .HRQ.07 
004473 104202 147647 MOV #7 ‘ERSOF T+4000. ,R2 
004475 104020 001105 MOV R2,HROQ.02 
004477 104200 004477 001104 MOV #. .HRO.01 
004502 104200 060013 001103 MOV #ERRMES ,HR?.RO | 
45 004505 ERRORC <S.LETR(R4),.RW.LOW(RO) ,RW.HI(RO)> 
004505 104640 000005 001113 MOV S.LETR(R4), HRQ. 08 
004510 104670 000002 001114 MOV RW. LOW(RO) .HRO.09 
004513 104670 003 001115 MOV RW. HI (RO) ,HRO. 10 | 
46 004516 ERRORC <U.PARM(RS) ,#RBNTXT> 
004516 104650 000046 001116 MOV U.PARM(RS) ,HRQ.11 | 
004521 104200 005475 001117 MOV @RBNTXT ,HRO. 12 
47 004524 ERRORC <U.RBN(RS),U.RBN+1 (RS) ,RW.ANG(RO)> 
004524 104650 000055 001120 MOV U.RBN(RS) ,HRO.13 
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104650 
104670 


104670 
40 104650 
543 104650 
104650 


114000 
104651 


0046 
79 004675 





000056 
000006 


000004 
000066 
000064 
000065 
002230 
000046 
000001 


000046 
000400 


000010 
000027 
000031 


000001 
001106 
001107 


060007 
002220 
000400 
000022 
000002 


001121 
001122 


001123 
001124 
001125 


001126 


001105 


11$: 


23$: 


22$: 


1$: 


12$: 
14$: 


SEQ 419 


MOV —sU. RBN#1(R5) ,HRO. 14 

MOV —- RW. ANG(RO) , HRO. 15 
ERRORC <RW.CMD(RO),U.CGRP(RS) ,U.CCYL(RS)> 

MOV —s RW. CMD(RO) ,HRO. 16 

MOV -—«U.CGRP(R5) -HRO.17 

MOV —sU. CCYL(R5) RO. 18 
ERRORC U.CCYL+1(R5) 

MOV —sCU. CCYL#1(R5) ,HRO.19 
ENDERR 0 | 

CLR — ERRPOS ; CLEAR THE POSITION 
MOV UAPARM(RS) RT; GET _UNIT PARAMETERS 
MOV —-RU-BUF(RO).RO RO NOW POINTS AT BUFFER 
CALL  CMPEDC ; COMPUTE THE EDC 
MOY -U-PARM(RS) RI; GET UNIT PARAMETERS 
CMP = BF.EDC(RO)-R2 ; SEE IF MATCH 
BNE 14$ > IF NOT, BRANCH | 
MOV —«URRTY(RS),RO : GET RE | 
BNE 238 : IE RETRIES WERE USED, REPORT SOFT ERROR 
MOV -U.ELEV(RS),RO =: GET ERROR LEVE | 
CMP —«USMLEV(RS)<RO = SEE IF ANY ERROR LEVELS WERE USED 
oe |. as > IF NOT, BRANCH | 
REPSFT SOFT ; REPORT’ SOFT ERROR | 

MOV = #1, HRO.02 

CLR —-HRO.03 

CLR —sHRO.04 

MOV RO,-(SP) 

MOV —sU. UNUM(R5) , RO 

ADD —sU, SUBU(R5) -RO 

MOV —— RO, HRO.01 

MOV #TasOrT, RO 

CALL ‘+ HOSTR 

MOV (SP)+,RO 

CLR —s SCR2 ; FLAG AS GOOD BLOCK 
BIT  #REVEC,R1 i SEE IF REVECTOR IN PROGRESS 
BEQ > IF NOT, BRANCH 
MOV AREVCT RO : RE VECTOR NEXT MODULE 
BIT — #DATCMP,R1 ; SEE IF DATA COMPARE REQUESTED 
BNE 12$ i TE $0, BRANCH 
MOV = #LSTMOD,.RO : LSTHOD NEXT MODULE | 
BR 19$ : EXIT, NO ERRORS: pIMMIDATE CALL | 
MOV —s- #CMPDAT RO ; DATA COMPARE NEXT MODULE | 
BR 19$ ; EXIT, NO ERRORS, IMMIDATE CALL +] 
MOV _— CHAINS, RO | 
MoV Re ; SAVE CALCULATED EDC 


ote 
oR3 
SOFTER Ba: eeseRe] -U.RRTY (RS) ,U.ELEV(RS)> 


MOV #ER24,HRO.04 

MOV #SER21 ,HRO.05 

MOV U.RRTY(RS) ,HRO.06 | 
MOV U.ELEV(RS) .HRO.07 

MOV a SOF T+4000., 

MOV R e 02 

MOV #..HRO.01 | 
MOV #ERRMES ,HRO.RO 


ERRORC <S.LETR(R4) ,RW.LOW(RO) .RW.HI(RO)> 










SEQ 420 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 104-2 | 
teeweeeees OVERLAY MODULE CHKEDC = CHECK THAT ECC AND EDC ARE 
004675 104640 000005 001113 MOV S.LETR(R4) ,HRO.08 
004700 104670 000002 001114 MOV RW. LOW(RO) ,HRO.09 
004703 104670 000003 001115 MOV RW.HI (RO) ,HRO. 10 
80 004706 ERRORC <U.PARM(RS) ,ARBNTXT> 
004706 104650 000046 001116 MOV U.PARM(RS) ,HRQ.11 
004711 104200 005475 001117 MOV #RBNTXT HR. 12 
81 004714 ERRORC <U.RBN(RS) ,U.RBN+1(R5) ,RW.ANG(RO)> 
004714 104650 000055 001120 MOV U.RBN(RS) ,HRO.13 
004717 104650 000056 001127 MOV U.RBN+1(R5) ,HRO. 14 | 
004722 104670 000005 001122 MOV RW.ANG(RO) ,HRO. 15 
82 004725 ERRORC <RW.CMD(RO) ,U.CGRP(RS) ,U.CCYL(RS)> 
004725 104670 000004 001123 MOV RW.CMD(RO) ,HRO.16 
004730 104650 000066 001124 MOV U.CGRP(R5) .HRO.17 
004733 104650 000064 001125 MOV U.CCYL(R5) HRO. 18 
83 004736 ERRORC <U.CCYL#+1(R5),SCR2,BF .EDC(R3)> | 
004736 104650 000065 001126 MOV U.CCYL+1(R5) ,HRO.19 | 
004741 104300 002220 001127 MOV SCR2,HRQ. 
004744 104630 000400 001130 MOV BF .EDC(R3) ,HRO.21 
84 004747 ENDERR 0 
004747 114 002230 CLR ERRPOS : CLEAR THE positiow 
85 004751 104200 177777 002220 10$: Mov #-1,SCR2 ; FLAG AS BLOCK BAD 
86 004754 102201 000400 BIT #REVEC RI 3 SEE IF REVECTOR IN PROGRESS 
87 004756 054763 BNE 13$ 3 IF SO, RETRY | 
88 004757 104147 15$: MOV (R4) RO ; GET SUBUNIT PARAMETERS 
89 004760 ASSUME §$.PARM,0 ; ASSUME THAT S.PARM IS ZERO 
90 004760 102207 001000 BIT #RTRIES,RO ; SEE IF RETRIES ARE ENABLED | 
91 004762 014766 BEQ 16$ ; IF NOT, BRANCH | 
92 004763 104207 000016 13$: MOV #ERCOV.RO z ERROR RECOVERY IS NEXT MODULE | 
93 004765 005006 BR 20$ : EXIT, simp ATE CALL | 
94 004766 103200 040000 001105 16$: BIC #C2HARD, RQ. 02 ; MAKE A HARD ERROR | 
95 004771 104200 060014 001103 MOV #ERRMC ,H ; COUNT ERROR | 
96 004774 102201 000002 BIT ADATCHELRT ; SEE IF DATA COMPARE ENABLED 
97 004776 015002 BEQ 17$ ; IF NOT, BRANCH 
98 004777 104207 000020 MOV #CMPDAT,RO ; COMPARE IS NEXT MODULE 
99 005001 005006 eR 208 ; EXIT, IMMIDATE CALL | 
100 005002 104207 000021 17$: MOV #LSTMOD RO 3 LSTMOD IS NEXT MODULE 
101 005004 005006 BR 20$ : EXIT, IMMIDATE CALL | 
102 005005 114002 19$: CLR 3 NO ERRORS 
103 005006 114001 20$: CLR R1 3 IMMIDATE CALL | 
104 005007 003231 BR JMPRET ; RETURN TO 
105 -DSABL LSB 
107 BUFARA = +4 | 
108 ~ENDC 
109 
110 IF LE .MAXADR=. 
111 MAXADR = +4 
112 ENDC 
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SEQ 421 


1 .SBTTL ‘teeeweeee OVERLAY MODULE CHKECC = CORRECT BUFFER READ USING ECC 
2 005010 DMOVLY CK,AREAO 
005010 000105 .WREDC sOUTPUT EDC FOR THIS OVERLAY 
5 ; eeeneneneeaenegeneeeeneneneneteneenentenneeneegeeeeneeeeeeeeeeeeteeneeeeeees 
4 J ARAAARAAAAAAAAAAAAAAEEEAERAEERAEAEREARRRARRERRERRAERAARERREARREREEREEEERERAREE 
5 J RAAAAAAARAAAAAAAERAEAAERERERAEREAERARRARERAEERRARERERAERERAEEREREERERREEREREEEE 
6 FARRAR AEARAARAAERAAEEEEEAERAAERRAERARERARRERERERAERREREREEREREEREEEREEREEEEE 
7 ; 
: : 
10 000015 CHKECC = CHKEDC+1 : DATA CHECK OVERLAY 
i : SEE IF ECC ERROR WAS DECTECTED 
21 -ENABL LSB 
22 004422 104307 002232 MOV CHAINS ,RO ; RO POINTS TO CHAIN 
23 004424 PUSH RO : SAVE POINTER TO LINK 
004424 100467 MOV RO,-(SP) 
24 004425 104200 177777 002220 MOV #-1,SCR2 : ASSUME BUFFER BAD 
25 004430 0015 XFC ECC ; APPLY ECC CORRECTION 
26 004431 115001 TST R1 + SEE IF CORRECTION WORKED 
27 004432 014452 BEQ 1$ : IF $0, BRANCH 
28 004433 POP RO : RESTORE POINTER TO LINK 
004433 104267 MOV (SP)+,RO 
29 004434 SOFTER 8 
004434 104200 000631 001107 MOV #ERB,HRO.04 
004437 104202 147650 MOV #8! ERSOFT+4000. .R2 
004441 104020 001105 MOV R2,HRQ.02 
004443 104200 004443 001104 MOV #. .HRQ.01 
004446 104200 060013 001103 MOV #ERRMES ,HRO.RO 
30 004451 004474 BR 8$ : BRANCH 
31 004452 106657 000032 1$: CMP U.ECCT(RS),RO : SEE IF CORRECTIONS = TO OR EXCEED THRESHOLD 
32 004454 014456 BEQ 6$ : IF =, BRANCH 
33 004455 034554 BPL 2$ : If NOT, BRANCH 
34 004456 6$: POP RO ; RESTORE POINTER TO LINK 
004456 104267 MOV (SP)+,RO 
35 004457 SOFTER 9 
004457 104200 000745 001107 MOV #ERD,HRO.04 
004462 104202 147651 MOV #9! ERSOFT+4000. .R2 
004464 104020 001105 MOV R2,HRO.02 
004466 104200 004466 001104 MOV #..HRO.01 
004471 104200 060013 001103 MOV #ERRMES ,HRO.RO 
36 004474 8$: ERRORC <#SER21,U.RRTY(RS) .U.ELEV(RS)> 
004474 104200 000661 001110 MOV #SER21, HRQ. 05 
004477 104650 000010 001111 MOV U.RRTY(RS) -HRO.06 
004502 104650 000027 001112 MOV U.ELEV(R5) -HRO.07 
37 004505 ERRORC <S.LETR(R4) ,RW.LOW(RO) ,RW.HI(RO)> 
004505 104640 000005 001113 MOV S.LETR(R4) ,HRO.08 
004510 104670 000002 001114 MOV RW. LOW(RO) .HRO.09 
004513 104670 000003 001115 MOV Rw. HI (RO) ,HRQ. 10 
38 004516 ERRORC <U.PARM(RS) ,@RBNTXT> 
004516 104650 000046 001116 MOV U_PARACRS) « ,HRQ.11 
004521 104200 005475 001117 MOV #RBNTXT ,HROQ. 12 
39 one age ERRORC <U.RBN(RS),U.RBN*1(R5) RW. ANG(RO)> 
004524 104650 000055 001120 MOV spas HRO.13 
004527 104650 000056 001121 MOV UeRBNT ERS) ,HRO. 14 
004532 104670 000006 001122 MOV RW.ANG(RO) ,HRO.15 





1 | 
SEQ 422 
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40 004535 ERRORC <RW.CMD(RO),U.CGRP(RS) ,.U.CCYL(RS)> 
004535 104670 000004 001123 MOV RW. CAD(RO),HRO. 1 
004540 104650 000066 001124 MOV U. CGRP(R5) .HRO. 1 
004543 104650 000064 001125 MOV U.CCYL(R5) ,HRO.18 
41 004546 ERRORC U.CCYL+1(RS) 
004546 104650 000065 001126 MOV U.CCYL+1(R5S) ,HRO.19 
42 004551 ENDERR 0 | 
004551 114000 002230 CLR ERRPOS : CLEAR THE POSITION 
43 006553 004772 BR 11$ 3 BRANCH 
44 004554 2$: POP R3 : RESTORE POINTER TO BUFFER | 
004554 104263 MOV (SP)+,R3 | 
45 004555 104637 000001 MOV RW.BUF(R3),RO =; RO POINTS TO BUFFER 
46 004557 021146 CALL + COMPUTE EDC VALUE 
47 004560 106672 000400 CMP BF.EDC(RO).R2 : SEE IF EDC VALUE MATCHES 
48 004562 054666 BNE 3$ : IF NOT, 
004563 104200 000001 001106 MOV #1,HRQ.03 : REPORT ECC CORRECTION 
004566 104657 000010 MOV U.RRTY(R5),RO  : GET TIMEOUT 
51 004570 054600 BNE : IF RETRIES WERE USED, REPORT SOFT ERROR 
52 004571 104657 000027 MOV U.ELEV(RS) ,RO : GET ERROR LEVEL 
53 004573 114000 001105 CLR : : ASSUME NO SOFT ERROR 
54 004575 106657 000031 CMP U.MLEV(RS),RO : SEE IF ANY ERROR LEVELS WERE USED 
55 004577 014602 BEQ 22$ : IF NOT, BRANCH 
56 004600 115400 001105 23$: INC HROQ.02 t REPORT SOFT ERROR 
57 004602 22$: PUSH RO + SAVE RO 
004602 100467 MOV RO,-(SP) 
58 004603 104657 000063 MOV U.UNUM(RS),RO  ; GET STARTING SUBUNIT NUMBER 
59 004605 105657 000050 ADD U.SUBU(RS).RO : ADD OFFSET 
60 004607 104070 001104 MOV RO,HRQ. : MOVE TO OUTPUT BUFFER 
61 004611 104207 060007 #T4SOFT,RO + REPORT REQUEST 
62 004613 021053 CALL HOST : SEND TO HOST 
63 004614 POP RO + RESTORE RO 
004614 104267 MOV (SP)+,RO | 
64 004615 114000 002220 CLR CR2 : BUFFER GOOD 
65 004617 MSSG 3 <S.LETR(R4) RW. LBUCRED Rw. HICR3) «Ru. ANG(R3) ,RW.CMD(R3) .U.CGRP(RS) .U.CCYL(R. 
004617 104200 005621 001105 #MS3,HRQ. ! 
004622 104640 000005 001106 mov S. S TEIRCRED. HRO.03 
004625 104630 900002 001107 MOV RW. LOW(R3) .HRO.04 | 
004630 104630 000003 001110 MOV RW. HI (R3) ,HRO.05 
004633 104630 000006 001111 MOV : (R35 WRG. 
004636 104630 000004 001112 MOV Rw. CMD (R3) .HRO.07 | 
004641 104650 000066 001113 MOV U. CGRP(R5) .HRO.08 
004644 104650 000064 001114 MOV U.CCYL(R5) .HRO.09 
004647 104650 000065 003115 MOV U. -CEVL#T (RS) HRQ. 10 | 
004652 100467 RO,-(SP) | 
004653 104650 000063 001104 MOV U.UNUM( RS) HRO! OT 
004656 105650 000050 01104 ADD U. SUBUC(RS) -HRO.01 
004661 104207 060015 MOV SSAG,RO 
004663 02105 CALL HOSTRO | 
104267 MOV (SP)+,RO 
66 004665 005015 : EX 
67 004666 104020 002230 3S: MOV pos AVE THE COMPUTED EDC 
68 004670 SOFTER a OaSER 1,U. aaricasy vu. ELEV(RS)> 
670 MOV 10 
673 MOV #SER21 .HRO.0S 
676 MOV U.RRTY(RS) .HRO. 


06 
MOV U.ELEV(RS) -HRO.07 
MOV PiOTERSOF 144000. ,R2 


j 
i 
| 
t 
j 
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001105 
004719 
060013 
000005 
000002 
000003 
000046 
005475 
000055 
000056 
000006 
000004 
000066 
000065 
002230 
000400 
002230 


001000 
000046 
000400 


040000 
060014 
000016 
000400 
000022 
000002 
000020 
000021 


901104 
001103 
001113 
001114 
001115 
001116 
001117 
001120 
001121 
001122 
001123 
001124 
001125 
001126 
001127 
001130 
001105 
001103 


11$: 


4$: 
5$: 


10$: 


ERRORC 


ERRORC 


ERRORC 


ERRORC 


ERRORC 


ENDERR 


weeeeeewee OVERLAY MODULE CHKECC = CORRECT BUFFER READ USING E 


ae 


~U.PARM(RS) ,ARBNTXT> 


MOV 
re ae 


0 

(R4) ,R3 
$.PARM,0 
GeTALES RS 
U.PARM(RS) ,R3 
Seevec AS 
#C2HARD ,HRQ.02 
#ERRMC ,HRQ.ROQ 
10$ 
#ERCOV,RO 

7$ 

R2 
U.PARM(RS) ,R3 
#REVEC ,R3 
#REVCT,RO 
#DATCMP RS 
#CMPDAT RO 
#LSTMOD ,RO 

R1 

JMPRET 

LSB 

rt peahamad 


a teenie 


ee et; ee ) 


SEQ 423 


MOV R2,HROQ.02 


#.,HRQ.01 
#ERRMES ,HRO.RQ 
S. ee teat -HROQ.98 


MOV RW. LOW(R3) ,HRO.09 
MOV RW. HI (R3) ,HRQ. 10 


#RBENTXT 


roy yn gr Dyes a 
<U.RBN( en, 


oHRO.12 


U.RBN(RS) ,HRO.13 


MOV U.RBN+1(R5) ,HRO. 14 


MOV U. CCYL(RS) ,HRC.18 
<U.CCYL+1(R5) ,ERRPOS ,BF .EDC(RO)> ; REPORT ERROR 
MOV U. aoma er eee HRQ.19 


MOV ERRPOS , Hi 


MOV BF. EDCCRO), >HRQ.21 | 
: CLEAR THE POSITION 


CLR ERRPOS 
GET eet PARAMETERS 
ASSUME THAT S.PARM IS ZERO 
7 IF RETRIES ARE ENABLED 


F SO, 
GET UNIT P. 


ARAME TERS 
; i IF 444 IN PROGRESS 


F $0, BRANCH 
; MAKE SOFT ERROR A HARD ERROR 
; COUNT ERROR 


BRANCH 
ERROR RECOVERY IS NEXT MODULE 
BRANCH 


NO tte 

GET UNIT PARAMETERS 

SEE IF FINDING A REVECTOR 
IF NOT, BR 

REVECTOR NEXT "MODULE 
BRANCH 


iF wht IF DATA eae IS REQUESTED 


F NOT, 
ne COMPARE IS NEXT MODULE 


AN 
GO TO LAST MODULE 
nee CALL TO NEXT MODULE 


RW. ANG(R3) ,HRO. 15 | 


RW. CMD(R3) ,HRQ.16 
MOV U.CGRP(RS) ,HROQ.17 


} 
| 


me oi SEQ 424 


| UDAT DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 106 
| teweeneens OVERLAY MODULE ERCOV = DATA ERROR RETRIES AND LEVEL 


-SBTTL steeeneeee OVERLAY MODULE ERCOV = DATA ERROR RETRIES AND LEVELS 
005040 rte EC ,AREAO 
005040 000105 WREDC sOUTPUT EDC FOR THIS OVERLAY 


s eeetteeeReeeReeeReeReeeeeeReeeteeneteeeeneeneeannteenneeenteeetereneteneees 
5 RAAAAAAAAAAAAAAAAAEAEEAAEERAAAAEEAREREARERERAEARERAARERAAEAREERAEREREREREEREKERS 
S RRAAAAAAAAAAAARAERAERAEAREREEEARAERAARARAERERREREAEERAEEEREEEAREERAEEEEREEEEEEEEEE 
SAAR AAAAAAEAAAEAEAAAEAERAEEEEAAEAAAEEAEAREREREERARRARAEEEAAEEEEEEEERAREREREAREEEEE 





Se Se Se (TGs Ge Ge Se Se Se Se 


NM—OVONAUEWN—“OO0ONOULW Ww 


| 
1 000016 ERCOV = CHKECC+1 
i ERROR RECOVERY AND RETRIES | 
1 -ENABL LSB 
15 004422 024203 CALL ENABLE 3 ENABLE ERROR RECOVERY 
16 004423 104657 000010 MOV U.RRTY(RS),RO ; GET NUMBER OF RETRIES ALLREADY ATTEMPTED 
17 004425 054464 BNE is 3 IF NOT ZERO (FIRST TIME) BR ANCH 
18 004426 104651 000021 MOV U.NSEC(RS),R1 Ger NUMBER OF SECTORS READ | 
19 004430 105651 000024 ADD U.CSEC(RS).R1 = ADD NUMBER OF SECTORS PREVIOUSLY HANDLED | 
20 004432 100651 000074 MOV R1,U.CSEC(R : SAVE 
21 004434 104651 00002: MOV U.NSE i : GET NUMBER OF SECTORS READ 
22 004436 105641 000010 ADD S.MEGR(R4),R1  ; ADD TO MEGABITS WRITTEN 
23 004440 100641 000010 MOV R1,S.MESR(R4) = SAVE 
24 004442 104651 000021 MOV U.NSEC(RS).R1  ; GET NUMBER OF SECTORS READ 
25 004444 114003 CLR R3 : To SETUP VALUES 
26 004445 100653 000021 MOV R3,U.NSEC(RS) =; NO SECTORS READ 
27 004447 115403 INC R3 : MAKE R3 ONE 
28 004450 100653 000022 MOV R3,U.MSEC(RS) : ONLY READ ONE SECTOR 
29 004452 105651 5 ADD U.CBN(RS) ,R1 ¢ ADJUST U.CBN TO SECTOR WITH ERROR 
30 004454 100651 00C053 MOV R1.U. CBN(RS) 3 SAVE 
31 004456 644464 BCC 1$ 3 IF NO CARRY, BRANCH 
32 004457 104651 000054 MOV U.CBN¢1(R5),R1 =; GET CURRENT BN | 
33 004461 115401 INC R1 3 PROPOGATE CARRY 
34 004462 100651 000054 MOV R1,U.CBN¢1(R5) : 
35 004464 106657 000030 1$: CMP U.RTRY(RS).RO ; COMPARE MAXIMUM COUNT WITH RETRIES ATTEMPTED | 
3 004466 014502 BEQ NLEV 3 IF RETRIES EXHAUSTED, BRANCH 
37 004467 115407 INC RO : INCREMENT RETRY COUNT 
38 004470 109457 10 MOV RO,U.RRTY(RS) =; SAVE TIMEOUT 
39 004472 104207 177777 MOV #-1,R 3 START READ RETRIES AT ZERO 
40 004474 100657 00u212 MOV RO, U.RWTO(RS) +: SAVE | 
41 004476 104207 ? MOV #BUILDP,RO 3 BUILDP IS NEXT MODULE 
42 004500 104051 MOV R5,R1 3 DELAYED CALL TO READ 
43 004501 004513 BR EREXT 3 BRANCH 
44 004502 104207 000017 NLEV: MOV SNEWLEV,RO 3 NEW LEVEL OF ERROR RECOVERY WILL BE TRIED 
45 004504 104653 ? MO U.RCOV(RS).R3 =: GET ERROR RECOVERY PARAMETERS 
46 904506 101203 010000 B:S #NXTLEV,R 3 GO TO NEXT LEVEL 
47 004510 100653 7? MOV R3,U.RCOV(RS) =: SAV 
48 004512 114001 CLR R1 : IMMIDATE CALL TO NEXT MODULE 
49 004513 114002 EREXT: (CLR a 3 NO ERRORS | 
50 004514 003231 R : RETURN TO 51 | 
52 IF if 8 SUF ARAS. | 
53 BUFARA = rs 
54 -ENDC 


55 cIF LE .MAXADR-. | 
5 +4 





| 
| SEQ 425 
_ UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 106-1 

| eeeeeeenee OVERLAY MODULE ERCOV - DATA ERROR RETRIES AND LEVEL 


| 57 -ENDC 


} 


Ic ES Ee Re AEs EES EEE SS Ee Ee RE RR EES SEN PI re Oe 
| n 1 | 


SEQ 426 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 107 
eeeeeeeere OVERLAY MODULE NEWLEV = SEND DRIVE ERROR LEVEL | 
1 «SBTTL *eeeeeeee OVERLAY MODULE NEWLEV = SEND DRIVE ERROR LEVEL 
2 004515 DMOVLY NL.AREAO 
004515 000105 .WREDC sOUTPUT EDC FOR THIS OVERLAY ! 
3 FRRAAARARAAERERARAEREEEEEERAAEERAEERERERAEERERERREEREREREREEEREEEEEEREREERREEEEEE j 
4 FRRAAAAAAAAAAEAEAAAAEEEEERERERAEERERREEEERERREERREERRERAERREREREREEREREREEEEEEEEEE ' 
5 J EAAAAAAAAAAARAEREREEEEEEEEEEREREEERARRERRERERERRERERREEEEEEEEEEEEREREEEEREREEE 
& fF EAAAAAEAARAEAAAEEAEREREREEERRERREREAREEERERERRREREREEEEEEREEREEREREREEREEEKEEE | 
4 3 
5 : | 
10 000017 NEWLEV = ERCOV+1 | 
1 : INITIATE A NEW LEVEL OF ERROR RECOVERY | 
21 .ENABL LSB 
22 004422 104653 000047 MOV U.RCOV(RS).R3  ; GET RECOVERY WORD 
23 004424 102203 010000 BIT #NXTLEV,R3 : GO TO NEXT LEVEL? : 
24 004426 054433 BNE 3$ ; IF SO, BRANCH 
25 004427 104657 000027 MOV U.ELEV(RS),.RO : GET CURRENT ERROR RECOVERY LEVEL 
26 004431 115407 INC RO : GO UP ONE LEVEL 
27 004432 004540 BR LEVNZR 
28 004433 104657 000027 3S: MOV U.ELEV(R5S),RO ; GET CURRENT ERROR RECOVERY LEVEL 
29 004435 054540 BNE LEVNZR : IF NON-ZERO, BRANCH | 
30 004436 024212 CALL DSABLE : DISABLE ERROR RECOVERY 
31 004437 HARDER 11,<S.LETR(R4),U.CBN(R5) ,U.CBN+1(R5)> 
004437 104200 001044 001107 MOV #ER11,HRO.04 
004442 104640 000005 001110 MOV S$. LETR(R4) ,HRO.05 
004445 104650 000053 001111 MOV U. CBN(RS) ,HRO.06 
004450 104650 000054 001112 MOV U. CBN+1(R5) ,HRO.07 | 
004453 104202 (07653 MOV #11! ERHARD+4000. ,R2 
004455 104020 001105 MOV R2,HRO.02 
004457 104200 004457 001104 MOV #..HRQ.01 | 
004462 104200 060014 001103 MOV  _#ERRMC.HRO.RO | 
32 004465 ERRORC <U.PARM(RS) ,ARBNTXT,U.RBN(RS) .U.RBN+1(R5) ,U.CGRPC(RS)> | 
004465 104650 000046 001113 MOV U.PARM(RS) ,HRO.08 
004470 104200 005475 001114 MOV TXT, HRQ. 
004473 104650 000055 001115 MOV U.RBN(R5) ,HRO. 10 
004476 104650 000056 001116 MOV U.RBN+1(R5) ,HRO.11 | 
004501 104650 000066 001117 MOV U.CGRP(RS) ,HRO. 12 
33 004504 ERRORC <U.CCYL(RS),U.CCYL41(R5)> 
004504 104650 0 001120 MOV U.CCYL(RS) ,HROQ.13 | 
004507 104650 000065 001121 MOV = -U.CCYL#1(R5) WFQ. 14 | 
- poceis 114000 002230 a 7 CLR ERRPOS CLEAR THE POSITION 
GL SITION | 
35 004514 104653 000046 MOV U.PARM(RS),R3 ; GET UNIT PARAMETERS 
36 006516 104200 177777 002220 MOV #-1,SCR : FLAG AS BAD SECTOR 
37 004521 102203 000400 BIT #REVEC,R3 : SEE IF FINDING A REVECTORED SECTOR | 
38 004523 014527 BEQ 1$ : IF NOT, H 
39 004524 104207 000022 MOV #REVCT,RO : GO TO REVCT ROUTINE NEXT 
40 004526 004600 BR NEWEXT + BRANCH TO EXIT 
41 004527 102203 000002 1$: BIT #DATCMP,R3 : SEE IF DATA COMPARE REQUESTED 
42 006531 014535 BEQ : IF NOT, BRANCH 
43 004532 104207 000020 MOV #CMPDAT,RO : COMPARE DATA NEXT MODULE 
4s 00¢834 404509 000021 25: MOV AESTMOD.RO. FAST MODULE NEXT MODULE 
46 004537 004600 oR NEWEXT > EXIT 

















UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 107-1 
weeeeeeees OVERLAY MODULE NEWLEV - SEND DRIVE ERROR LEVEL 


48 004540 104070 001677 LEVNZR: MOV RO, ERRLEV 
49 004542 104203 001643 MOV wer. ERR,R3 
50 004544 021173 CALL 
51 004545 115002 TST 
52 004546 014553 BEQ 1$ 
53 004547 CERROR 5,ASER4 

004547 104200 004731 001110 
54 004552 004601 BR SNDEX 
55 004553 104657 000047 1$: MOV U.RCOV(RS) ,RO 
56 004555 102207 010000 BIT #NXTLEV,RO 
57 004557 014573 BEQ 2s 
58 004560 103207 010000 BIC #NXTLEV,RO 
59 004562 101207 020000 BIS #LEVUSD,RO 
60 004564 100657 000047 MOV RO,U.RCOV(85) 
61 004566 104657 000027 MOV U.ELEV(RS) ,RO 
62 004570 117407 DEC R 
63 004571 100657 000027 MOV RO,U.ELEV(RS) 
64 004573 104207 000007 2$: MOV #BUILDP,RO 
65 004575 114002 CLR E 

004576 100652 000010 MOV R2,U.RRTY(R5S) 
67 004600 114001 NEWEXT: CLR R1 
68 601 003231 SNDEX: BR JMPRET 
69 IF LE ,BUFARA-. 
70 BUFARA = -+1 
71 -ENDC 
72 ©. IF LE »~MAXADR= e 


73 MAXADR = +1 





; MOVE LEVEL TO SDI COMMAND 
: POINT TO ee od RECOVERY COMMANT 
NTERCHANGE 


SEND SDI C 
SEE IF AN ERROR OCCURRED 
IF NOT, BRANCH 
REPORT ERROR 
MOV #SER4 ,HRO.05 


BRANCH 

GET At ie i PARAMETERS 

DID THIS GO be THE NEXT LEVEL? 
L 

FLAG AS LEVELS USED 

SAVE 

GET ERROR RECOVERY LEVEL 
DECREMENT 


AVE 
BUILDP IS NEXT MODULE CALLED 
ERRORS 


NO 
; START RETRIES AT O 


IMMIDATE CALL TO NEXT MODULE 
RETURN TO R 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 108 
weeeweeeee OVERLAY MODULE CMPDAT = DATA COMPARISON ON READ BUF 


1 .SBTTL ‘*eeeeneeee OVERLAY MODULE CMPDAT = DATA COMPARISON ON READ BUFFER(S) 
2 004602 DMOVLY CD, AREAO 
004602 000105 WREDC ZOUTPUT EDC FOR THIS OVERLAY 

3 [RRARRAAEREAAEREREERAREERAEERARRERARERRRERRRRERERERRRARERRREEEEEREREREREHERES 

4 SAAR AAAAAAAARAAAARAAERARERRAARREAARREEERERERREARERRERAEAERRRAREREEREEEEREEEEEEKEE | 

5 SERAAAAAAARERAERERAERAEAEERERARRERRERAERERAREERERRARRERREAERERREREEEEREEREREEEEE 

6 FERAERAAAAEAAAAEARREREREERERARAERARRARAEREERRAEERRARERREREREERAEEERRERREAREEEERREREEEE | 

7 ; 

§ | 
10 000020 CMPDAT = NEWLEV+1 
12 : CMPDAT COMPARES THE PATTERN WITH THAT READ FROM THE SECTOR | 
21 .ENABL LSB 
22 00442 PUSH  <k4,R5> : SAVE R4,R5 

004422 100464 MOV R4,=(SP) 
004423 100465 MOV R5S.=(SP) 
23 004424 104307 002232 MOV CHAINS RO : RO POINTS TO LINK 
24 004426 104677 000001 MOV RW.BUF(RO).RO : RO POINTS TO BUFFER 
25 004430 104172 MOV (RO), 3 R2 HAS PATTERN NUMBER (IN EACH NIBBLE) | 
26 004431 103202 177760 BIC #LBLONB,R2 t CLEAR UNUSED BIT 
27 004433 054440 BNE 1 : IF NOT PATTERN 16, BRANCH 
004434 104200 000020 002221 MOV #16. .PNUM : REPORT PATTERN 16 
29 004437 004442 BR 2$ : BRANCH | 
004440 104020 002221 1$: MOV R2,PNUM : SAVE PATTERN NUMBER | 
31 004442 104021 2$: MOV R2.R1 : BUILD PATTERN NUMBER WORD IN R1 
32 004443 110702 SWAB ss RO : MOVE PATTERN NUMBER TO HI BYTE 
33 004444 10102 BIS R2,R1 + SET HI BITS 
34 004445 110202 ROL R2 : ROTATE TO HI NIBBLE 
35 004446 110202 ROL R2 
36 004447 110202 ROL R2 | 
37 004450 110202 ROL R2 
38 004451 103202 007777 BIC #HBHINB ,R2 : CLEAR UNUSED BITS 
39 004453 101021 BIS R2,R1 : SET BITS : 
40 004454 110702 SWAB : MOVE TO LO BYTE 
41 004455 101021 BIS R2,R1 : SET BITS 
42 004456 106271 CMP (RO)+,R1 : SEE IF REDUNDANT PATTERN OK 
43 004457 054523 BNE FWR : IF NOT, BRANCH | 
44 004460 104302 00222 MOV PN : RESTORE R2 | 
45 004462 103202 177760 BIC #LB + MAP PATTERN 16, To PATTERN 0 
46 004464 104622 002236 MOV PATPTR(R2).R2  ; POINT TO PAT | 
47 004466 115402 INC R2 : SKIP EDC 
48 004467 104201 000001 MOV #1 RI : R1 HAS OFFSET INTO BUFFER 
50 004471 104024 XOPLPO: MOV 2.RG ; R4 POINTS TO LENGTH OF PATTERN 
51 004472 104243 MOV (R4)+,R3 ; R3 CONTAINS LENGTH OF PATTERN 

52 004473 106203 000001 CMP 1,R3 : SEE | IF PATTERN IS 1 WORD LONG 
53 004475 014510 BEQ EPA i] H 
54 004476 104245 XOPLP1: MOV (R4)+,R5 : Sets WORD OF THE DATA PATTERN 
55 004477 106275 CMP (RO) +.R5 : Ca aeaas Parveen WORD TO SECTOR AREA 
56 004500 054524 BNE ERR : IF NOMATCH, BRANCH 
57 004501 115401 INC R1 + INCREMENT OFFSET 
58 004502 106201 000400 CMP #SCTWRD+1,R1  : SEE IF ENTIRE BUFFER COMPARED 
59 004504 014517 BEQ CSCEXT : IF ALL WORDS COMPARED, BRANCH 
60 004505 117403 DEC R3 : DECREMENT COUNT OF WORDS IN PATTERN 
61 004506 054476 BNE XOPLP1 ; IF DATA PATTERN UNFINISHED, BRANCH 





wy SEQ 429 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 108-1 


eeeteeeene OVERLAY MODULE CMPDAT = DATA COMPARISON ON READ BUF 





62 004507 004471 BR XOPLPO : BRANCH 
63 004510 104145 ONEPAX: MOV (R4) RS * GET 1 WORD OF DATA PATTERN 
64 004511 106275 XOPLP2: CMP (RO)+,R5 + COMPARE PATTERN TO SECTOR READ 
re 004512 054524 BNE CMPERR t IF COMPARE ERROR, c 
66 006513 115401 INC R1 + INCREMENT NUMBER OF WORDS TO COMPARE 
67 004514 106201 000400 CMP PSCTURD*1,R1 : SEE IF ALL WORDS COMPARE 
68 004516 054511 BNE XOPLP2 : IF IN NCOMPLETE, BRANCH 
69 004517 114002 CSCEXT: CLR R2 ; ORS | 
70 004520 POP <R5,R4> : RESTORE R5,R4 
004520 104265 MOV (SP)+,R5 
004521 104264 MOV (SP)+,R4 
71 004522 004716 BR CMXEX : BRANCH 
72 004523 114001 FWRD: CLR Ri : ZERO OFFSET 
73 004524 CMPERR: POP <R5,R4> + RESTORE R5,R4 
004524 104265 MOV (SP)+,R5 
004525 104264 MOV (SP)+.R4 
74 004526 PUSH RO : SAVE POINTER TO BUFFER 
004526 100467 MOV RO,=(SP) 
75 004527 104037 MOV R3,RO : MOVE POINTER TO READ CHAIN TO RO 
76 004530 021725 CALL  BLKCHK i SEE IF THIS 1S A KNOWN BAD BLOCK | 
77 004531 POP RO + RESTORE RO 
004531 104267 MOV (SP)+,RO | 
78 004532 044716 BCC CMXEX : IF KNOWN BAD BLOCK, EXIT | 
79 004533 104303 002232 MOV CHAINS ,R3 : RS POINTS TO LINK 
80 004535 HARDER 12 
004535 104200 001116 001107 Mov #ER12,HROQ.04 
004540 104202 107654 MOV #12! ERHARD+4000. ,R2 
004542 104020 001105 MOV R2-HRQ. 02 
004544 104200 004544 001104 MOV 0.01 
004547 104200 060014 001103 ScRRNC: HRQ.RQ | 
81 004552 CERROR 5,ASER24 : ECC/EDC HAD DETECTED ERROR 
004552 104200 001331 001110 MOV #SER24,HRO.05 
82 004555 115000 002220 TST SCR2 : SEE IF ERROR DETECTED | 
83 004557 054563 BNE 4$ : IF $0, 
84 004560 CERROR 5,#SER25 : ECC/EDC DID NOT DETECT ERROR 
004560 104200 001357 001110 #SER25,HRO.05 
85 004563 4$: ERRORC <S.LETR(R4) ,RW.LOW(R3) ,RW.HI(R3)> 
004563 104640 000005 001111 MOV S. LETR(RG) .HRQ. 06 
004566 104630 000002 001112 MOV RW. LOW(R3) .HRO.07 
004571 104630 000003 001113 MOV RW. itchy ina. 38 
86 004574 ERRORC <U.PARM(RS) ,ARBNTXT> 
004574 104650 001114 MOV U.PARM(RS) ,HRO.09 
004577 104200 005475 001115 MOV #RBNTXT ,HRO. 10 
87 004602 ERRORC <U.RBN(RS) ,.U.RBN+1 (RS) -RW. ANG(R3) > 
004602 104650 000055 001116 MOV U.RBN(RS) ,HROQ.11 
004605 104650 000056 001117 MOV URONST RE) HRO.12 
004610 104630 001120 MOV RW. ),HRO.13 
88 004613 ERRORC <RW.CMD(R3),U.CGRP(RS) ,U.CCYL(RS) ,U.CCYL#1(R5)> 
004613 104630 001121 MOV RW. CMD(R3) ,HRO. 14 
004616 104650 000066 001128 MOV U. CGRP< (RD) *HRQ.15 
004621 104650 00112 MOV U.CCYL(RS) -HRO.16 | 
004624 104650 001124 mov UleeWeeTtRs) HRQ.17 
? 20 cmp #246. .R1 : SEE IF IN LAST WORDS 
MOV R1,R3 ; I COMPUTE OFFSET OF ERROR 
SUB ahr, RB + R3 HAS UNADJUSTED ERROR POSITION 
ADD : RB WAS ADJUSTED ERROR POSITION 
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Ot et ed td ts od 
o— 
es 
we 
= 


dd od 
AnRWN=OS 


001125 


1$: 


2$: 


CMXEX: 


BUF ARA 


MAXADR 


D 
ERRORC 


ERRORC 


ENDERR 
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R3,RO 
RO 
3$ 
#4,R1 
2s 
#4,RO 
#3,R3 
3$ 


R1 RO 
R1,R3 


; BACK UP POINTER 
; R3 IS OFFSET OF ERROR IN PRINTOUT 


ADJUST POINTER 

COMPARE AUTO=INCREMENTED, SO ADJUST 
PRINT ERROR 
SEE_IF IN FIRST 4 WORDS 

IF SO, BRANCH 


; LOOK BAC 
o.4 


K FOUR WORDS 
FSET OF ERROR IN PRINTOUT IS 3 
BRANCH 


INT TO START OF BUFF 


: TO PO R 
<PNUM,R1,R3,(RO)+, (RO) +, (RO) +, (RO)+, (RO) +, (RO) +, (RO) +, (RO) +> 
MOV PNUM 18 


<(RO)+, (RO) +, (RO) +, (RO) +> 


0 

+ ea 
JMPRET 

LE BUF ARA-. 
+i 

LE ,.MAXADR-. 





| 
| 
“HRO. | 
{ 
| 
| 
| 


H 
MOV R1,HRQ.19 

MOV R3.HRO.20 

MOV (RO) +,HRO.21 

MOV (RO) +. HRQ.22 

MOV (RO) +, HRO.23 

MOV (RO) +, HRO.26 

MOV (RO) +,HRO.25 

MOV (RO) +,HROQ.26 

MOV (RO) +. HRQ.27 

MOV (RO) +,HRO.28 

MOV (RO)+,HRO.29 

MOV (RO) +,HRQ. 30 

MOV (RO) +,HRQ. 31 

MOV 

CL : CLEAR THE POSITION 


R ERRPOS 
LAST MODULE WILL BE CALLED 
net IMMIDATELY 


| 

(RO)+-HRQ. 32 | 

| 

URN TO 


| 
| 
| 


| 
' 


po 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 109 
| tweeeeeeee OVERLAY MODULE LSTMOD - CLEANUP MODULE BEFORE SETUP 


wennnannne 4 al MODULE LSTMOD = CLEANUP MODULE BEFORE SETUP 
OUTPUT EDC FOR THIS OVERLAY 


PTT TTTTTTETITILELTTTLE LITT T ITLL TTT TLE TTT TLL LLL LEE LLL LLL 
SREREERAEAEEAARAAARARERAEAEEAAEARAAARERAAREARARAAERARRERAERERERERERAEEREREREREEEEREEE 
SRRAERARAEAERARAAAARAAAERAEEAEEAERAAAARAAERAAEAAERARAEREREEAEARREREREEEAEREEEEEEEEEEEEEE 
SREERREAEAEAERAAAARAAREAAEREREEERARAAEAEARAERARARAAARARARARARAARAAREREAEAEEEEEERREREEEEE 


1 
2 004722 
004722 


ed ed ed ed od ow os ot 
CUS WN OO OOVNOuULw 


owoon 
TOOTS 
o 


2 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 004456 
37 
38 
39 
40 
rt 
as 
4a 
45 
46 
47 
48 
49 
50 
51 


000105 


000021 


000021 


000021 
175600 


001105 


- SBTTL 


Be Ge Be Ge ("Se Se Ge Ge Se Be Se 
nn 
2 
i=] 


1$: 


3$: 


4$: 


BUF ARA 


MAXADR 


DMOVLY 
- WREDC 


LOOP CONTROL FOR ECC, EDC AND DATA COMPARE MODULES. 
MODULE BEFORE SETUP (USUALLY) 


- ENABL 
R 


LM,A 


CMPDAT+1 


Ls 
EAeESeaS ae 
RO,U.NSEC(RS) 
aCHA 1 


R1, CHAINS. 
#SECCHK, RO 
ye 

U. U_PARM(RS) ~R3 


RS, U. PARM(RS) 
S-MEGR(RG), RO 


5 
#1954. ,R0 
#1,HRQ.02 


HRQ. 
ATGMXFR,R2 
R2,HRQ.R 
RO.S.MEGR(R4) 
#SETUP RO 
R5,R1 

JMPRET 

LSB 

LE .BUFARA-. 
es | 


LE eMAXADR-. 


ALSO LAST 


ASSUME NO ERRORS 
GET tee OF SECTORS HANDLED SO FAR 
0 aa COUNT 


SEE IF LAST BUFFER LAST READ 
IF SO, CH 


AN 
ASSUME STATUS FIRST WORD 
ASSUME READ STOP IS SIGN BIT 


; CLEAR UNUSED BIT 


POINTS TO NEXT LINK 


CHAINS NOW 
; SECTOR CHECK NEXT MODULE 
DATE CALL 


IMAI 
XIT 


GET UNIT gpd ERS 
- HANDLING AN RBN, CLEAR Ii 


SAVE COUNT 

SETUP IS NEXT MODULE CALLED 
DEFERRED CALL TO NEXT MODULE 
RETURN TO R 





SEQ 431 


SEQ 432 
UDATS DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 110 
weeeeeeene OVERLAY MODULE REVCT = REVECTORED SECTOR HANDLING 


1 .SBTTL ‘eeeeeenee OVERLAY MODULE REVCT = REVECTORED SECTOR HANDLING 
2 004477 DMOVLY RV, AREAO 
004477 000105 WREDC :OUTPUT EDC FOR THIS OVERLAY 
5 3a CHE SNRRRENERRRRERRNTRERERRERERRRRHERRReeNeeReeeeneeeeaneeeeneeeeeneeeener 
4 3*  RPRRRARAARAARAAARAARAEREAERAAEARARARERARARARAAERERRARAARREEEAAERARAARARRAEREREEE | 
5 ;* CRAERRAARAAEAARAAERERAEEREREAARAAARARARERARARRARAERARAEREEAREERERREARREAEEEREREEEE 
6 J RRAAAAARARARAERAEREREREEREERERRERAERERERERAEEREREERAAEEREEREEREEREEREEEEREEREEEEE } 
7 : | 
: | 
10 000022 REVCT eee LSTMOD+1 : REVECTOR OVERLAY 
19 004422 104657 000046 MOV U.PARM(RS),RO  ; GET UNIT PARAMETERS 
20 004424 102207 000400 BIT WREVEC,RO : SEE IF REVECTOR ALLREADY IN PROGRESS 
21 004426 054504 BNE 1$ : IF SO, BRANCH 
22 -SBTTL REVSUP = SETUP THE REVECTOR OPERATION (TO READ RCT) 
$3 :REVSUP 
25 ; INITILIZE ALL PARAMETERS FOR READING THE RCT TO FING THE RBN THAT 
36 : A HEADER HAS BEEN REVECTORED TO 
28 004427 101207 000400 BIS WREVEC,RO : FLAG AS REVECTOR IN PROGRESS | 
29 004431 100657 000046 MOV RO,U.PARM(RS) : SAVE PARAMETER | 
30 004433 104207 005526 MOV #RCTLS,R : POINT OT RCT LBN STRING | 
31 004435 100647 000005 MOV RO,S.LETR(RG) : SAVE 
32 004437 104657 000061 MOV U.RWER(RS),RO  : GET READ/WRITE ERROR TYPE 
33 004441 100657 MOV RO,U.RVER(RS) : SAVE FOR REVECTOR INFORMATION 
34 004443 104641 MOV S.SCHR(R4),R1 + R1 POINTS TO SUBUNIT CHARACTERISTICS 
35 004445 114007 CLR RO : USE RO 10 INITILIZE V ALUES 
36 004446 100657 000055 MOV RO,U.RBN(RS : START WITH RBN ZERO 
37 004450 100657 000056 MOV RO, U RBN+1(R5) =; START WITH RON ZERO 
38 004452 100657 000060 MOV RO.U.CCOP(RS) |: ON ORIGINAL COPY OF RCT 
39 004454 115407 INC : RO IS NOW 1 
40 004455 100657 000022 MOV RO,U.MSEC(RS) : ONLY READ 1 SECTOR AT A TIME 
41 004457 115407 INC : ROI 
2 004460 105617 000012 ADD LBNHST(R1),RO : RO POINTS TO 1ST REVECTOR INFORMATION SECTOR 
43 004462 100657 000053 MOV RO,U.CBN(R5) =: SAVE 
44 004464 104617 000013 MOV LBNHST+1(R1),RO : RO HAS HI pf ARST REV INFO SECTOR 
5 004466 044470 BCC 5$ : IF NO CAR BRANCH 
46 004467 115407 INC : PROPOGAT E tak 
47 004470 103207 170000 5$: BIC #*CHBHINB,RO : CLEAR SUBUNIT ABITS 
48 004472 100657 000054 MOV RO.U.CBN*1(R5) : SAVE 
49 004474 114002 CLR R2 + NO ERRORS 
50 004475 104201 177777 MOV #-1,R1 > START READ ATTEMPT RETRIES AT 0 
25 002501 190307 000928 mov scien : SEEK IS NEXT MODULE 
53 004503 004533 BR 4 > EXIT 
54 004504 104651 000024 1$: MOV UCSEC(RS),.R1 ¢ GET NUMBER OF SECTORS R/W SO FAR 
55 004506 105651 000051 ADD U.MBN(RS),R1  : ADD STARTING SECTOR OF OPERATION 
56 004510 104010 002175 MOV R1, CURBN : MOVE TO TEMP STORAGE 
57 004512 104651 000052 MOV U.MBN+1(R5).R1 : GET i! STARTING SECTOR 
58 004514 044516 BCC 2$ : IF NO CARRY, BRANCH 
59 004515 115401 INC R1 ; PROPOGATE CARRY 
60 004516 104010 002176 2s: MOV R1, CURBN¢1 : 
61 004520 104301 002220 MOV SCR2,R1 : Ste IF SECTOR READ IS Ok 
62 004522 014525 BEQ a$ : IF $0, BRANCH 
63 004523 0245 CALL = REVSOK : FIND NEXT COPY TO READ 








UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 110-1 
REVSUP = SETUP THE REVECTOR OPERATION (TO READ RCT) 





6$: 


4$: 


BR 4$ 
CALL SEARCH 
TST R1 
BEQ 4$ 
TST R2 
BNE 4$ 
CALL NXTRCT 
BR JMPRET 


-DSABL LSB 


EXIT 
SEARCH THE SECTOR TO FIND THE LBN 

SEE IF LBN FOUND 

LBN FOUND, BRANCH AND READ RBN 

SEE I IF F NULL FLAG FOUND (REVECTOR NOT FOUND) 
READ Onext RCT SECTOR 

RETURN CONTROL TO 


SEQ 433 






SEQ 434 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 111 
REVSOK = SEE IF THE REVECTOR INFO SECTOR JUST READ IS OK 





1 .SBTTL REVSOK = SEE IF THE REVECTOR INFO SECTOR JUST READ IS OK 
é 004534 REVSOK: 
: 3 GO TO THE NEXT RCT COPY 
& 004534 104651 000060 MO! “@8PCCOP(RS).R1  ; GET NUMBER oF oggrtes TRIED SO FAR — 
7 004536 115401 INC Ri + TRY ANOTHER 
8 004537 106651 000057 CMP WECOPY(RS),R1  : CHECK AGAIN GNSS OMAK 
9 004541 034613 BPL 5$ : IF ALL COPIES UNTRIED, BRANCH 
10 00454¢ HARDER 40 
004542 104200 002710 001107 MOV HER4O, HRO.04 
004545 104202 107710 MOV #40! ERHARD +4000. .R2 
004547 104020 001105 MOV R2,HRO.O02 
004551 104200 004551 001104 V #. .HRQ.01 
004554 104200 060014 001103 MOV #ERRMC,HRO.RO 
11 004557 104651 000062 MOV U.RVER(RS).R1 =; GET ORIGINAL ERROR TYPE 
12 004561 106201 000003 CMP #3,R1 : SEE IF REVECTORED BLOCK 
13 004563 054570 BNE 2$ : IF NOT, BRANCH 
14 004564 CERROR 5,M#SER26 : FLAG ERROR 
004564 104200 003040 001110 MOV #SER26,HRO.05 
15 004567 004573 BR 36$ : EXIT 
16 004570 2s: CERROR 5,#SER32 + FLAG ERROR HEADER COMPARE ERROR 
004570 104200 003054 001110 MOV #SER32,HRO.05 
17 004573 36$:  ERRORC <U.CBN(RS),U.CBN+1(R5) , CURBN, CURBN+1> 
5 04650 000053 001111 MOV U. CBN(RS) ,HRO.06 
104650 000054 001112 MOV U. CBN+1(R5) ,HRO.07 
104300 002175 001113 MOV CURBN,HRQ.08 
104300 002176 001114 soca a MOV CURBN*+1,HRO.09 
114000 002230 CLR ERRPOS : CLEAR THE POSITION: 
025134 CALL  RVFAIL : CLEAR ALL BITS AND DO A FAIL EXIT 
004643 BR 7$ : EXIT 
100651 000060 5$: MOV R1,U.CCOP(RS) ; SAVE COPY COUNT 
104647 000007 MOV S.SCHR(R4),RO : RO POINTS TO SUBUNIT PARAMETERS 
104677 000014 MOV RCTCSZ(RO).RO : RO IS RCT COPY SIZE 
105657 000053 ADD U.CBN(RS),RO : ADD CURRENT SECTOR 
100657 000053 MOV RO,U.CBN(RS) : SAVE 
044633 BCC : IF NO CARRY, BRANCH 
57 000054 MOV U.CBN¢1(R5).RO ; GET HI CURRENT BLOCK NUMBER 
115407 INC R : INCREMENT COUNT 
100657 000054 MOV RO,U.CBN¢1(R5) : SAVE 
024203 6$: CALL _—— ENABL 
104203 177777 MOV #-1,R : START READ ATTEMPT RETRIES AT 0 
100653 00001 MOV R3,U.RWTO(RS) : SAV 
104207 00002 MOV #SEEK,RO : SEEK 1S NEXT MODULE 
114002 CLR R2 + NO ERRORS 
000000 7$: RETURN : RETURN TO CALLING PROGRAM 


a 


SEQ 435 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 112 | 
SEARCH = TRY TO FIND THE LON IN THE RCT SECTOR JUST READ 
1 »SBTTL SEARCH = TRY TO FIND THE LON IN THE RCT SECTOR JUST READ 
g 004644 SEARCH: 
$ : SEARCH THE RCT SECTOR JUST READ TO FIND THE LOAN OR THE NULL ENTRY 
6 004644 104307 002232 MOV CHAINS,,RO 3 RO POINTS TO LINK (NODE) IN READ CHAIN 
7 004646 104677 000001 MOV RW.BUF(RO),RO ; RO NOW POINTS TO BUFFER 
8 004650 114001 CLR : R1 IS RAN NUMBER OFFSET WITHIN THE SECTOR | 
9 004651 104672 000001 1$: MOV 1(RO) ,R2 : GET RCT CODE | 
10 004653 074737 BMI 3 IF NULL POINTER, ENTIRE TABLE EXHAUSTED, BRANCH 
11 004654 102202 020000 BIT #020000,R2 3 SEE IF IT IS A USED RBN 
12 004656 014715 BEQ 5$ : IF NOT, BRANCH 
13 004657 103202 170000 BIC #*CHBHINB,R2 ; CLEAR CODE | 
14 004661 106302 002176 CMP CURBN+1 ,R2 : SEE IF HI ORDER MATCHES | 
15 004663 054715 BNE : IF NOT, H | 
16 004664 106170 002175 CMP (RO), CURBN 3 SEE IF LO ORDER MATCHES 
17 004666 054715 BNE 5$ : IF NOT, H 
18 004667 105651 000055 ADD U.RBN(R5),R1 =: ADD RUNNING RBN TO OFFSET 
19 004671 100651 000055 MOV R1,U.RBN(R5)  : SAVE 
20 004673 044701 BCC : IF NO CARRY, BRANCH 
21 004674 104651 000056 MOV U.RBN+1(R5),R1 =; GET HI ORDER RBN 
22 004676 115401 INC R1 3 PROPOGATE CARRY 
23 004677 100651 000056 MOV R1,U.RBN+1(R5) =: SAVE 
24 004701 104657 000046 2s: MOV U.PARM(RS),RO 3; GET UNIT PARAMETERS 
25 004703 101207 000200 BIS #RBNBN,RO 3 FLAG ALL ROUTINES THAT THIS IS AN RBN 
26 004705 100657 000046 MOV RO,U.PARM(RS) = SAVE | 
27 004707 025134 CALL RVFAIL 3 FAIL EXIT DOES WHAT WE WANT, JUST CLEAR R1 AND R2 
28 004710 114001 CLR : FOUND IT 
29 004711 114002 CLR R2 : NO ERRORS | 
30 004712 100652 000021 MOV R2,U.NSEC(RS) : SAVE 
31 004714 005002 BR 7$ : EXIT | 
32 004715 105207 000002 5$: ADD #2,R0 : POINT TO NEXT RBN RECORD 
33 004717 115401 INC : INCREMENT RBN OFFSET 
34 004720 106201 000200 CMP #128. ,R1 3 SEE IF ALL RECORDS TRIED | 
35 004722 054651 BNE 1$ : IF NOT, 
36 004723 114002 CLR R2 3 TO SIGNAL CALLING ROUTINE TO READ NEXT SECTOR | 
37 004724 105651 000055 ADD U.RBN(RS).R1 =: ADD OLD RBN TO 128 
38 004726 100651 000055 MOV R1,U.RBN(R5) =: SAVE | 
39 004730 045002 BCC + IF NO CARRY, EXIT 
40 004731 104651 000056 MOV U.RBN+1(R5),R1 = GET HI ORDER RBN | 
41 004733 115401 INC 3 PROPOGATE CARRY | 
42 004734 100651 000056 MOV R1,U.RBN¢1(R5) : SAVE 
43 004736 005002 BR g : EXIT 
44 004737 6$: HARDER 41 
004737 104200 003000 001107 MOV #ER41,HRO.04 
0064742 104202 107711 MOV #41! ERHARD+4000. .R2 
004744 104020 001105 MOV R2,HRO.02 
004746 104200 004746 001104 MOV #..HRO.01 
004751 104200 060014 001103 MOV #ERRMC ,HRO.RO 
45 004754 104651 900062 MOV U.RVER(RS).R1 =; GET ORIGINAL ERROR 
46 004756 106201 00000 CMP #3,R1 3 SEE IF REVECTORED BLOCK 
47 004760 054765 BNE 32 : IF NOT, CH 
48 004761 CERROR 5,#SER26 3 REVECTORED SECTOR 
004761 104200 003040 001110 MOV #SER26,HRO.05 
49 004764 004770 BR 12$ 3 EXIT 
50 004765 32$:  CERROR 5,#SER32 : REPORT HEADER COMPARE ERROR 
004765 104200 003054 001110 MOV #SER32,HRO.05 





J2 


SEQ 436 
UDATS DISK EXERCISER DMACR X04.01 13-APR=-82 15:49:22 PAGE 112-1 
SEARCH = TRY TO FIND THE LAN IN THE RCT SECTOR JUST READ 
51 004770 12S: ERRORC <CURBN,CURBN+1> 
004770 104300 002175 001111 MOV CURBN, HRO.06 
004773 104300 002176 001112 MOV CURBN+1 ,HRQ.07 
52 004776 ENDERR 0 
004776 114000 002230 CLR ERRPOS : CLEAR THE POSITION 
53 005000 025134 9$: CALL RVFAIL 3 CLEAR ALL BITS, FAIL EXIT 
54 005001 104051 MOV R5,R1 : FLAG AS ERROR 


55 005002 000000 7$: RETURN : RETURN TO CALLING PROGRAM 





SEQ 437 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 113 
NXTRCT = GET THE NEXT RCT SECTOR TO SEARCH 


1 .SBTTL NXTRCT = GET THE NEXT RCT SECTOR TO SEARCH 
: 005003 NXTRCT: 
4 : INCREMENT CBN BY 1 AFTER SUBTACTING THE NUNMBER OF COPIES*RCT SIZE 
2 : THAT WAS SEARCHED THROUGH ON THE LAST PASS 
7 005003 1o4gse 000053 MOV U.CBN(RS) R ; Re HAS LO ORDER RCT BN 
8 005005 104653 000054 MOV U. pee R3 ; R3_HAS HI ORDER RCT BN 
9 005007 104657 000060 MOV U.CCOP(RS) ,RO : GET NUMBER G OF. Copies THAT HAVE BEEN READ 
10 005011 015022 BEQ 3$ : IF NO COPIES, BR 
11 005012 104641 000007 MOV S.SCHR(R4),R1 + R1 POINTS TO 0° SUBUNIT CHARACTERISTICS 
12 005014 107612 000014 1$: SUB RCTCSZ(R1),R2 — ; SUBTRACT FROM LO ORDER BN 
13 005016 045020 BCC 2$ : IF NO BORROW, BRANC 
14 005017 117403 DEC R3 : PROPOGATE BORROW 
15 005020 117407 2$ DEC RO : DECREMENT COUNT 
16 005021 055014 BNE 1$ : IF NO CARRY, BRANCH | 
17 005022 105202 000001 3$: ADD #1,R2 : INCREMENT CBN BY 1 
18 005024 045026 BCC 4$ : IF NO CARRY, BRANCH 
19 005025 115403 INC R3 : PROPOGATE CARRY 
20 005026 100652 000053 4$: MOV R2,U.CBN(RS) : SAVE LO ORDER | 
21 005030 100683 000054 MOV R3, u. CBN+T(RS) : SAVE HI ORDER 
22 005032 104020 002175 MOV Re. CUR : MOVE 10 CALC AREA 
3 005034 104030 002176 MOV R CURBS : MOVE TO CALC AREA 
: NOTE RO MUST BE ZERO FOR CALC SETUP 
25 005036 022027 CALL CALC : FIND CYL THAT NEXT ON 
26 005037 104647 000007 MOV S.SCHR(R4).RO 3 POINT TO SUBUNIT CHARACTERTSTICS 
27 005041 106670 000001 002202 CMP HICYL(RO),CYL*1 ; SEE IF IN XBN AREA 
28 005044 BCS 5$ : IF SO, BRANC | 
5044 045 BCC .+2 | 
5045 005 BR rt} 
29 005046 055123 BNE 6$ : IF NOT, BRANCH 
30 005047 106670 000000 002201 CMP LONCYL(RO),CYL : SEE wr IN XBN AREA | 
31 005052 015054 BEQ 5$ : IF SO, BRANCH 
32 005053 04 BCC 6$ : IF NOT, BRANCH 
33 005054 025134 5$: CALL RVFAIL 3 REVECTOR FAILED 
34 005055 HARDER 4 : REPORT CORRUPTED RCT 
005055 104200 000271 001107 MOV #ERG HRO.04 
005060 104202 107644 MOV #4 'ERHARD+4000. .R2 
005062 104020 001105 MOV R2,HRO.02 
005064 104200 005064 001104 MOV . .HRO.O1 
005067 104200 060014 001103 MOV #ERRMC ,HRO.RO 
35 005072 104651 00006 MOV U.RVER(RS),R1  . GET ORIGINAL ERROR 
36 005074 106201 00000 CMP #3,R1 : SEE IF REVECTOR 
37 005076 055103 BNE 73 : IF NOT, BRANCH | 
005 CERROR 5,#SER26 + REPORT REVECTOR | 
005077 104200 003040 001110 MOV #SER26,HRO.05 | 
39 005102 005106 BR ab 3 BRANCH 
40 005103 7$: CERROR 5,#SER32 : REPORT HEADER COMPARE ERROR | 
005103 104200 003054 001110 MOV #SER32,HRO.05 | 
41 005106 8$: ERRORC <CURBN,CURBN+1,U.CBN(R5) ,U.CBN+1(R5)> 
005106 104300 002175 001111 MOV CURBN,HRO.06 
005111 104300 00217 001112 MOV CURBN+1,HRO.07 
005114 104650 000053 00111 MOV U.CBN(R5) ,HRO.08 
005117 104650 000054 001114 U. CBN+1(R5) ,HRO.09 
42 00512 005133: BR 9$ : REPORT ERROR 


512 117006 6$: CLR R2 : NO ERRORS 
44 005124 02420 CALL ENABLE : ENABLE ERROR RECOVERY 





SEQ 438 
UDAT4 DISK EXERCISER DMACR X04.01_ 13-APR-82 15:49:22 PAGE 113-1 


NXTRCT = GET THE NEXT RCT SECTOR TO SEARCH 


45 005125 104203 177777 MOV #=-1,R3 : START READ ATTEMPT RETRIES AT 0 
46 005127 100653 000012 MOV R3,U.RWTO(RS) = SAV 

47 005131 104207 000023 MOV #SEEK,RO : NEXT MODULE IS SEEK 

48 005133 000000 9$: RETURN 

49 IF LE ,BUFARA-. 

50 BUFARA = +1 

51 -ENDC 

5 <IF LE ,MAXADR=. 

5 MAXADR = +1 

54 .ENDC 





UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 114 
RVFAIL = CLEAR ALL REVECTOR BITS, AND CALL SETUP NEXT 


1 -SBTTL RVFAIL = CLEAR ALL REVECTOR BITS, AND CALL SETUP NEXT 

¢ 005134 RVFAIL: 

2 3 CLEAR ALL REVECTOR BITS, AND RESTORE U.CBN TO WHAT IT WAS 

6 005134 104651 000046 MOV U.PARM(RS),R1  ; GET UNIT PARAMETERS 

7 005136 103201 000400 BIC #REVEC,R : CLEAR ALL REVECTOR BITS 

8 005140 100651 000046 MOV R1,U.PARM(RS) 3: SAVE 

9 005142 104201 000001 MOV #1,R 3 FLAG THAT A SECTOR HAS BEEN READ (SKIPPED) 
10 005144 100651 000021 MOV R1,U.NSEC(RS) 3: SAVE 

11 005146 104651 000024 MOV U.CSEC(RS).R1 ; GET NUMBER OF SECTORS 

12 005150 105651 000051 ADD U.MBN(RS) ,R1 3 ADD STARTING SECTOR NUMBER 

13 005152 100651 000053 MOV R1,U.CBN(R5) ; RESTORE CBN 

14 005154 104651 000052 MOV U.MBN+1(R5),R1 =: GET HI MBN 

15 005156 045160 BCC 1$ : IF NO CARRY, BRANCH 

16 005157 115401 INC R1 3 PROPOGATE CARRY « 

17 005160 100651 000054 1$: MOV R1,U.CBN+1(R5) : SAVE HI IN CBN ra 
18 005162 104207 005522 MOV #L$,RO 3 GET LEN STRING ae 
19 005164 100647 000005 MOV RO,S.LETR(RG) : SAVE 
20 005166 104207 000001 MOV #SETUP,RO 3 SETUP NEXT ROUTINE 
21 005170 000000 RETURN 3 RETURN TO CALLING PROGRAM 


——— 
{ 


SEQ 439 





SEQ 440 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 115 
eeeeeneees OVERLAY MODULE SEEK = IF NECESSARY, ISSUE SEEK 


1 .SBTTL teeeenenee OVERLAY MODULE SEEK = IF NECESSARY, ISSUE SEEK 
2 005171 DMOVLY SK,BUF 
005171 000105 WREDC R oUTPUT EDC FOR THIS OVERLAY ! 
3 peeeenacteosasennnsataneseqsessnsasensqsnnsnosssoconannstesqnocnscescosanneess 
4 J AAAAAAAAAAAAAAEAEARAAAEREEEEAERAERRERRERERRAARERRERREREREEERREREERAEREREEREREEREEEE j 
5 FRRAAAAAARAAAEEAAERAREEREREREEEREREEEREERERERERERRERAERERERRERRRERERREERREERES 
6 J AAAAAAAAAAAAAAAERRERREEEEERERERERARERERRERRERREREERAEEERRRAEERERERRRERREREREKE 
H : | 
9 : | 
10 000023 SEEK = REVCT+1 : SEEK OVERLAY | 
Py j 
12 ; SEEK ISSUES A SEEK TO THE CYLINDER SPECIFIED IN U.CCYL(RS) (2 WORDS) | 
13 : AND GROUP GIVEN IN U.CGRP(RS) (1 WOR 
14 : IT THEN RETURNS WITH A DEFERED CALL TO SEKTST (TEST SEEK) TO SEE IF | 
15 : THE SEEK COMPLETED SUCCESSFULLY. IF SO, THE READ WRITE MODULE I | 
16 ; THEN CALLED 
25 -ENABL LSB 
26 005237 104653 000046 MOV U.PARM(RS),.R3 ; GET UNIT PARAMETERS 
27 005241 102203 002000 BIT ASEKINP,R3- : SEE IF SEEK IS ALLREADY IN PROGRESS | 
28 005243 055250 BNE 3s : IF SO, BRANCH 
29 005244 104201 177777 MOV 1,R1 3; FOR PEROING FOLLOWING WORDS 
30 005246 100651 000007 MOV + A SRTY(RS) : SAVE | 
31 005250 104653 000047 3$: MOV U.RCOV(RS).R3  ; GET RECOVERY WORD 
32 005252 102203 002000 BIT #RCBREQ,R3 : SEE IF RECALIBRATION REQUESTED 
33 005254 015261 BEQ 4$ : IF NOT, BR 
34 005255 104207 000025 MOV #RECALB,RO + RECALIBRATE NEXT MODULE 
35 005257 114002 CLR R2 : NO ERRORS 
36 005260 005431 BR SEKOUT : EXIT 
37 005261 104652 000007 4$: MOV U.SRTY(RS).R2  ; GET SEEK RETRIES 
38 005263 115402 INC Re + ADJUST FOR TEST 
39 005264 015400 BEQ + IF FIRST TIME, BRANCH 
40 005265 106202 000002 CMP ie. R2 : SEE wif TRIED MAX NUM OF TIMES 
41 005267 045356 BCC 1$ : IF BRANCH 
42 005270 DEVFTL 14,<S.LETR(R4).U. cancns) “uC CBN+T(RS)> 
005270 104200 001440 001107 #ER14,HRO.04 
005273 104640 001110 mov S.LETR(R4),HRO.05 
005276 104650 000053 001111 MOV U. CBN(RS) ,HRO.06 
005301 104650 000054 001112 MOV U. CBN BNET RS) HRO.07 
5304 104202 047656 MOV #14! F TLDEV+4000. ,R2 
5306 104020 001105 MOV R2,HRO.02 
005310 104200 005310 001104 MOV 4. <HRQ.O1 
005313 104200 14 001103 MOV #ERRMC .HRO.RO 
43 005316 ERRORC <U.PARM(RS) ,ARBNTXT,U.RBN(RS) ,U. RBN¢1(R5) . GROUP, vin CYL+1> 
005316 104650 6 001113 MOV U.P. ARM CR 5) RQ. 
005321 104200 005475 001114 MOV #RBNTXT,HRO.09 
005324 104650 000055 001115 MOV U. BBNCRS) HRO.10 
005327 104650 000056 001116 MOV U.RBN+1(R5),HRO.11 
005332 104300 002203 001117 MOV GROUP ,HRQ. 12 
00533& 104300 002201 001120 MOV CYL, HRO.13 
5340 104300 002202 001121 MOV CYL+1,HRQ. 14 
pases 114 002230 — UR ERRPOS CLEAR THE POSITI 
g H ON 
45 005345 Odes 000046 MOV U.PARM(RS),R3 ; GET UNIT PARAMETE 
46 005347 103203 002000 BIC #SEKINP,R3- CLEAR SEEK IN BROGRESS BIT 
47 005351 100653 000046 MOV R3,U.PARM(RS) : SAVE 





48 005353 





att 


BES SRSrevuuraeseeareear SF 
im 


SY 
S=>382 
SS 
Ww 
en 


001105 
001106 
000001 
000063 
000050 


001104 
060007 


000007 
000007 


001107 


1$: 


5$: 


NOSEEK: 


SEKOUT: 
SEKEXT: 





CALL 
MOV 


BR 
REPSFT 


-DSABL 





UDAT4 DISK EXERCISER DMACR X04.01 13-APR=-82 15:49:22 PAGE 115-1 
seeweeweee OVERLAY MODULE SEEK = IF NECESSARY, ISSUE SEEK 


GORCLB 
R5,R1 
SEKEXT 
o SEEK 


TSTNEC 
R3 


NOSEEK 
ISUSEK 


SEKEXT 
U.SRTY(RS) ,R1 
ty Fe yd ge 


K 
#BUILDP RO 


R 
JMPRET 
LSB 


RECAL IBRATE _— 
he CAL 


XIT 

REPORT SEEK ERROR 
CLR HRO.02 
CLR HRO.03 
MOV #1,HRQ.04 

MOV RO,=(SP) 

MOV U.UNUM(RS) ,RO 
ADD u. SUBUCRS) , *RO 
MOV 
MOV Rricoeie RO 
CALL §_HOSTRO 


MOV (SP)+,RO 


; SEE IF SEEK IS ecetaane 
; SEE_IF SEEK IS NECESSAR 


IF a : (NO SEEK NECESSARY) , BRANCH 


; ISS EEK 
; SEE _IF ERROR — 


IF ERROR, H 
; GET SEEK TIMEOUT 
INCREMENT COUNT 


MOVE TIMEOUT TO PARAMETERS 
INITILIZE TIMEOUT VALUE 


SAVE 

DEFERRED ae TO SEKTST 

SEKTST NEXT ALL 

Neon LE ERROR RECOVERY DURING SEEK 


READ/URITE ROUTINE NEXT 
NO ERRORS 


IMMIDATE CALL 
RETURN TO CALLING PROGRAM 





SEQ 441 





UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 116 


TSTNEC = TEST TO SEE IF SEEK IS NECESSARY 


1 ° 

¢ 005433 TST 
4 ; 

? : 

7 005433 104657 000046 

8 005435 102207 000200 

9 005437 015447 

10 005440 104650 000055 002175 

11 005443 104650 000056 002176 

12 005446 005455 

13 005447 104650 000053 002175 2$: 
14 005452 104650 000054 002176 

15 005455 114007 3$: 
16 005456 022027 

17 005457 104203 002201 

18 005461 104657 000047 

19 005463 102207 004000 
20 005465 055501 
21 005466 104202 000064 

22 005470 105052 

3 005471 104201 000003 
24 005473 104237 4$: 
25 005474 106227 

26 005475 055501 
27 005476 117401 
28 005477 055473 

29 005500 114003 

30 005501 000000 9$: 


TSTNEC TESTS TO SEE IF A SEEK IS NECESSARY. 


ME TSTNEC = TEST TO SEE IF SEEK IS NECESSARY 


IF NOT, R3 IS RETURNED 


AS ZERO, NONZERO OTHERWISE. 


U.PARM(RS),RO ; 
#RBNBN RO : 


2$ ; 
U.RBN(RS) CURBN + 
U.RBN+1(R5),C 


3$ 
U.CBN(RS),CURBN : 
U.CBN+T (RS), CURBN¢ 1 


CALC 

ACYL RS 
U.RCOV(RS) .RO 
+ meaty 
#U.CCYL,R2 
R5.R2 


#3.R 
(R3)+,RO 
(R2)+,RO 
9$ 


R1 
4$ 
R3 


GET UNIT PARAMETERS 


; SEE IF BLOCK REVECTORED 


IF NOT, BRANCH 
Baas RBN TO CALCULATION AREA 
3 MOVE RBN TO CALCULATION AREA 


; MOVE LBN TO CALCULATION AREA 
LON TO CALCULATION AREA 
; TELL cALc ROUTINE TO SET UP PARAMETERS 
CALCULATE CYL AND GROUP 
R3_POINTS TO CALCULATED CYLINDER 
GET UNIT PARAMETERS 
ore oe a 
R2 WILL POINT TO CURRENT CYL 
R2 o tant TO CURRENT CYLINDER 
GET COUNT 


ET WORD 
SEE IF CYL AND GROUP THE SAME 
BRANCH 


COUNT 
F INCOMPLETE, BRANCH 
FLAG AS SEEK NOT NECESSARY 
RETURN TO SEEK 





SEQ 442 





UDAT4 DISK EXERCISER DMACR 
ISUSEK = ISSUE SEEK COMMAN 


S 
uw 
uw 
oO 
Nm 


—~— ee ee 
WO Oo N OUSWN—OOONOUSWwh— 
Ssssssooooseso 
SNR STAAWOAS 


S8S8sssss 


rrr 
VMAMMAMAMMAM MMA 


SSeRsNeeee 


Boss sees 


SONMNVMOGO © 
NN UO 


dete 


SRMSEGGRS viet 


Sat BOB OO ete aetdatatad ad at od 
So 
— 


MOULON—OGO WwW 
WWIWNININWUWe NN NWI a 


8 
aS 
z 


104200 
000000 


002201 001673 
002202 001674 
002203 001675 
001636 


000064 
000003 


000067 


002201 


000046 
002000 
000046 


005053 001110 


sven 13=APR=82 15:49:22 PAGE 117 


is 
MOV CYL, INS#1 
MOV CyL st INS¢2 
MOV GROUP, INS+ 
MOV #CR.SEK,R3 
CALL _—s*iTALK 
TST 
BNE 10$ 
MOV #U.CCYL,RO 
ADD R5,RO 
MOV #3.R1 
PUSH  <RO,R1> 
MOV #U.LCYL,R2 
ADD R5.R 
1$: MOV (RO) +,R3 
MOV R3, (R2)+ 
DEC R1 
BNE 1$ 
POP <R2,RO0> 
4$: MOV #CYL,R1 
2$: MOV (R1)+,R3 
MOV R3, (RO)+ 
DEC R2 
BNE 2$ 
MOV U.PARM(RS) ,R3 
BIS #SEKINP, 
MOV R3,U.PARM(RS) 
BR SUEXT 
10$:  CERROR 5,ASER9 
ISUEXT: RETURN 
IF LE ,MAXADR-. 
MAXADR +1 


= 
-ENDC 


MOV 
; RETURN TO CALLING PROGRAM 


SEQ 443 


SBTTL ISUSEK = ISSUE SEEK COMMAND 
USEK: 


ISUSEK ISSUES THE SEEK TO THE DRIVE 


MOVE LOW CYL _TO SEEK COMMAND 
SET LOWER BITS 

MOVE GROUP TO SEEK COMMAND 
SET UP FOR TALK 


SEND SEEK 
SEE IF —- 


IF SO, 
RO WILL POINT TO CURRENT CYLINDER 
RO POINTS TO + aa CYLINDER 


MOVE THREE WOR 


; SAVE POINTER AND COUNT 


MOV RO,-(SP) 
MOV R1,-(SP) 


; R2 WILL POINT TO LAST CYLINDER 
; R2 POINTS TO LAST CYLINDER 
GET WORD 


SAVE 
; DECREMENT COUNT 


IF COUNT INCOMPLETE, BRANCH 
RESTORE 


MOV (SP)+,R2 
MOV (SP)+,RO 
R2 POINTS TO NEW CYL 
GET WORD 


SAVE 

DECREMENT COUNT 

IF COUNT INCOMPLETE, BRANCH 
GET UNIT PARAMETERS 

SAVE SEEK IN PROGRESS 


BRANCH (NOTE THAT R2 IS ZERO = NO ERRORS) 
REPORT SECONDARY ERROR 
#SER9,HRO.05 


SEQ 444 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 118 
weeeeeeens OVERLAY MODULE SEKTST = SEE IF THE SEEK IS COMPLETE 


1 .SBITL teaeeennne OVERLAY MODULE SEKTST = SEE IF THE SEEK IS COMPLETE 
2 005561 DMOVLY TS,BUFA 
005561 000105 .WREDC RNOUTPUT EDC FOR THIS OVERLAY 
3 ITITIIITILITIIITILITT LITT LITT LTT TTT LETTTT TTT TTT TTT TTT TTT TTT TTT 
4 SRAAAAAARAAAAEAEREEEAREEEREEAEERAAERRRERERREEEREEREREREAEREEEAEAAEAEEAEEREEREEEEEE 
5 SRRRRAAAEAEEREREREEREREREREEERRRERERRRERARREERERERRERERARERAAREREAEEEERERREREEEE 
6 SRARAAAERAERAAEAERREEREEAEEEEREERERERAEAREREERREEEREEEEREEREEEAREREEAEEREEEREEEE | 
7 : 
7 
10 000024 SEKTST = SEEK+1 : SEEK COMPLETE TEST OVERLAY | 
12 ; SEKTST TESTS TO SEE IF READ/WRITE READY OR ATTENTION IS HIGH 
13 : R2 RETURNED AS ZERO IF SEEK WAS SUCESSFUL, <1 IF SEEK INCOMPLETE 
1 : POSITIVE NON-ZERO IF AN ERROR WAS DETECTED | 
23 .ENABL LSB 
24 005237 020746 CALL RTDS 3 GET REAL TIME DRIVE STATE 
25 005240 115002 TST R2 : SEE IF ERROR OCCURRED | 
26 005241 015246 BEQ 1$ : IF NOT, c | 
27 005242 104207 000024 MOV #SEKTST,RO : RETRY THIS MODULE 
28 005244 104051 MOV R5,R1 : DEFER RED CALL | 
29 005245 005626 BR STSEXT 3 EXIT 
30 005246 024203 1$: CALL = ENABLE > ENABLE ERROR RECOVERY 
31 005247 115001 TST R1 : SEE IF R/W RDY ASSERTED 
32 005250 ASSUME RWRDY,100000 =; ASSUME R/W RDY IS SIGN BIT 
33 005250 035426 BPL : IF NOT READY, BRANCH 
34 005251 104657 000046 MOV U.PARM(RS).RO ; GET UNIT PARAMETERS 
35 005253 103207 002000 BIC #SEKINP,RO 3 SEEK NO LONGER IN PROGRESS 
36 005255 100657 000046 MOV RO,U.PARM(RS) ; SAVE PARAMET TER s 
37 005257 104657 000047 MOV U.RCOV(RS),RO : GET RECOVERY WORD 
38 005261 103207 004000 BIC KREQ, 3 SEEK NO LONGER REQUIRED | 
39 005263 100657 000047 MOV RO,U.RCOV(RS) =: SAVE 
40 005265 104647 000001 MOV S.SEEK(R4),RO : GET NUMBER OF SEEKS ,/SSuED 
41 005267 117407 DEC RO : DECREMENT SEEK 
42 005270 055304 BNE SEKCNT : IF NO REPOR T NEEDED. BRANCH 
43 005271 104650 000063 001104 MOV U.UNUM(RS),HRO.07 ; 3 GET STAPTING SUBUNIT NUMBER 
44 005274 105650 000050 001104 ADD U.SUBU(R5),HRO.01 : ADD OFFSET 
45 005277 104207 060010 MOV AT4SEEK,RO : MOVE SEEK REPORT NUMBER TO RO 
46 005301 021053 CALL _ HOSTRO : REPORT TO HOST 
47 005302 104207 001750 MOV, #1000. .RO : SET UP FOR NEW COUNT | 
49 005304 100647 000001 SEKCNT: MOV RO,S.SEEK(R4) ; SAVE COUNT 
50 005306 114008 CLR 3 NO ERRORS | 
51 005307 104653 000007 MOV ~SRTY(RS),.R3 =; GET RETRY COUNT 
52 005311 015413 BEQ : IF NO RETRIES, BRANCH | 
53 005312 REPSFT SOFT : REPORT SOFT ERROR 
005312 104200 000001 001105 nov #1, HRO.02 
005315 114000 001106 CLR HROQ.03 
005317 114000 001107 CLR HROQ.04 
005321 100467 MOV RO,-(SP) 
005322 104657 000063 MOV U.UNUM(RS) ,RO 
005324 105657 000050 ADD u. SUBUCRS) *RO 
005326 104070 001104 MOV RO,HRO.01 
005330 104207 060007 MOV aresort. RO 
005332 021053 CALL HOST 
005333 104267 MOV (SP)+,RO 





| hata eae eet oe era ae . | cin | 
SEQ 445 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 118-1 


weeeeeeres OVERLAY MODULE SEKTST - SEE IF THE SEEK IS COMPLETE 


54 005334 SOFTER 15,<R3,S.LETR(R4) ,U.CBN(RS) ,U.CBN+1(R5)> 
005334 104200 001506 001107 MOV #ER15,HRO.04 
005337 104030 001110 MOV R3,HRO.05 

5341 104640 000005 001111 MOV S.LETR(R4) ,HRO.06 
005344 104650 000053 001112 MOV U. CBN(RS) ,HRQ. 

5347 104650 000054 00111 MOV U. CBN+1(R5) ,HRO.08 
005352 104202 147657 MOV #15! ERSOFT+4000. ,R2 
005354 104020 001105 MOV R2,HROQ.02 
005356 104200 005356 001104 MOV #..HRO.01 

5361 104200 060013 001103 MOV #ERRMES ,HRO.RO 

55 005364 ERRORC <U.PARM(RS) ,ARBNTXT,U.RBN(RS) ,U.RBN+1(R5),U.CGRP(RS) ,U.CCYL(RS)> 

5 104650 000046 001114 MOV U.PARM(RS) ,HRO.09 

5367 104200 005475 001115 MOV #RBNTXT RO. 10 
005372 104650 000055 001116 MOV U.RBN(R5) ,HRO. 11 
005375 104650 000056 001117 MOV U.RBN+1(R5) ,HRO.12 

5400 104650 000066 001120 MOV U. CGRP(RS) ,HRO. 1 
005403 104650 000064 001121 MOV U.CCYL(R5) .HRO. 14 

56 005406 ERRORC U.CCYL+1(R5) 
005406 104650 000065 001122 MOV U.CCYL+1(R5) ,HRO.15 
57 005411 ENDERR 0 
005411 114000 002230 CLR ERRPOS : CLEAR THE POSITION 
58 005413 104207 000007 2s: MOV #BUIL oP RO : BUILD THE READ/URITE CHAIN NEXT 
59 005415 104653 000047 MOV U.RCOV(RS) ,R3 GET RECOVERY WORDS 
60 005417 102203 030000 BIT Ob; EVUSD 'WxtLEV. ai : SEE IF ERROR RECOVERY LEVELS IN USE 
61 005421 015424 BEQ 1$ : IF ANCH 
62 005422 104207 000017 MOV #NEWLEV,RO : ISSUE ERROR RECOVERY COMMAND NEXT 
_- 63 005424 114001 1$: CLR R1 : IMMIDATE CALL TO NEXT MODULE 
~ 64 005425 005626 BR STSEXT 3 BRANCH 
65 005426 102201 000100 STSERR: BIT WAVAIL,R1 : SEE IF DRIVE TIMEOUT HAS EXPIRED 
~ 66 005430 015442 BEQ 1$ : IF NOT. CH 
67 005431 104653 000046 MOV U.PARM(RS) ,R3 : GET UNIT PAR AME TERS 
68 005433 103203 002000 BIC #SEKINP,R3 : MARK AS SEEK NOT IN PROGRESS 
69 005435 100653 000046 MOV R3,U.PARM(RS) : SAVE 
70 005437 104207 000023 MOV #SEEK RO : SEEK AGAIN 
71 005441 005626 BR STSEXT : EXIT 
72 005442 102201 000002 1$: BIT #ATTN,R1 ; SEE IF ATTENTION ASSERTED 
73 005444 015536 BEQ : IF NOT, BR 
74 005445 REPSFT SOFT,,SEEK + REPORT SEEK AND SOFT ERROR 
005445 104200 000001 001105 MOV #1,HRO.02 
005450 114000 001106 CLR HROQ.03 
005452 104200 000001 001107 MOV #1,HRO.04 
005455 100467 MOV RO,-(SP) 

5456 104657 000063 MOV U.UNUM(RS) ,RO 
005460 105657 000050 ADD U- SUBUCRS) *RO 
005462 104070 001104 MOV RO.HRQ. 

005 104207 060007 MOV #TLsorT, RO 
005: 021053 CALL HOSTRO 
005467 104267 

75 005470 SOFTER 1,<U.LGRP(RS) ,U.LCYL(RS) ,U.LCYL41(R5) .U. CGRPCRS)*U, Nae inte 
005470 104200 000000 001107 MOV 
005473 104650 000071 001110 MOV ue TGP CRS) “HRO. 05 
005476 104650 000067 001111 MOV CY 06 
005501 104650 000070 001112 MOV U.LCYL+1(R5) ,HRO.07 
005504 104650 000066 00111 MOV U. CGRP(RS) ,HRO.08 
005507 104650 000064 001114 MOV U.CCYL (R95) 1H 0.09 
005512 104202 147641 MOV ai! ERSOF 724000, -R2 
005514 104020 001105 MOV R2,HRO.02 









UDAT4 DISK EXERCISER DMACR X04.01 13=APR-82 15:49:22 PAGE 118-2 
weeeweweee OVERLAY MODULE SEKTST = SEE IF THE SEEK IS COMPLETE 


005516 104200 gong 001104 
06001 


005521 104200 001103 

76 005524 ERRORC U.CCYL+1(R5) 
005524 104650 000065 001115 

77 005527 ENDERR 


005527 104200 000051 001116 


E 
IF LE .MAXADR-. 
MAXADR = +1 


MOV 
; REPORT ATTN oy tees we NG S 


MOV 
MOV 


#. -HRQ.01 
#ERRMES ,HRQ.RQ 


SEQ 446 


U. 3 gp b mal HRQ.10 


HRO. 11 
#11+1, ERRPOS 


#ER 0.04 
GaP«RS) HRQ.05 


2z=ccc 
tale @ e 
=< @ 
> o a 
< 
| aoa 
~ 
Po] 
w 
at 
=> 
= 
of 
o 


fr ha.02 
PERRMESHRO.RO 
U.CGRP(RS) ,HRO.08 
U.CCYL(RS) .HRO.09 


: SET THE POSITION 


U.CCYL+1(R5) ,HRO. 10 


#SER22,HRQ.11 
#11+1,ERRPOS 


005532 104200 000014 002230 

78 005535 005626 BR STSEXT : EXIT 

79 005536 024212 2$: CALL peat 

80 005537 104051 MOV MAKE ty NON-ZERO FOR DEFERRED CALL 

81 ; NOTE: Ra" is ZERO AT tHis POINT 

82 005540 104207 000024 MOV #SEKTST,RO : SEEK_TEST IS NEXT MODULE 

83 005542 104653 000006 MOV U, TIML(RS),.R3 ; GET TIMEOUT VA 

84 005544 107203 000001 SUB R3 3 DECREMENT TIMEOUT VALUE 

85 005546 100653 000006 MOV RS-U, TIML (RS) 3 SAVE TIMEOUT VALUE 

86 005550 045626 BCC STSEXT : IF NON-ZERO BRANCH 

87 005551 104653 000005 MOV U.TIMH(RS),R3  ; GET HI oe TIMEOUT 

88 005553 107203 000001 SUB #1,R3 3 DECREMENT COUNT 

89 005555 100653 000005 MOV R3,U.TIMH(RS) ; SAVE 

90 005557 045626 BCC K 

91 005560 SOFTER 3,<U.LGRP(RS) ,U.LCYL(RS) ,U.LCYL+1(R5)> 
005560 104200 000166 001107 MOV 
005563 104650 000071 001110 MOV 

104650 001111 MOV 

005571 104650 001112 MOV 
005574 104202 147643 MOV 
005576 104020 001105 MOV 
005600 1042 005600 001104 MOV 
005603 104200 060013 001103 MOV 

92 005606 ERRORC <U.CGRPC(RS) ,U.CCYL(RS) .U.CCYL4+1(R5)> 
005606 104650 00066 001113 MOV 
005611 104650 000064 001114 MOV 
005614 104650 000065 001115 MOV 

93 005617 ENDERR 
005617 104200 000051 001116 MOV 
005622 104200 000014 002230 MOV 

94 005625 024227 CALL GOSEEK 

003231 STSEXT: BR JMPRET ; RETURN TO 


: SET THE POSITION 


SEQ 447 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR=-82 15:49:22 PAGE 119 
weeeeeeeee OVERLAY MODULE RECALB = RECALIBRATION 


1 .SBTTL teeenennes OVERLAY MODULE RECALB = RECALIBRATION 
2 005627 DMOVLY RC,BUFARA 
005627 000105 WREDC :OUTPUT EDC FOR THIS OVERLAY 
3 [RARER ARARERATRRRRRREEERERAERRERERKRRARERERR AERA RE RARER EREEREEEeEE eEeeeneEe 
4 fF RAAAAEAAARAAAEEAARAARERERERREREREEEKEEARREREREEREREAERERERERERAERREREERKEEEEEEE 
5 FERRARA AAAAAARAEAARAEEREREEEEEREREREREARERERERERERRRERRAEERERERREREREEEREEEREEERES 
6 FRAAAAAARAAARAAARRERRREEEERERARERERERAEAREARARERERAEEREEEREEREREEEERREERREREREES 
7 3 
: 
10 000025 RECALB = SEKTST#1 : RECALIBRATION MODULE 
12 3 
13 g 
21 .ENABL LSB 
22 005237 104203 001655 MOV #CR.INR,R3 ; POINT TO THE INITIATE RECALIBRATION COMMAND 
23 005241 021173 CALL _—s*iTALK 3 SEND-RECEIVE SDI COMMAND 
24 005242 115002 TST R2 : SEE IF ANY ERRORS OCCURRED 
35 005243 015273 BEQ 1$ : IF NOT, BRANCH 
27 : FROM HERE TO THE LABEL *S$* IS CODE THAT SEES IF THE HOST WAS 
28 ; HALTED LONG ENOUGH FOR THE DRIVE TO GO OFFLINE DURING THE RECEIVE 
23 ; LEVEL ? 2 OPERATION (NOTE THAT LONG TIMEOUTS TALK TO THE HOST <<DURING>> 
31 : 
005244 106202 147747 CMP #71.!ERSOFT#4000..R2 ; SEE IF TIMEOUT OF RECEIVE 
33 005246 055267 BNE 5$ ; IF NOT, BRANCH 
34 005247 020746 CALL  RTDS 3 GET 
35 005250 115002 TST R2 : SEE IF ERROR 
36 005251 015254 BEQ 4$ : IF NOT, BRANCH 
37 005252 024221 CALL § GORTRY : RETRY tHis MODULE 
38 005253 005315 BR $ : 
39 005254 102201 000100 4$: BIT #AVAIL,R1 ; SE IF DRIVE IS AVAILABLE 
40 005256 015266 BEQ $ : IF NOT, BRANCH 
41 005257 104303 001661 MOV CR. INR+L2.E0F ,R3 > GET INR OFFSET 
42 005261 105053 ADD RS_R3 : POINT TO RECALIBRATE ERROR COUNT 
005262 104131 MOV Rey R1 : G 
44 005263 117401 DEC R1 : DECREMENT COUNT 
45 005264 100131 MOV R1,(R3) > SAVE 
46 005265 005303 BR 33° ; 
47 005266 104052 6$: MOV R5,R2 3 FLAG ERROR 
48 005267 5$: CERROR 5,#SER7 ; REPORT SECONDARY ERROR 
005267 104200 005013 001110 MOV #SER7,HRO.0S 
49 005272 005315 BR 2s : EXIT 
50 005273 104653 000047 1$: MOV U.RCOV(RS),R3 =: GET RECOVERY PARAMETERS 
51 005275 103203 002000 BIC #RCBREQ,R3- 3 CLEAR RECALIBRATION REQUESTED FLAG 
32 005277 101203 004000 BIS #SEKREQ.R3 > MARK SEEK AS REQUIRED 
53 005301 100653 000047 MOV RS, U.RCOV(RS) +: SAVE 
54 005303 11400 3S: CLR + NO ERRORS 
55 005304 100652 000064 MOV R2,U.CCYL(RS) 3: ZERO CYLINDER 
56 005306 100652 000065 MOV R ~U.CCYL#1(R5) 
57 005310 100652 000066 MOV *U.CGRP(RS) 
58 005312 114001 CLR Ra : IMMIDATE CALL 
59 005313 104207 000023 MOV #SEEK,RO : SEEK IS NEXT MODULE 
60 005315 003231 2s: BR JMPRET : RETURN TO 
62 IF LE ,MAXADR-, 










SEQ 448 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR=-82 15:49:22 PAGE 119-1 
weeeeeeeee OVERLAY MODULE RECALB = RECALIBRATION 


63 MAY ADR 
64 


= +1 


SEQ 449 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 120 
eeeeeeteee OVERLAY MODULE DRPALL = DROP ALL SUBUNITS ON THIS D 


1 -SBTTL *#eeeeenee OVERLAY MODULE DRPALL = DROP ALL SUBUNITS ON THIS DRIVE 
2 005316 DMOVLY DA,AREAO 
005316 000105 « C sOUTPUT EDC FOR THIS OVERLAY 
3 FRAAAAAAAAAAAERARAREEREEERERERARERRAREREREREREREREERERERREREEEEREREEEEEEREEEEE 
4 fF RAAAAAAAAAERAEEARAAREEEEERERERAARRERERARRERAEARERERERREEREREEEEEEEEREEEEEEREEEEE 
5 FRAAAAAAAARAEAAEAAAARAEERREREARAREREREREAEREREEREREREREEREREREEAEEEARAEEREAREREEEEE 
6 FERRARA AAAAAAAREAARARAAAEERAAEAARAERAAAERERRARARRARERRERERERAEEREEEERERERERERREEE 
4 ; 
: 3 
19 000026 DRPALL = RECALB+1 
i 3 DROP ALL SUBUNITS ON THIS DRIVE AND REPORT 
14 ; NOTE: 
15 : THIS IS A VERY UNSTRUCTURED PIECE OF CODE <= IT HAS SEVERAL 
1g 3 JUMPS DIRECTLY INTO T SEVERAL DIFFERENT PLACES. 
18 -ENABL LSB 
19 004422 PUSH RS 3; SAVE R4 (JUST IN CASE) 
004422 100464 MOV R4,-(SP) 
20 004423 104200 005550 001105 MOV #MS2,HROQ.02 3; POINT TO MESSAGE 
21 004426 104207 001107 MOV #HRQ.04,R0 : POINT TO WHERE TO PUT UNITS 
22 0044 104053 MOV R5,R3 ; GET POINTER TO UNIT DATABASE 
23 004431 115403 INC : POINT TO SUBUNIT POINTERS 
24 00443 ASSUME U.SUBP,1 
25 004432 114001 CLR Ri 3 CLEAR INDEX 
26 004433 114004 CLR RS 3 CLEAR NUMBER OF SUBUNITS COUNT 
27 004434 104232 1$: MOV (R3)+,R2 : GET POINTER 
28 004435 074445 BMI 2s 3 IF NO SUBUNIT, BRANCH 
29 004436 104652 900063 MOV U.UNUM(RS).R2 3; GET BASE UNIT 
30 004440 105012 ADD R1,R 3 ADD OFFSET 
31 004441 100272 MOV R2,(RO)+ 3 MOVE TO OUTPUT BUFFER 
32 004442 104020 001104 MOV R2,HROQ.01 : MOVE TO UNIT NUMBER 
33 004444 115404 INC R4 : INC SUBUNIT COUNT 
34 004445 115401 23: INC R1 3: INC COUNT 
35 004446 106201 000003 CMP #3,R1 : SEE IF EXPIRED 
36 004450 0444634 BCC 1 : IF NOT, BRANCH 
37 004451 104647 004467 MOV SER18F-1(R4),RO ; POINT fo DRIVE LIST 
38 004453 104070 001106 MOV RO, .03 3; POINT TO CORRECT ERROR MESSAGE 
39 004455 104207 060015 MOV #MESSAG,RO 3 MESSAGE TO RO 
40 004457 021053 CALL HOSTRQ 3 REPORT 
41 004460 104651 000046 MOV U.PARM(RS) ,R1 3; GET UNIT PARAMETERS 
42 004462 101201 100000 BIS #DROP .R ; SET DROP BIT 
43 004464 100651 000046 MOV R1,U.PARM(RS) ; SAVE 
boctee 104264 ‘hail ms MOV (SP)+,R4 
+, 
45 004467 bosnis BR NOSUB 
47 004470 005435 SER18F: .WORD SERIBA 
48 004471 005431 -WORD SER18B 
49 00447, poses} -WORD SER18C 
50 004473 005421 eWORD SER18D 
33 DSABL LSB 


5 IF LE ,MAXADR-. 
+4 









SEQ 450 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 120-1 
eeeeeeenes OVERLAY MODULE DRPALL = DROP ALL SUBUNITS ON THIS D 


55 -ENDC 


en en ass ay 


SEQ 451! 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 121 
weeeeeeeee OVERLAY MODULE INSET = SET UP UNIT FOR INITIALZATIO 


1 .SBTTL ‘*eeeeeneee OVERLAY MODULE INSET = SET UP UNIT FOR INITIALZATION 

2 004474 DMOVLY IN,AREAI 

004474 000105 .WREDC sOUTPUT EDC FOR THIS OVERLAY | 
3 FRRAAEAARRAAAAAAARRAEREREEREEEERERAEEKRERERERAEEREREEREAERREREREREERERERREEEREEREE | 
4 FRAAAAARAAAAAAAEREREREEREREREEREREAEEERRERRERREERERRES A TEEREEEERREEREEEEEEEEEE | 
5 FRRARAARAAAAAREREERREREREEEERERRE CE HRRREERRRERHEES RARER REERK CREEREREEEEREREEEEE 
6 FERAAAAAAAAARARARAEARAEERRREREERREREERRERARRAREEAREARERERREREEREREEEREREEREEEEEEES | 
7 3 
; : 

10 000027 INSET = DRPALL+1 

2 ; INSET WILL SET UP EACH UNIT BEFORE IT STARTS RUNNING | 

14 .ENABL LSB 

15 004710 104657 000046 MOV U.PARM(RS),.RO  ; GET UNIT PARAMETERS 

16 004712 103207 004000 BIC aN j * NO LONGER NEW SUBUNITS 

17 004714 100657 000046 MOV RO,U.PARM(RS) : SAVE 

18 004716 114002 CLR R2 : NO ERRORS | 

19 004717 100652 000064 MOV R2,U.CCYL(RS) : CLEAR CYL+GROUP 

20 004721 10065 ¢ 000065 MOV R2.U.CCYL#1(R5) 

31 004723 10065 MOV _—swR2.U. CGRPCRS) | 

22 004725 114001 CLR R1 : IMMIDATE CALL | 

23 004726 104207 000030 MOV #COMCHR,RO > COMMON CHARACTERISTICS NEXT MODULE CALLED 

24 004730 003231 R JMPRET + RETURN TO R 

25 .DSABL LSB 

26 “IF LE ,MAXADR-. 

27 MAXADR = +1 | 
| 
| 
| 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 122 


SEQ 452 
seeneeeees OVERLAY MODULE COMCHR = SET UP COMMON CHARACTERISTI | 


1 .SBTTL *eeeeeeene OVERLAY MODULE COMCHR = SET UP COMMON CHARACTERISTICS | 
2 004731 DMOVLY CC,AREAI 
004731 000105 ~WREDC ;OUTPUT EDC FOR THIS OVERLAY 
3 PITITIIITITILITILLLLLILI LITTLE LITT TT TTT TLL T TTT TTT te 
4 FRAAAAAAARARARAEAEAAREEAREEEEEEERAEARAREEERERERERRERAEREREAEEREREREEEEREEEEEEEEEEEE } 
5 FRAAAAAAAAEAARERARREREEEEEREEERERRRERERRERRRRARERERERAERREREEEEEEEEREEEEERREEEEE 
6 fF RARAARERAEAAERAERARREREREEEREERARARERERRARERRAEARRARERARRERRREEERAEERRREEEREEEEEEE | 
7 : 
5 ; | 
10 000030 COMCHR = INSET#+1 | 
12 : GET COMMON CHARACTERISTICS AND ser UP THE ERROR RECOVERY LEVEL, | 
13 3 RETRIES, LONG TIMEOUT, AND SHORT TIMEOUT | 
15 .ENABL LSB 
16 05471€ 104203 004462 MOV #CR.GCR,R3 : POINT TO GET CHARACTERISTICS DATA BLOCK 
17 004712 021173 CALL _—«*TALK + GET CHARACTERISTICS 
18 004713 115002 TST : SEE IF ANY ERRORS OCCURRED 
19 004714 014732 BEQ 1$ : IF NOT, BRANCH 
20 004715 CERROR 5,ASER8 + REPORT SECONDARY ERROR 
004715 104200 005032 001110 v #SERB,HROQ.05 
21 004720 103200 100000 001105 BIC #C2DFTL,HRQ.02 =; CHANGE TO HARD ERROR 
22 004723 104200 060014 001103 MOV #ERRMC,HRQ.RQ  : COUNT 
23 004726 101200 000002 002223 BIS #DIE,M.PARM : FLAG INITIALIZATION ERROR 
24 004731 005036 BR $ : BRANCH TO EXIT 
25 004732 104300 001706 004525 1$: MOV ST+DRVID,DSERNM : SAVE DRIVE SERIAL NUMBER 
26 004735 104300 001707 004526 MOV ST+DRVID+1 ,DSERNM+1 : SAVE DRIVE SERIAL NUMBER 
27 004740 104300 001710 004527 MOV ST+DRVID+2,.DSERNM+2 : SAVE DRIVE SERIAL NUMBER 
28 004743 104307 001703 MOV ST#RETS,RO- : GET NUMBER OF RETRIES ALLOWED 
29 004745 110607 ROR RO : ROTATE TO CORRECT POSITION 
30 004746 110607 ROR RO 
31 004747 110607 ROR RO 
32 004750 110607 ROR RO 
33 004751 103207 177760 BIC #LBLONB, RO : CLEAR UNUSED giTs : 
34 004753 100657 000030 MOV RO,U.RTRY(RS) + SAVE IN UNIT PARAMETERS 
35 004755 104307 001704 ~ MOV LEV, + GET ERROR RECOVERY LEVELS 
36 004757 103207 177400 BIC #HIBYTE,R : CLEAR UNUSED BITS | 
37 004761 100657 000031 MOV RO,U.MLEV(RS) : SAVE IN UNIT PARAMETERS 
38 004763 104307 001704 MOV ST+ECCRSH,RO  : GET ECC THRESHOLD | 
39 004765 110707 SWAB RO : MOVE ECC THRESHOLD TO LOWER BYTE 
40 004766 103207 177400 BIC YTE RO : CLEAR UNUSED BITS | 
41 004770 100657 000032 MOV ROU ERETXRS) + SAVE 
42 004772 104307 001703 MOV ST+LONGTO,RO : GET LONG TIMEOUT | 
43 004774 103207 177760 BIC #LBLONB RO + CLEAR UNUSED BITS 
44 004776 025040 CALL TO : CALCULATE TIMEOU 
45 004777 100657 000034 MOV RO,U.SDIL(RS) + SAVE IN UNIT PARAMETERS | 
46 005001 104307 001702 MOV ST+SHRTTO,RO : GET SHORT TIMEOU 
47 005003 103207 177760 BIC #LBLONB,RO : CLEAR UNUSED BITS | 
48 005005 025040 CALL TO + CALCULATE TIMEOUT 
9 005006 100657 000033 MOV RO,U.SDIS(RS) : SAVE SHORT TIMEOUT IN UNIT PARAMETERS 
50 005010 114001 CLR R1 : CLEAR LO SEEK TIMEOUT | 
51 005011 114002 CLR R2 : CLEAR HI 
52 005012 105201 025762 4$: ADD #11250. .R1 : ADD 9 SEC TIMEOUT TO LO ORDER TIMEOUT 
53 005014 045016 BCC 3$ + IF NO CARRY, BRANCH | 
54 005015 115402 INC R2 + PROPOGATE CARRY | 
55 005016 117407 3$: DEC RO + DECREMENT TIMEOUT 












UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 122-1 
weeeeeeens OVERLAY MODULE COMCHR = SET UP COMMON CHARACTERISTI 











56 005017 05501 BNE 4$ : IF UNEXPIRED. BRANCH 
57 005020 11540 INC R2 : ROUND 
58 005021 100652 000011 MOV R2,U.MSTO(RS) : SAVE SEEK MASTER TIMEOUT 
59 005023 104307 001703 MOV ST¢RCTCPS,RO  ;: GET NUMBER R OF RCT COPIES 
60 005025 110707 SWAB OR : MOVE T WORD 
61 005026 103207 177760 BIC #LBLONB,RO : CLEAR. UNU UNUSED BITS 
62 005030 117407 DEC ; ADJUST FOR TEST 4 INTERNALS 
63 005031 100657 000057 MOV —-RO,U.COPY(RS) =: 
64 005033 104207 (00031 MOV —s #SPINUP,RO : SPINUP NEXT MODULE 
65 005035 114002 CLR : NO 
66 005036 114001 2$ CLR R1 : IMMIDATE CALL TO NEXT MODULE 
67 005037 003231 BR JMPRET : RETURN TO 
68 .DSABL LSB 
69 005040 TO 
a : CALCULATE THE TIMEOUT IN 9SEC INTERVALS (UDA SDI RECEIVE XFC TAKES 
73 : 
74 005040 104201 000001 - MOVs #1, R1 : SET UP Loge SHIFTER 
75 005042 105011 1$: ADD R1.R1 : DOUBLE THE TIMEOUT VALUE 
7% 005043 117407 DEC RO : DECREMENT. COUNT 
77 005044 055042 BNE 1$ : IF COUNT INCOMPLETE, BRANCH 
78 005045 115407 2$: INC RO : INCREMENT 9 SEC C 
79 005046 107201 000011 SUB s«#'92 RT > SUBTRACT 9 SEC FROM TIMEOUT 
80 003050 0 BPL $ : IF MORE TIME TO GO, BRANCH 
RETURN : RETURN TO CALLING PROGRAM 
F LE ,MAXADR=. 


SEQ 453 





UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 123 
weeeeeeeee OVERLAY MODULE SPINUP = SPIN THE DRIVE UP 


00505 
005052 000105 


NOMIPONUINIAD RORY 3 a os os os 
CBOUESWR —COVONOULSWN—“OOOBVYOULW hwo 


seeeeseeeess 


™ 
oa 
~“ 
Ww 
w 


-SBTTL seeeeaweee OVERLAY MODULE SPINUP = SPIN THE DRIVE UP 
DMOVLY SP,AREAI 
dC sOUTPUT EDC FOR THIS OVERLAY 


oW 
SRAAAAAAARARAARAERAEAAAAEEREEAERERRAAREAERAERREREEEERAERERREEREEERREEAEEEREREEEEEE 
S RAAAAAAARERRAAEAAARAAERERERAERRERRRREREREREERERRAEERREREEEEERERERERAREREEEEEE 
S RARAAARARARRAAERRERRERERRERERERERRERERREAERRERARRRARERERRAEEREREAERAEEEEREEEEEEEE 
REAR AARRAAEAAAEARARARAEAAEARAEERARAEREREERAEREERAREERERAERERRAAERARAEREREEEEREEEE 


Se Se Se Cte Se Ge Ge Ge Ge Se 


SPINUP = COMCHR+1 
SPINUP WILL SPIN THE DRIV UP IF SPUN DOWN 
.ENABL LSB 
MOV «ACR. RUN,R3 : POINT TO RUN COMMAND 
CALL TALK : SE 
TST : SEE IF ERROR OCCURRED 
BNE 1$ : IF So, H 
NOV SORT, RO i SORT NEXT MODULE 
1$:  CERROR 5,#SER6 : REPORT SECONDARY ERROR 


#SER6,HRQ.05 
BIC #C2DFTL,HRQ.02 
MOV #ERRMC ,HRQ.ROQ 
BIS #DIE,M.PARM 
2$: cLR Ri 


JMPRET 
IF LE ,MAXADR-. 


V 
CHANGE TO HARD ERROR 
COUN 
FLAG INITIALIZATION ERROR 
; IMMIDATE CALL 
RETUR 27 


MAXADR = 





SEQ 455 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 124 
eeeeeeeees OVERLAY MODULE SORT = SORT ALL CYLINDERS, BEGIN/SET 





1 -SBTTL seneneeee OVERLAY MODULE SORT = SORT ALL CYLINDERS, BEGIN/SETS, AND BAD BLOCKS 
2 004736 DMOVLY SO,AREAI 
004736 000105 WREDC sOUTPUT EDC FOR THIS OVERLAY 
3 [RARRAARRRERRAERAERARERRERREERHERRERRREENEERRERE RE ARERRERRREEREREREEREREEEEEe 
4 FARRAR ARAAAAARAREAARERERRERERRAERERAEKRERERERRERREERRAEERREREREREREEEEREREREEEE 
5 J RAAAARAAAAAEAAAAERERAEEEEREEREEREREARERERERRAERRERERREERAEERAERERAEEREEEEEREEEEE 
6 FRAARARARERAEREREREAERERERERERARERREREAERARRERRAEAERRAEEERERERAEEERERREREEREEEEREEEE } 
Q : | 
g : 
10 000032 SORT = _ SPINUP+1 | 
12 ; SORT WILL SORT ALL BEGIN/END SETS, BAD BLOCKS AND TRACKS/GROUPS IN 
13 : ASCENDING ORDER | 
15 .ENABL LSB 
16 004710 PUSH  <R4,R5> : SAVE R4 AND RS 
004710 100464 MOV R4,=(SP) 
004711 100465 MOV R5.=(SP) 
17 004712 115405 INC RS 3 POINT TO SUBUNIT POINTERS | 
18 004713 ASSUME U, SUBP,1 | 
19 004713 104204 000004 MOV : MAXIMUM OF 4 SUBUNITS 
20 004715 104257 4$: MOV (RS) +, RO ; RO POINTS TO SUBUNIT. DATABASE 
21 004716 074733 BMI : IF NO SUBUNIT, BRANCH 
22 004717 PUSH <4, R5> ; SAVE R4 AND R5 
004717 100464 MOV R4,-(SP) 
004720 100465 MOV R5.=(SP) 
23 004721 104171 MOV (RO) ,R1 : GET SUBUNIT PARAMETERS 
24 004722 ASSUME $.PARM,0 | 
25 004722 102201 000040 BIT WBEUSED,R1 : SEE IF BEGIN/END SETS USED 
26 004724 054727 BNE : IF BRANCH 
27 004725 025103 CALL  SORTTG : SORT Oe TRACKS/GROUPS 
28 004726 004730 BR > BRANCH 
29 004727 024744 1$: CALL  SORTBE : SORT THE BEGIN/END SETS | 
30 004730 025034 2$: CALL SORTBB : SORT THE BAD BLOCKS 
31 004731 POP <R5,R4> : RESTORE RS, R4 | 
004731 104265 MOV (SP)+,R5 
004732 104264 MOV (SP)+,R4 
32 004733 117404 3$: DEC R4 3 DECREMENT COUNT 
33 004734 054715 BNE 4$ : IF INCOMPLETE, BRANCH 
34 004735 POP <R5,R4> : RESTORE RS, R4 
004735 104265 MOV (SP)+,R5 
004736 104264 MOV (SP)+.R4 
35 004737 114001 CLR R1 3 IMMIDATE CALL TO NEXT MODULE | 
36 004740 114002 CLR R2 : NO ERRORS 
37 004741 104207 000033 MOV #SCHARO,RO : SCHARO NEXT MODULE 
38 004743 003231 BR JMPRET 
39 .DSABL LSB 


1 

2 004744 
3 

4 

5 

6 004744 
7 004746 
8 004747 
9 004751 
10 Ope ees 
11 00475 
12 
13 

14 
15 004755 
16 004757 
17 004761 
18 004763 
19 004764 
20 004765 
21 004767 
22 004771 
23 004772 
24 004773 
25 004775 
26 004776 
27 005 

28 005002 





WwWwrorwry 


AMO 
Re 


tt Oo ot od 
orecisersece 
VUNMOVIWO NW 
NUMNIWUNNEWNnN = 


000016 
000013 


000004 
000003 
170000 
000003 
000002 
000002 


000003 


000004 
000003 


sah DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 125 
ORTBE = SORT THE BEGIN/END SETS IN ASCENDING ORDER 


soaree SORTBE = SORT THE BEGIN/END SETS IN ASCENDING ORDER 


Sete te 


10$: 


3$: 











SORT THE BEGIN/END SETS IN ASCENDING ORDER 


BM 
MOV +a oa oR2 


MOV Ree R 
ADD 4,R3 


MOV $.BESS+3(RO) ,R2 : ie ONLY ONE BEGIN END LY 


EXIT (ALLREADY SORTED) 
Re WILL POINT TO START OF oe SETS 
POINTS TO BEGIN/END S$ 
WILL POINT TO NEXT BE GIN/END SET 
R3 POINTS TO BEGIN/END SETS 


28 BIT COMPARE FOR BEGIN/END SET SORTING 


MOV 3(R3) ,R4 


BIC #*CHBHINB,R4 
MOV 3(R2),R 

CMP R4,RS 

BNE 10$ 

MOV IR ) RS 


MOV SAS) CRS 
2s 


#4,R2 
MOV 3(R2),R5 
1$ 


GET WORD THAT R3 POINTS TO 
STRIP _OFF UNUSED BITS 
ua — WORD TO COMPARE 


‘ARE 
ir D gp AM IS FOUND, BRANCH 
GET OTHER WORD TO COMPARE 


IF R2=>B/E <= R3=>B/E THEN ALLREADY IN ORDER 


SWAP TE BEGIN/END SETS 
SEE IF R3->END-OF-LIST 
IF ANCH 


BR 
R2=>NEXT BEGIN/END SET 
SEE IF > cee eee 


IF NOT, BRANC 
; RETURN TO COPYSU 


SEQ 456 





1 
2 005004 
3 
& 
5 
6 
7 005004 
005004 
005005 
005006 
8 005007 
9 005011 
10 005012 
11 005013 
12 005014 
13 065015 
14 005016 
15 005017 
16 005020 
17 005021 
18 005022 
19 005024 
20 00502 


sssss 
2 
on 


005032 
24 005033 


Ss 
WN —ONWWNOAAD 


Ww 
== 


CO a8 et as od 0 os 


vw 


ne 
fret + try pate tory 


= 
= 


SER SSSSeeee 
rs 


NmMMNN ——o 
an rw 
=—MwWw WwW 


000003 


177400 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR=-82 15:49:22 PAGE 126 
SWAPBE = IF BEGIN/END SETS OUT OF ORDER, SWAP 


-SBTTL SWAPBE = IF BEGIN/END SETS OUT OF ORDER, SWAP 
SWAPBE : 


1$: 


SWAP THE BEGIN/ 
POINTED TO BY R 


PUSH 


<R1,R2,R3> 


RS, (R2)+ 


(R2) RG 
(R3) .RS 
RS_R 
#HIBYTE RS 
R5,R1 
R1_R4 
Rs, (R3) 
RS. (R2) 
Bas. R2,R1> 


BND 


SET POINTED TO BY R2 WITH THE ee SEy 
KEEPING THE END-OF=LIST FLAG INTACT 


SAVE POINTERS 


MOV R1,-(SP) 
MOV R2,=(SP) 
MOV R3,-(SP) 


SET UP Wc COUNT 

GET WORD FROM SET 

AR WORD FROM OTHER SET 
IAP WORD 


SUAP oer 
DECREMENT COUNT 
LOOP in tien aT 
GET D FROM SET 
GET WORD FROM OTHER SET 

MOVE TO TEMP STORAGE 
STRIP OFF END-OF=LIST FLAG, IF ANY 
R1 CONTAINS END-OF=LIST FLAG, IF a 
R4 NOW HAS END-OF-LIST FLAG, IF AN 
an WORD (AND EOL FLAG, IF ANY) 


Sw 
RESTORE THE REGISTERS 


MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+,R1 


RETURN TO SORTBE 





SEQ 457 






005034 


oe a at os 2 os es es 
3 DOONOULWN—ODODNOUS WN 


0 
21 005051 


RARARAE 
SANGHA 


Wu 
NWONONON 


ecazecozea 
NRMMWwWwrYPN 


Sssseessses 

SONOAA =] 
MOVUWNINWWNO 
SNES 


3 


ow Oe ae at a 8 a nd tt 
BRouer 

ROSE 

MUNWU— WM 


000012 
000001 


000002 


000001 
000001 
177400 
000001 
000001 
000001 


000002 
000001 


UDATS DISK EXERCISER DMACR X04.01 13-APR=-82 15:49:22 PAGE 127 
SORTBB = SORT THE BAD BLOCKS IN ASCENDING ORDER 


-SBTTL SORTBB - SORT THE BAD BLOCKS IN ASCENDING ORDER 
SORTBB: 


3$: 


4$: 


SORT THE BAD BLOCKS IN ASCENDING ORDER 


MOV $.BADP(RO) ,R2 
BEQ 

MOV 1(R2),R5 

BMI 4$ 

MOV Rg Re 

ADD #2,R3 

CALL CBB2 

BC $ 


C 3 
SWAPBB - IF BAD BLOCKS 


OU 


; GET THE BAD BLOCK POINTER 


IF NO BAD BLOCKS, BRANCH 
IF ONLY BLOC 


OMP TWO BLOCKS 
IF IN ASCENDING ORDER, BRANCH 
OF ORDER, SWAP 


SWAP THE BAD BLOCKS, RETAINING THE END-OF=LIST POINTER AT THE END 


PUSH 


R1 


(R2) ,R4 
(R3) RS 
R4 


R5, 
#HIBYTE RS 
R5.R 
R1,R4 
R4,1(R3) 
R5,1(R2) 
R1 


1(R3) RS 
2s 


#2,R2 
1(R2) ,R5 
1$ 


Sete Se Se Ge Ge Se Be Se Be Be Be Be 


SAVE R1 

MOV R1,-(SP) 
GET LO ORDER BAD BLOCK OF 1ST SET 
A ORDER BAD BLOCK OF 2ND SET 


WAP 

GET HI ORDER BAD BLOCK OF 1ST SET 
GET HI ORDER BAD BLOCK OF 2ND SET 
MOVE TO R1 


STRIP OFF END-OF=LIST FLAG, IF ANY 
R1_ CONTAINS END-OF=LIST FLAG, IF ANY 
+ A aati FLAG IN R4, IF ANY 


SWAP 
RESTORE R1 
MOV (SP)+,R1 


; SEE IF END-OF-LIST 
CH 


IF NOT 


- BRAN 
; R2 POINTS TO oe | BLOCK 


SEE IF END-OF=LIS 
IF NOT, BRANCH 
RETURN TO COPYSU 


—y 
{ 


SEQ 458 










UDAT4 DISK EXERCISER DMACR X04.01 13=APR-82 15:49:22 PAGE 128 
SORTTG = SORT THE TRACK/GROUPS IN ASCENDING ORDER 


1 .SBTTL SORTTG = SORT THE TRACK/GROUPS IN ASCENDING ORDER 
- 005103 SORTTG: 

4 : SORTTG WILL SORT THE TRACKS OR GROUPS IN ASCENDING ORDER 

6 005103 104201 000017 MOV #S.TGSS,R1 : R1 WILL POINT TO TRACK/GROUP START 

7 005105 105071 ADD RO,R1 + R1 POINTS TO TRACK/GROUP START 

8 005106 104115 1$: MOV (RI) RS * GET START OF LIST 

9 005107 075130 BMI 4$ : IF NEGATIVE, WHOLE LIST IS SORTED, EXIT 
10 005110 104012 MOV R1,R2 : Re WILL POINT TO NEXT LIST MEMBER 

11 005111 115408 2$: INC R2 : R2 POINTS TO NEXT MEMBER 

lg 005112 10412 MOV (R2) RS : GET NEXT 

13 005113 104054 MOV R5,R + COPY TO R4 

14 005114 103205 177400 BIC #HIBYTE RS : CLEAR END-OF-LIST FLAG (IF ANY) 

15 005116 107054 SUB R5,R4 3; SAVE END-OF-LIST FLAG (IF ANY) 

16 005117 106115 CMP (RI) RS : SEE IF THE MEMBERS ARE IN ORDER 

17 005120 075124 BMI 3$ 3 IF SO, BRANCH 

18 005121 101114 BIS (R1) RG : COPY START OF LIST TO R4, RETAINING EOL FLAG 
19 005122 100115 MOV RS, (R1) + SWAP 
20 005123 100124 MOV Ro. ( + SWAP 
21 005124 104125 3$: MOV (R2),R5 : GET MEMBER THAT SORT POINTER POINTS TO 
22 005125 035111 BPL 2$ : IF NOT END-OF=LIST, BRANCH 

23 005126 115401 INC 1 + POINT TO NEXT START OF LIST 

24 005127 005106 BR $ : LOOP 
25 005130 000000 4$: RETURN : RETURN TO CALLING PROGRAM 

26 IF LE ,MAXADR=. 
27 MAXADR = +1 
28 .ENDC 





SEQ 459 
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a 
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SN NSN NNN 


arisahate ~opne ee 
MEWNNS NUW 
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UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 129 
eeeeeeeete OVERLAY MODULE SCHARO = SET UP SUBUNITS, CHECK THAT 


SEQ 460 


-SBTTL seeeeeneee OVERLAY MODULE SCHARO = SET UP SUBUNITS, CHECK THAT ALL PARAMETERS ARE WI 
DMOVLY SO0,AREAI 


sOUTPUT EDC FOR THIS OVERLAY 


s 
5 RRAAAEAAAAAAAAAAAAAREAAEAAAAAARARARARARRAREHRAEERARAEARAEAREREREEEEEEEREEREREREEE 
S RAAAAAAAAAAAAAAAAAAAAAAAEAAAEAAERRARAARERAERRERERRERAEAAAAREEREERAEEREREEEEEEEE 
SERRA AAAERARARAAAEAAERAEEEAERAERAAAAAERARAEERERAEAEERERERAAEAEREEEEREREEEAEEEREEEEE 
f RARAAAAAAAAAARARAEAAAAARARARARAERRARRARARRARERERRARAARAAEERAREREAREREREEREEEEEEEE 


SORT+1 


INSCHR WILL GET THE SUBUNIT CHARACTERISTICS AND INITILIZE THE 
SUBUNIT PARAMETERS 


-ENABL LSB 
PUSH R4 3 SAVE R4 (SUBUNIT) POINTER 


MOV R4,R1 : R1_POINTS TO SUBUNIT 
MOV U.SUBU(R5),.RO ; GET SUBUNIT OFFSET 


Be Se Sete te ees 
in] 
So 
“ 


MOV R4,-(SP) 


.SBTTL SMASK = CALCULATE THE SUBUNIT MASK 
:SMASK 
: SMASK TAKES THE UNIT OFFSET (0 = 3) IN RO AND CHANGES IT TO THE 
; SUBUNIT MASK (0001 = 1000) 
PUSH RI : SAVE R1 
MOV R1,-(SP) 
MOV RO,R1 : MOVE RO TO R1 
MOV #20,R0 : SUBUNIT 0 MASK 
TST R1 > SEE IF SUBUNIT MASK SHIFTED TO CORRECT POSITION 
SMASKL: BEQ SMASKX : IF SO, BRANCH 
ROL RO : SHIFT MASK 
DEC R1 : DECREMENT COUNT 
BR SMASKL + BRANCH 
SMASKX: POP R1 t RESTORE R1 
MOV (SP)+,R1 
MOV RO, SUBUNT : MOVE TO SDI BUFFER 
MOV #CR.SCRLR3 > POINT TO COMMAND 
PUSH RI + SAVE R1 
MOV R1,=(SP) 
CALL _—sCTALK : SDI EXCHANGE 
POP R1 : RESTORE R1 
MOV (SP)+,R1 
TST : SEE IF ERROR OCCURRED 
BNE 13$ : IF SO, CH 
MOV R2.$.MEGR(RI) : ZERO MEGABIT COUNT 
MOV R2,S.MEGW(R1) : ZERO MEGABIT COUNT 
MOV #ST,R3 ; R3 POINTS TO SUBUNIT CHARACTERISTCS 
CMP #F IRSTULRS t IS RS => FIRST UNIT? 
BEQ i$ : IF SO, BRANCH 
MOV #F IRSTU,R2 + R2 =>’FIRST UNIT 
PUSH <R1,R3,R4> 3 SAVE REGS 
MOV R1,=(SP) 
MOV R3.-(SP) 
MOV R4.=(SP) 
CALL _—s* TRAV ; TRAVERSE THE UNITS TO FIND IF SUBUNIT CHAR ARE EQUAL 





SK 


99 005064 
100 005065 


SPeas F 


ss 
on 
= 


2833s sBOewwwew 
—_ 
S on 
Ss ooo-0o 
INSWWN= 


BAS 
Ww 

Nm 
S255 
WWM 


Ww 
Sis 
Nws 


set 
NO 


2 3 O 4900-00-02] ~00O22 2244 
seis Ss 
Qrormmuarvontuntue es 


R 
vw 
So 


UDATS DISK EXERCISER DMACR X04 
SMA = CALCULATE THE SUBUNIT 


000023 


000007 


000040 
000200 


00170 
00172 


Bo eos 
00170 


000003 
000034 


000063 001106 9$: 


.01 
MAS 


13=APR=82 15:49:22 PAGE 129-1 


K 


18: 


2s: 


3$: 


4$: 
5$: 


6$: 


7$: 


POP 


<R4,R3,R1> 


RO 
3$ 
#19. ,R0 
RO 


GE TMEM 
RO.S.SCHR(R1) 
R2 


(R3)+,R4 
R4, (RO)+ 
R2 


2s 

(R1) ,RO 
S.PARM,0 
#DCYLS RO 
4% 


#D$,R2 
ST+RBNTRK 


R3 
#HIBYTE !200,R3 


5 
#L$,R2 
R 


R2,S.LETR(R1) 
) Mes dla R3 


IBYTE RS 


R3,SECTRK 
R3,S.TRKL(R1) 
COMPSC 


CLCMAX 
(R1) ,RO 


Ss. ° 
#BEUSED,RO 
coe. veh RO 
CHKCYL 

R2 


S$ 
CHKBES 
R2 


98 
ST+LBNCYL .R2 
ST+XBNCYL .R2 
R2,S.SDCL(R1) 
ge *tentreet oR2 


R 
R3.5. SDCL+1(R1) 


#SCHAR1 RO 


U.UNUM(RS) ,HRO.0 


SEQ 461 


RESTORE REGS 
MOV (SP)+,R4 
MOV (SP)+,R3 


MOV (SP)+-R1 
WERE ANY CHARS EQUAL? __ 
IF SO, BRANCH (RO WILL BE NONE ZERO IF MATCH) 
MOVE WORD COUNT TO RO 


SAVE COUNT 
MOV RO,-(SP) 


: GET SOME MEMORY 
: STORE POINTER TO IN SUBUNIT PARAMETERS 


§ 


IF SO, BR 
; R2 CONTAINS 


; MOV: 
GET HI 


; RESTORE COUNT IN R2 


MOV (SP)+,R2 
MOVE ONE WORD OF S CHAR TO RO 
MOVE TO SUBUNIT CHAR AREA 
aot WORD COUNT 


S.PARM IS ZERO 
; iF . DIAGNOSTIC CYLINDERS ARE USED 


MOVE THE CHARACTER °D* (TO MAKE DBN) TO R3 
GET RBN’S PER TRACK 

CLEAR UNUSED BITS 

BRANCH 


MOVE THE CHARACTER ‘L* (TO MAKE LBN) TO R3 
aaa Se NO RBN’S PER TRACK ADDED 


ADD LBNS PER TRACK (TO ZERO IF LBN AREA) 
CLEAR UNUSED BITS 
SAVE IN SECTORS PER TRACK 


; SAVE IN TRACK LENGTH 


COMPUTE SECTORS/GROUP AND SECTORS/CYL 
CALCULATE MAXIMUM DBN NUMBER (IN CASE NEEDED) 
GET SUBUNIT PARAMETERS 


; ASSUME THAT S.PARM I 


S ZERO 
ie IF a ba SETS ARE USED 


NOT, BRANC 
SEE IF WE ALLREADY HAVE BEGIN/END SETS 
IF SO, BRANCH 
CONVERT THE CYLS TO BN'S 
SEE IF AN ERROR OCCURRED 
IF SO CH 


- BR 
; CHECK THE BEGIN/END AL, FOR ERRORS 


s 

SEE _IF AN ERROR OCCURRE 
ANCH 

LO LON CYLS 
ADD LO XBN CYL 
E TO LO STARTING DIAG CYL 
ORDER LBN CYLS 
ARRY, BR 


IF NOC ANCH 


; PROPOGATE CARRY 
; Ah a STARTING DIAG CYL 


Tle IS NEXT MODULE 
3 GET STARTING UNIT NUMBER 


ere ere ee enn a a a e+ 


38 
all - 


33 
’ 
235 


ae a Hb et ed 
FAARUSUNLRRGLSVARAANNASVRRONNSS AGH VRRaS 


—_ 
VEARWVASSRIEARASS 


SSSSSSsssossosoossossossosooSooSosssssesss 


MAAAAMAMAAAAMAMAMAU AMMA AMMA AMI 
kd ek ek a ek ed ed ed td ad td ot ot ot ot oo ot ot ot ot ot oo oo 


118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 


105650 
104307 


ee ee ee) 
VNOo=— 
WWN 


—_ 
tr 
Sas 
WWWWI 


are 
Wu 
Wuiwok es 


000050 
001103 


000002 
000001 


000050 
100000 


000050 


000050 
000003 


000001 


001106 


002223 


10$: 


118: 
12$: 
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SMASK = CALCULATE THE SUBUNIT 


U. SUBU(RS) ,HRO.03 
HR 0 s SET 


HOST 
#DIE,M.PARM 
au oR1 


R5, 
U. SUBUCRS), R1 
(R1) ,RO 


#DROP R3 


R3, (RO) 


R2 

U. SUBU(RS) ,R3 
R3,U. SUBU(RS) 
#3,R3 


11$ 


#U. SUBP RS 
R5.R3 
(R3) ,R3 


(R3) ,R1 


DROP, 100000 
12$ 


R3 
R3,U. SUBU(RS) 
R3 


14$ 
#GETSER RO 
15$ 

5 .ASERS 


#C2DFTL,HRQ.02 
#ERRMC ,HRO.RO 


#D01E,.A.PARM 
#SCHARO,RO 
R1 

R4 

JMPRET 





BR 
; WILL POINT TO NEXT SUBUNIT POINTER 
; ADD POINTER TO UNIT DATABASE 
GET POINTER 


Be Se Se Se Ge Se 


SEQ 462 


D OFFSET 
we 10 REPORT ERROR 


FLAG. rey ai ey ERROR 
Ri WILL POINT Ltt pol wee 
R1 POINTS AT SUBUNIT PO NTERS 
R1 POINTS AT POINTER TO SUBUNIT BEING HANDLED 
RO POINTS TO SUBUNIT BEGING HANDLED 
MOVE DROP FLAG TO R3 
DROP THIS SUBUNIT 


NO ERRORS 
; GET SUBUNIT OFFSET 
NEXT SUBUNIT 
SAVE 
; SEE IF VALID OFFSET 
IF NOT, BRANCH 
Bcc -*2 
11$ 


IF NO SUBUNIT, BRANCH 
GET SUBUNIT PARAMETERS 


IF DROPPED, BRANCH 
EXIT 

NO SUBUNITS 

SAVE 


IF SO, BRANCH 
AE NEXT MODULE 
REPORT SECONDARY ERROR 
ros HRQ.05 

CHANGE ERROR TO HARD ERR 
COUNT ERROR 
ae Megs gti ERROR 

THIS MODULE 
IMMIDATE CALL TO NEXT MODULE 
RESTORE R4 


MOV (SP)+,R4 


RETURN TO 141 


SEQ 463 
UDATS DISK EXERCISER DMACR X04.01_ 13-APR=-82 15:49:22 PAGE 130 
TRAV = TRAVERSE THOUGH THE UNITS TO FIND SUBUNIT CHARS THAT MA 


»SBTTL TRAV = TRAVERSE THOUGH THE UNITS TO FIND SUBUNIT CHARS THAT MATCH 


5 005165 TRAV: PUSH R2 : SAVE R2 => UNIT 
005165 100462 MOV R2,=(SP) 
3 005166 025176 CALL  SUBTRV 3 GO TRAVERSE SUBUNITS 
4 00516 POP R2 + RESTORE R2 
005167 104262 MOV (SP)+,R2 
5 005170 115007 TST RO : FOUND A MATCH 
6 005171 055175 BNE 1$ : IF SO, BRANCH 
7 005172 104122 MOV (R2) ,R2 : ELSE, CHECK NEXT UNIT 
8 005173 106052 CMP RS,R2 : ARE wif POINTING TO SAME UNIT? 
9 005174 055165 BNE T : IF (No 
10 005175 000000 1$: RE TURN : ELSE, "eyf? 
12 .SBTTL SUBTRV = TRAVERSE THROUGH SUBUNITS TO FIND SUBUNIT CHARS THAT MATCH 
13 005176 104204 000004 SUBTRV: MOV #4,R4 : R1 1S COUNTER TO END | 
14 (05200 115402 INC R2- : R2 => SUBUNIT PARAMETER POINTER | 
15 005201 ASSUME U.SUBP,1 
16 005201 104223 1$: MOV (R2)+,R3 : R3 HAS ADDRESS ot SUBUNIT PARAMETER 
17 005202 075214 BMI 3 : IF MINUS, NOT A GOOD SUBUNIT 
18 005203 104637 000007 MOV S.SCHR(R3),RO : ho => SUBUNIT CHAR 
19 005205 PUSH  <R4,R2> 
005205 100464 MOV R4,-(SP) 
005206 100462 MOV R2.=(SP) 
20 005207 025217 CALL = SCHRCP : CHECK SUBUNIT CHARACTERISTICS 
21 005210 <R2,R4> 
005210 104262 MOV (SP)+,R2 
005211 104264 MOV (SP)+.R4 
22 005212 115007 TST RO : FIND A MATCH? 
23 005213 055216 BNE 3$ : IF SO, EXIT 
24 005214 117404 2s: DEC RG : ELSE, ARE ALL SUBUNITS DONE FOR THIS UNIT? 
25 005215 055201 BNE 1$ : IF NOT, BRANCH 
36 005216 000000 38: RETURN 
28 .SBTTL SCHRCP = SUBUNIT CHARACTERISTICS COMPARE 
29 3 *** RO = 0 IF NO MATCH OR RO => SUBUNIT CHAR IF THERE IS A MATCH 
30 005217 SCHRCP: PUSH <RO,R1> 
005217 100467 MOV RO,=(SP) 
005220 100461 MOV R1.=(SP) 
31 005221 104204 001702 MOV #ST.RG : RG => CHARACTERISTICS 
32 005223 104201 00002 MOV #19.,R : R1 = # OF WORDS TO COMPARE 
33 005225 10424¢ 1$: MOV (RG)+,R2 : COMPARE CHARACTERISTICS 
34 005226 10627 CMP (RO)+-R2 ; QUAL? 
35 005227 055237 BNE : IF NO 
36 005230 117401 DEC R1 : ELSE. rE Ne T WORD 
37 005231 055225 E 1$ : IF NOT DONE EM COMPARISON, BRANCH 
38 005232 <R1,R0> : RESTORE REGS 
005232 104261 MOV ($P)*, R1 
005233 104267 MOV (SP)+.RO 
39 005234 100617 000007 MOV RO,S.SCHR(R1) =; AND STORE POINT TO CHAR INTO SUBUNIT PARAM 
40 005236 005242 BR 3$ + AND EXIT WITH MATCH 
41 008937 2s: POP <R1,RO0> 
005237 104261 MOV (SP)+,R1 
42 005241 192667 CLR RO RO = 0 (NO MATCH) emalart atte 
g = 
6g 905341 000000 3S: RETURN 





—— 


| L 4 
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CHKCYL = CHECK VALIDITY OF STARTING AND ENDING CYLS, CONVERT T 
mcm: CHKCYL = CHECK VALIDITY OF STARTING AND ENDING CYLS, CONVERT TO BEGIN/END SET 


005243 


ad ats 5 3 td od 


1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
20 


00 
51 005345 





SoS RUERES 


Oem eww oso wwe 
— 
ARE 

DWN, 

&r 


ob 
aE 


RSG=L=R 
ENN 
SYS 


— 


at at 
S5x 
NWWNWUIN SAU 


23 
=o 


2s- saat Oud = 
SRSSIERSIE TS 
“SEISAS2SS 
ANN NASON NWS 


eS BE 


000 
177777 


000013 
000001 


c 


2$: 


3$: 


4$: 


5$: 
6$: 


9$: 


10$: 


CALCULATE THE eee AND ENDING BN'S FROM THE GIVEN STARTING 
AND ENDING CYL 


PUSH = RS : SAVE R4, RS 
MOV RS,=(SP) 
MoV $.BESS+2(R1),R4 ; R4 HAS LO STARTING CYL 
MOV S.BESS+3(R1).R5 : RS HAS HI STARTING cL 
BIC #100000,R5 CLEAR EOL FLAG (IF 
CALL CALCULATE STARTING aN. On THAT CYL 
TST SEE IF ANY ERROR OCCURRED 
BNE 10$ IF SO, BRANC 
MOV RO,S.BESS+2(R1) : SAVE LO ORDER STARTING BN 
Bis #100000,R3 SET END=OF-LIST FLAG 
V R3,S.BESS+3(R1) : SAVE HI ORDER STARTING BN 


MOV S.BESS+1(R1),R5 
CMP 


G CYL 
#-1, D DEFAULT TO HIGHEST LBN 


BEQ 4% IF SO, BR 

MOV S.BESS(R1) ,R4 GET LO +r ENDING CYL 

ADD #1,R4 FIND STARTING BN OF NEXT CYL 
BCC 2s IF NO ate ti BRANCH 

INC RS PROPOGATE CARRY 

CALL CYLBN oS ee yl, BN OF NEXT CYL 
TST R2 SEE IF ANY ERRORS 

BNE 10$ IF SO, BRAN ANCH 

SUB #1,R0 GET LAST BN OF PREVIOUS CYL 
BCC 3$ IF NO CARRY, BRANCH 

DEC R3 ; PROPOGATE CARRY 

MOV RO,S.BESS(R1) |; SAVE LO ORDER ENDING BN 


MOV R3,S.BESS+1(R1) ; SAVE HI ORDER ENDING BN 
93° XIT 


Be Se Se Ge Se Se Fe Fe Ge Ge Ge Ge Ge Ge Be Ge Ge Be Ge Ge Ge Se Be Ge Ge Be Se Se Se Se Se Se Be Ge Ge Be Se Se Se Se Se Se Se 


V wit ry GET eon aces by 
ASSUME S.PARM,0 ASSUME THA ARM IS ZERO 
BIT #DCYLS,RO SEE IF DIAGNOSTIC CYLINDERS USED 
BNE F SO, BRANCH 
MOV ST+LBNHST RO GET LO ORDER ENDING LBN 
SUB e LAST LBN IN LON AREA 
MOV RO,S.BESS(R1) SAVE LO ORDER 
MOV ST+LBNHST+1,RO GET HI ORDER 
BCC 5$ IF NO CARRY, BRANCH 
DEC RO PROPOGATE CARRY 
= G9 -5.8ESS01 (Rt) save HI ORDER 
MOV MAXDBN,, RO 1 LO ORDER MAX DBN 
MOV RO.S.BESS(R1) 

MOV MAXDBN+1 ,RO eer HI ORDER 
MOV RO,S.BESS+1(R1) AVE 

CLR R NO ERRORS 
POP R RESTORE 


MOV (SP)+,R5 


SEQ 464 
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~ GIVEN A CYLINDER, CALCULATE STARTING BN ON THAT CYLIN 


S 
rs 
o 


eas 
NSO VONAULSWN $0 COONAN wn 


SoSSSoSSSoSSS 


$35 


29 005417 


Sete te tets 


S83888 


Rss 
Vinui 
MEN 


S=es 
SResSe Tess 


sph CYLBN = GIVEN A CYLINDER, CALCULATE STARTING BN ON THAT CYLINDER 


TAKING THE CYL GIVEN IN R4,R5 CALCULATE THE FIRST BN ON THAT 
sok oe RETURN IN R2,R3. IF BN EXCEEDS 28 BITS, REPORT 


CLR RO : CLEAR THE PRODUCT AREA 
CLR R3 : CLEAR THE PRODUCT AREA 
TST RG : SEE IF LO ORDER IS ZERO 
BNE 1$ : IF NOT, BRANCH 

TST R5 : SEE IF HI ORDER IS ZERO 
BEQ 5$ : IF SO, BRANCH AND EXIT 
SUB #1,R4 : ADJUST COUNT 

BCC 2$ : IF NO BORROW, BRANCH 
DEC RS : PROPOGATE B 

ADD SECCYL,RO : ADD LO SECTORS/CYL TO LO ORDER PROD 
BCC 3$ : IF NO CARRY, BRANCH 

INC R3 : PROPOGATE CARRY 

CMP #HBHINB,R3 : SEE IF HI ORDER TOO BIG 
BCC : IF NOT, BRANCH 

DEVFTL 57,#SER20 : REPORT LBN OVERFLOW 


#ERS7,HRO.04 
MOV #SER20,HRO.05 
MOV #57! F TLDEV+4000. .R2 
MOV R2,HRO.02 


#.,HRQ.01 
MOV #ERRMC ,HRQ.RQ 


BR 6$ 3: EXIT 

SUB #1,R4 3; DECREMENT '.0 ORDER COUNT 
BCC $ : IF INCOMPLETE, BRANCH 

SUB #1,R5 : DECREMENT HI ORDER COUNT 
BCC 2$ 3; IF INCOMPLETE, BRANCH 

CLR 3; NO ERRORS 

RETURN 3 RETURN TO CALLING PROGRAM 
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CHKBES = CHECK THE BEGIN/END SETS FOR E 


1 
¢ 005420 
& 
5 
6 
4 
8 005420 
005420 100465 
9 005421 104203 000013 
10 005423 105013 
11 005424 104202 000015 
12 005426 105012 
13 ota th 024632 
14 005430 045502 
15 005431 104112 
16 005432 
17 005432 102202 000040 
18 005434 015440 
19 005435 102202 000200 
20 005437 015461 
21 005440 
005440 104200 003555 001107 
005443 104200 004052 001110 
005446 104202 047727 
005450 104020 001105 


104 
005460 005715 
23 005461 
0054 104200 003320 001107 
0054 052 001116 


NN 


102202 020000 





Sete Se tete 


18: 


20S: 


21$: 


2s: 


3$: 
4$: 


bs CHKBES = CHECK THE BEGIN/END SETS FOR ERRORS 


CHECK THAT THE BEGIN BLOCK <= END BLOCK IN EACH BEGIN/END SET, 
THAT THE END BLOCK < THE BEGIN BLOCK OF THE NEXT BEGIN/END SET, 
AND THAT THE LAST END BLOCK IS A VALID LBN OR DBN FOR THAT DRIVE. 


PUSH RS 


MOV R5,-(SP) 
MOV #S BESS ,R3 ; R3 WILL POINT TO ENDING BLOCK NUMBER 
ADD : R3 POINTS TO ENDING 
MOV #S.BESS+2,R2 ; R2 WILL POINT TO STARTING BN 
ADD R1,R2 : R2 POINTS TO STARTING BN 
CALL CBB2 3 COMPARE 
BCC 2s : IF_NO ERROR, BRANCH 
MOV (R1) ,R2 3 GET SUBUNIT PARAMETERS 
ASSUME S.PARM,0 
BIT WBEUSED ,R2 : SEE IF BEGIN/END SETS USED 
BEQ : IF _NOT, BRANCH 
oo #ONLYCL ,R2 ; SEE IF ONLY THE CYLINDER IS SPECIFIED 


B IF N 

DEVFTL 55,#SER20 REPORT BEGIN CYL > ENDING CYL 
MOV #ERSS .HRO.04 
MOV #SER20,HRO.05 
MOV #55 {FTLDEVS4000. .R2 
MOV R2,HROQ.02 


#.. . 1 

#ERRMC ,HRQ.RQ 
BRANCH TO ERROR EXIT 
REPORT BEGIN > ENDING BN 
#ERSO,HROQ.04 

#SER20,HRO.05 

MOV #50! FTLDEV+4000. .R2 
MOV R2,HRQ.02 


BR 7$ 
DEVFTL 50,#SER20 


MOV #. HRQ.01 
MOV #ERRMC,HRO.RO 
BR € : BRANCH TO ERROR EXIT 
MOV 1(R2) RS : SEE IF THE END-OF “LIST HAS BEEN FOUND 
BM] : IF SO, BR 
ADD #4,R2 : POINT TO NEXT BEGIN SET 
CALL CBB2 : COMPARE 
BCS $ : BRANCH 
oe 35° 
DEVFTL 51,#SER20 : STARTING BN <= PREVIOUS ENDING | BN 
#eR R51,HRO.04 
MOV #SE ER20 HR 0.05 
MOV #31 {FTLDEV24000. .R2 
MOV R2,HRO.02 
MOV #.,HRQ.01 
MOV #ERRMC,HRO.RO 
; ERROR EXIT 


; R3 NOW POINTS TO NEXT END SET 
; LOOP 


; GET SUBUNIT CHARACTERISTICS 
; ASSUME THAT S.PA 
; SEE IF DIAGNOSTIC CYLINDERS ARE IN USE 


(R1) ,R2 F 
#DCYLS.R2 : 


ae 





37 005541 
38 005542 
39 005544 
40 ett ots 


UDAT4 DISK EXERCISER DMACR x04.01 
CHKBES = CHECK 


K THE BEGIN/END SETS F 


055622 


oocess 


$ 


So 
™ 
wns 
AM NANOS 
— = NOW 
NESVUWNUM 


oN 


ow = 
SS SF 


Seeeee 
MN 


SEPP 


001714 


000040 
000200 


005522 


001111 
001112 
001714 


001111 
001112 


001107 
001110 


10$: 


118: 


9$: 


5$: 


12$: 


14$: 


13$: 


BEQ 
CERROR 
CERROR 
BR 

SUB 
BCC 


DEC 
DEVFTL 


CERROR 
DEVFTL 


BR 
DEVFTL 


lin cranks 15:49:22 PAGE 133-1 


5$ 
#ST+LBNHST,R2 
C882 


(R1) ,R2 
S.PARM,0 
|, aaa 
#ONLYCL ,R2 
11$ 

6,aL$ 


7,AL$ 


14$ 

#1,ST+LBNHST 

9$° 
ST+LBNHST+1 


IF SO, BRANCH 
R2 POINTS TO LONS IN HOST AREA 
COMPARE 
EXIT 
BCC +2 
6$ 


; GET et CHARACTERISTICS 
; ASSUME THAT S.PARM IS ZERO 
; SEE IF TRACKS/GROUPS IN USE 


IF SO, BRANCH 
SEE IF B/E SET COMPUTED BY CYLINDERS 
IF NOT, BRANCH 


o 


; LON E 
; LBN ERROR 


MOV #L$,HROQ.06 
» EXIT MOV #L$,HROQ.07 
; DECREMENT LO LBN COUNT BY 1 
B BRANCH 


-. NO etl 
PROPOGATE 


; BORROW 
52,<#SER20,ST+LBNHST, sie Mceate tale vata BN > MAX 


aS, R2 
#MAXDBN,R3 
CBB2 

6$ 

(R1) ,R2 
$.PARM,0 
#BEUSED ,R2 
WONLYCL ,R2 
13$ 

6,4D$ 
7,4D$ 

62, #SER20 


52, HRQ.04 
MOV #SER20,HRO.05 
MOV T+LBNHST ,HRO.06 
MOV ST+LBNHST+1,HRQ.O7 


MOV #52! F TLOEV+4000. ,R2 
MOV R2,HROQ.02 


#.,HRQ.01 
#ERRMC ,HRQ.RQ 


; ERROR EXIT 

; R2 POINTS TO LAST END SET 

; R3 POINTS TO MAXIMUM DBN 
COMPARE 


XIT 
GET SUBUNIT CHARACTERISTICS 
ASSUME THAT S.PARM IS ZERO 


; SEE IF TRACKS/GROUPS IN USE 


IF SO, BRANCH 
SEE If B/E SET COMPUTED BY CYLINDERS 
IF NOT, BRANCH 
RROR 
DBN ERROR 
REPORT ERROR 


MOV #0$,HRO.06 

MOV #0$.HRO.07 

MOV #ER62,HROQ. 04 

MOV #SER20,HRO.0S 

MOV #6 TF TLDEVs4000. .R2 
MOV R2,HRQ.02 


#. ,HRQ.01 
MOV #ERRMC-HRO.RQ 


EXIT 
ey <#SER20, MAXDBN, MAXDBN+1> ; LAST A ey ay > MAX 


ra HRQ.04 
MOV ASER 6, HRO.05 
BN.HRQ. 


MOV MAXDNS 1 HRQ.07 









CHKBES = CHECK 


715 
73 005716 


UDAT4 DISK ty By DMACR eh 





13- B enaehs 15:49:22 PAGE 133-2 
THE BEGIN/END SETS FOR ERR 


Hh 33 Oh77 86 
0011 


71 BR 7$ 
114002 6$: CLR R2 
7$: PoP R5 
104265 
000000 RETURN 





MOV #52!F TLDEV+4000. ,R2 
MOV R2,HROQ.02 


MOV #.,HRQ.01 
#ERRMC ,HRQ.ROQ 


; ar EXIT 


LAG AS NO ERROR 


; RESTORE REGISTER 


MOV (SP)+,R5 


; RETURN TO INSCHR 


SEQ 468 






S 
uw 
y 
Nn 


—SVONAOUSWN $C OONOUFwn— 


NPIS See aS won s 


— 
™ 
So 
So 
N 


SS 


Sresaene 
SoONNS 
MNOS 


SO a8 ot ot ot ot IO 
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m 


Ssau=so 
~“ 
~ 
o 
Nm 





001705 
177400 
004513 


004514 
001704 
Nhs 94 


004515 
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COMPSC = COMPUTE SECTORS/GROUP AND SECTORS/CYLINDER 


soeeee COMPSC = COMPUTE SECTORS/GROUP AND SECTORS/CYLINDER 


1$: 


2$: 


COMPUTE HOW MANY SECTORS/GROUP AND SECTORS/CYLINDER 
GIVEN HOW MANY SECTCAS/TRACK IN SECTRK 


BIC #HIBYTE, 4 
ADD SECTRK,R 
DEC R2 

BNE 


BIC #HIBYTE 
ADD SECGRP,R 
DEC R2 

BNE 2$ 

MOV RO,SECCYL 
RETURN 


RO 
MOV ST+TRKGRP,R 


1$ 
MOV + taal 
MOV ST+GRPCYL ,R2 


»Re 
0 


" 


: ene 


; CLEAR RUNNING TOTAL 


GET Aerie y a PER GROUP 
—mtus€€T. TO RUNNING TOTAL 


; DE CREMENT 
; IF COUNT INCOMPLETE, BRANCH 
; ; SAVE SECTORS/GROUP 


; CL UNUSED BITS 
; ADD SECTORS/GROUP TO RUNNING TOTAL 
; DECREMENT C esd 


; IF COUNT INC 
; STORE SECTORS/CYLIN 


OMPLETE, tae 
; RETURN TO CALLING PROGRAM 
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CLCMAX = CALCULATE THE MAXIMUM WRITEABLE 





1 .SBTTL CLCMAX = CALCULATE THE MAXIMUM WRITEABLE DBN 
2 005746 CLCMAX: 
4 : CALCULATE THE MAXIMUM DBN NUMBER ALLOWED, AND PLACE IT IN MAXDBN 
3 : FOR BEGIN/END SET GENERATION AND TESTING (BAD BLOCKS TOO) 
7 005746 PUSH R1 : SAVE REGISTER 
005746 100461 MoV R1,<(SP) 
8 005747 114007 CLR RO : CLEAR PRODUCT AREA 
9 005750 114001 CLR R1 : CLEAR PRODUCT AREA 
10 005751 104302 001724 MOV ST+DBNCYL,R2 =: GET DIAG CYL C 
11 005753 110702 SWAB OR ; MOVE TO LO ORDER BYTE 
12 005754 103202 177400 BIC #HIBYTE,R2 : CLEAR UNUSED BI 
13 005756 105307 004515 1$: ADD SECCYL,RO : ADD SECTORS/CYL TO TOTAL 
14 005760 045762 BCC 2$ : IF NO CARRY 
15 005761 115401 INC R1 : INCREMENT Mi WORD 
16 005762 117402 2$: DEC Re : DECREMENT COUNT 
17 005763 055756 BNE 1$ : IF NO CARRY, BRANCH 
18 005764 104302 001724 MOV ST+DBNCYL R2  —: GET NUMBER OF READ ONLY GROUPS 
19 005766 103202 177400 BIC #HIBYTE ,R2 : CLEAR UNUSED BITS 
20 005770 107307 004514 3$: SUB SECGRP, RO : § CT NUMBER OF SECTORS/GROUP 
21 005772 045774 BCC 4$ : IF NO BORROW, 
22 005773 117401 DEC R1 : PROPOGATE 
23 005774 117402 4$: DEC R2 : DECREMENT COUN 
24 005775 055770 BNE ; IF INCOMPLETE, BRANCH 
25 005776 10720? 000001 SUB #1,R0 > ADJUST FOR DBNS STARTING AT ZERO 
26 002 BCC : IF NO BORROW, BRANCH 
2 1 DEC R1 + PROPOGATE BORROW 
1 MOV RO,MAXDBN : SAVE LO ORDER WORD 
MOV R1.MAXDBN+1 : SAVE HI ORDER WORD 
POP R1 : RESTORE REGISTERS 


MOV (SP)+,R1 
; RETURN TO INSCHR 


=> 
m 
<4 
3 
a 


LE ,MAXADR-. 
+1 


SEQ 470 


SEQ 471 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 136 
eeeeereree OVERLAY MODULE SCHAR1 = SET UP SUBUNITS, CHECK TRAC 





1 -SBTTL teeeeeeeee OVERLAY MODULE SCHAR1 = SET UP SUBUNITS, CHECK TRACK/GROUP PARAMETERS 
2 006010 DMOVLY $1,AREAI | 
006010 000105 «WREDC :OUTPUT EDC FOR THIS OVERLAY | 
3 FRAAAAAAAARAAARAERAREAARERERERAAERAERARERARERERAREAEREREEREEREERERRERREEEREREEEEEE 
4 FERRARA AAAAAAAAAAAAAAAEAEAEARERRARERAEREREREERARARRRERERAERAERAEEARAEEEAREEREEEEEEEE j 
5 J RRAAAAAAAAAAAAAAAEAEREEEEEREREEAEAERRRRERRERARREREAREEAERRARREEEEEEEEREEEEEEEEE ) 
6 FERRARA AAAAAARAAARAEAAAEEREERRERARAEERRERAERERARAERRERRERAREEREEEARRAEERRREEHEEEE i 
7 : | 
§ | 
10 000034 SCHAR1 = SCHARO+1 
2 ; SCHAR1 WILL INITILIZE THE SUBUNIT PARAMETERS (TRACK/GROUP ONLY) | 
14 ; 
15 .ENABL LSB 
16 004710 PUSH Re : SAVE SUBUNIT POINTER 
004710 100464 MOV R4,-(SP) 
17 004711 104141 MOV (R4),R1 : GET SUBUNIT PARAMETERS | 
18 004712 ASSUME S.PARM, | 
19 004712 102201 004000 BIT #ROMLY.RI1 : SEE IF READ ONLY | 
20 004714 014762 BEQ 5$ : IF NOT, BRANCH | 
21 004715 102201 002000 BIT #WONLY,R1 > SEE IF WRITE ONLY IS SET TOC 
22 004717 014736 BEQ 3 ; ANCH 
23 004720 DEVFTL 28 : SETUP ERROR 
004720 104200 002420 001107 MOV #ER2B .HRO.04 
004723 104202 047674 MOV #28! F TLDEV+4000. .R2 
004725 104020 001105 MOV R2,HRQ.02 
004727 104200 727 001104 MOV #..HROQ.01 | 
004732 104200 060014 001103 #ERRMC,HRO.RO | 
24 004735 004775 BR 4$ : BRANCH TO REPORT | 
25 004736 102201 040000 6$: BIT #INITW,RI : SEE IF INITIAL WRITE | 
26 004740 014762 BEQ $ + IF NOT H 
27 004741 103201 040000 BIC #INITW,R1 + NO INITIAL WRITE 
28 004743 100141 MOV R1, (R4) : SAVE PARAMETERS 
29 004744 ASSUME §S.PARM,O 
30 004744 MSSG 4 : REPORT NO INITIAL WRITE | 
004744 104200 005704 001105 MOV #Ms4,HRO.02 
004747 100467 MOV RO,-(SP) 
004750 104650 000063 001104 MOV U.UNUM(RS) ,HRO.01 
004753 105650 000050 001104 ADD U. SUBU(R5) -HRO.01 
004756 104207 060015 MOV RO 
004760 021053 CALL HOST 
004761 104267 MOV (SP)+,RO 
31 004762 5$: 
32 ; BIT #DCYLS,R1 : SEE IF IN DIAGNOSTIC AREA 
3 : BEQ 7$ : IF NOT, BRANCH 
34 = MSSG oS + REPORT ASSUMPTION | 
36 004762 104041 ¢ V R4,R1 3 R1_ NOW POINTS TO SUBUNIT DATASTRUCTURE 
37 eos 025061 CALL 6 > CHECK BAD BLOCKS 
38 004764 115002 TST R2 * ANY ERRORS ? | 
39 004765 054775 BNE 4$ 3 IF SO, BRANCH | 
40 004766 104117 V (R1) RO : GET SUBUNIT CHARACTERISTICS 
1 004767 ASSUME S.PARM,0 
42 004767 102207 000040 BIT #BEUSED,RO 3 SEE IF BEGIN/END SETS WERE USED 
43 004771 055023 BNE 1$ : IF SO, SKIP EVERYTHING 
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weeeeneees OVERLAY MODULE SCHAR1 = SET UP SUBUNITS, CHECK TRAC 





44 004772 





025232 
11500 


3 


000050 


000035 
000033 


1$: 


23$: 
228: 


2$: 
3$: 


CALL 


CHKTG 
R2 


1$ 
U.UNUM(RS) ,HRQ. 
U; a> fe oHRQ. 


== 
Ow: 
“n 


#U. SUBP ,R1 


U. SUBU(RS) ,R1 
(R1) sO, 
#OR OP,R3 

3, (RO) 


° PARM, 


R2 

U. SUBU(RS) ,R3 
R3,U. SUBU(RS) 
#3.R3 

334 

#U. SUBP,R3 
R5.R3 

(R3) ,R3 

1$ 

(R3) ,R1 
S. 


1 e 

DROP, 100000 
22$ 

RS 

R3,U. SUBU(RS) 
R3 

2s 

#GETSER RO 
#SCHARO,RO 

R1 


R4 
JMPRET 
LSB 


oO 
Se Se Ge Se Se Se Be Se Se inilape Ge Se 
z 


COMPUTE TRACK/GROUP DATABASE 

SEE IF -— ERRORS 

; IF NOT, BRANCH 

: Ger rat UNIT NUMBER 
; SET up’ TO REPORT ERROR 

EPOR 


FLAG rg ye anes ERROR 

Ri WILL POINT AT SUBUNIT POINTERS 

R1 POINTS AT SUBUNIT POINTERS 

R1 pointe AT POINTER TO SUBUNIT BEING HANDLED 
RO POINTS TO SUBUNIT BEGING HANDLED 

MOVE DROP FLAG TO R3 

DROP THIS SUBUNIT 


NO_ERRORS 
GET SUBUNIT OFFSET 
py! SUBUNIT 
SEE IF VALID OFFSET 
IF NOT, BRANCH 
BCC -+2 


BR 3$ 
WILL POINT TO NEXT SUBUNIT POINTER . 
ADD soit TO UNIT DATABASE 


sr POINT 
F_NO SUBUNIT, BRANCH 

GET SUBUNIT PARAMETERS 
: IF DROPPED, BRANCH 

EXIT 
; NO SUBUNITS 

SAVE 

ANY? 

IF SO, 





BRANCH 
GETSER NEXT MODULE 
GO BACK TO FIRST CHARACTERISTICS MODULE 
IMMIDATE CALL 
RESTORE 
MOV (SP)+,R4 





RETURN TO 





SEQ 472 


SEQ 473 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 137 





CHKBB = CHECK THE BAD BLOCKS FOR ERRORS 
1 .SBTTL CHKBB = CHECK THE BAD BLOCKS FOR ERRORS 
: 005061 CHKBB: 
4 : CHECK THE BAD BLOCKS TO ASSURE THEY DON'T EXCEED THE MAXIMUM BLOCK 
2 ; NUMBER 
7 005061 PUSH RS : SAVE THE REGISTERS | 
005061 100465 MOV R5,=(SP) | 
8 005062 104613 000012 MOV S.BADP(R1),R3_; GET POINTER TO BAD BLOCKS | 
9 005064 015287 BEQ : IF NO BAD BLOCKS, BRANCH | 
10 005065 104632 000001 1$: MOV 1(R3),R2 : IS THIS THE LAST BAD BLOCK? | 
11 005067 075121 BMI 2$ : IF SO, BRANCH 
12 005070 104032 MOV R3,R2 + R2 WILL POINT TO NEXT BAD BLOCK 
13 005071 105202 000002 ADD #2.R2 : Re P POINTS TO NEXT BAD BLOCK | 
14 005073 02463 CALL C88 BB2 : ARE 
15 005074 045100 BCC : cone ERROR, BRANCH 
16 005075 105203 000002 ADD £2.R3 : POINT TO NEXT BAD BLOCK 
17 005077 005065 BR 1$ : LOOP 
18 00100 7$: DEVFTL 53,#SER20 : DUPLICATE BAD BLOCKS | 
005100 104200 003470 001107 MOV #ER53,HRQ. 304. 
005103 104200 004052 001110 MOV SERIO UR | 
005106 104202 047725 MOV oe5 FTL be se000. .R2 | 
005110 104020 001105 MOV R2,HRO.02 - | 
005112 104200 005112 001104 MOV ‘.. 1 | 
005115 104200 060014 001103 MOV #ERRMC,HRO.RO 
19 005120 005230 BR : BRANCH 
20 005121 104117 2$: MOV R1),RO : GET SUBUNIT PARAMETERS 
21 005122 ASSUME S.PARM,O t ASSUME THAT S.PARM IS ZERO 
22 005122 102207 020000 BIT #DCYLS.RO : SEE IF DIAGNOSTIC CYLINDERS IN USE 
23 005124 055173 BNE : IF SO, BRANCH | 
24 005125 104612 000007 MOV S.SCHR(R1),R2 + R2 POINTS TO SUBUNIT CHARACTERISTICS 
25 005127 105202 000012 ADD #LBNHST R2 : R2 POINTS TO NUMBER OF LBNS IN HOST AREA | 
26 005131 02463 CALL  CBB2 : COMPARE | 
27 005132 045134 BCC BS : IF ERROR, BRANCH 
28 005133 005227 BR 58 : EXIT WITH NO ERROR 
29 005134 104125 8$: MOV (R2) RS : GET LO ORDER MAX LON 
30 005135 107205 000001 SUB #1,R5 : DECREMENT COUNT 
31 005137 100125 MOV RS. (R2) : SAVE 
32 005140 045146 BCC : IF NO CARRY, BRANCH 
33 005141 104625 000001 MOV —« 1(R2) RS : GET HI ORDER | 
34 005143 117405 DEC RS : PROPOGATE CARRY 
35 005144 100625 000001 MOV R5,1(R2) : SAVE 
36 005146 9$: DEVFTL 54.<#SER20,(R2)+.(R2)> =; BAD BLOCK > MAXIMUM 
005146 104200 003505 001107 MOV #ERS4,HRO.04 
005151 104200 004052 001110 MOV tap)s imerde 
005154 104220 001111 MOV )+,HRQ. 
005156 104120 001112 MOV (R2) ,HRO.07 | 
005160 104202 047726 MOV #54! FTLDEV+4000. .R2 | 
005162 104020 001105 MOV R2.HRQ. 02 
005164 104200 005164 001104 MOV RQ.01 
005167 104200 060014 001103 MOV oikune HRO.RQ 
37 005172 005230 BR at : ERROR EXIT | 
38 005173 104052 38: MOV R3,R2 : R POINTS TO LAS BAD BLOCK | 
39 005174 104203 004511 MOV #MAXDBN,R3 : R3 POINTS TO MAXIMUM DBN 
40 005176 024652 CALL CBB2 ; ARE | 
41 005177 04522 BCC $ : IF NO ERROR, BRANCH 
42 005200 4$: DEVFTL 54,<#SER20,MAXDBN,MAXDBN¢+1> ; BAD BLOCK > MAXIMUM 
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CHKBB = CHECK THE BAD BLOCKS FOR ERRORS 





SEQ 474 


005200 104200 903505 001107 MOV #ERS4 HRO.04 
005203 104eG0 004052 001110 MOV #SER20,HRO.05S 
5206 104300 004511 001117 MOV MAXDBN, HRO-06 
005211 104300 004512 001112 MOV MAXDBN+1,HRO.07 
005214 104202 047726 MOV #541 F TLDEV*2000. .R2 
005216 104020 001105 MOV R2,HRO.02 
005220 104200 005220 001104 MOV #.,HRQ.01 
005205 104200 060014 001103 MOV #ERRMC ,HRO.RO 
3 005226 005230 ; BRANCH TO EXIT 
44 005227 114002 5$: CLR R2 : FLAG AS NO ERRORS 
5 0052 6$: POP RS : RESTORE THE REGISTERES 
005230 104265 MOV (SP)+,R5 
46 005231 000000 ETURN ; RETURN TO INSCHR 





J 
. SEQ 475 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 138 
CHKTG = CHECK THE TRACK/GROUPS FOR ERRORS, AND CONVERT TO BN’ 


1 .SBTTL CHKTG = CHECK THE TRACK/GROUPS FOR ERRORS, AND CONVERT TO BN’S 
¢ 005232 CHKTG: 
4 ; CONVERT THE TRACKS/GROUPS TO SECTOR COUNTS, AND FIND THE MAXIMUM 
5 : NUMBER OF ‘LOOPS’ THAT SETUP CAN RUG THROUGH TO TEST ALL 
§ : TRACKS ON THE TESTED CYLINDERS ONLY 
8 : 
h : FIRST COPY THE TRACKS/GROUPS TO A TEMP LOCATION 
11 005232 PUSH RS : SAVE RS 
005232 100465 MOV RS,- 
i 00523 104207 004516 MOV #TGS,RO : POINT TO TEMPORARY STORAGE LOCATION 
13 005235 104 02 000017 MOV #S.TGSS,R2 : R2 WILL POINT TO T/G LIST 
14 005237 10501 ADD R1 : R2 POINTS TO T/G LIST | 
15 005240 104225 1$: MOV tRdbs RS : GET WORD 
16 005241 100275 MOV RS, (RO)+ : SAVE IN TEMP LOCATION 
7 005242 035240 BPL 13° : COPY ENTIRE LIST 
19 ; NOW MOVE THE STARTING CYLINDER TO THE INITIAL OFFSET AREA | 
21 005243 104612 000016 MOV S$. TGOF+1(R1) ,R2 : GET HI ORDER STARTING CYL 
22 005245 103202 170000 BIC #*°CHBHINB,R2 + CLEAR UNUSED BITS | 
23 005247 100612 000016 MOV R2,S. TGOF+1(R1) : SAVE 
35 : CHECK THAT THE MAXIMUM TRACK/GROUP IS VALID 
27 005251 104117 MOV (R1),RO : GET SUBUNIT PARAMETERS 
28 005252 ASSUME S.PARM,O > ASSUME THAT oe PARM IS ZERO 
29 005252 104642 000007 MOV S$. SCHR(R4) ,R2 : R2 POINTS TO SUBUNIT CHAR 
30 005254 102207 000020 BIT #TRACKS RO : SEE IF PROCESSING GROUPS OR TRACKS | 
31 005256 055265 BNE : IF TRACKS, BRANCH | 
32 005257 104627 000002 MOV GRPCYL(R2) RO : GET GROUPS PER CYLINDER 
33 005261 104200 005516 005514 MOV AGRPS, TGS : PRINT "GROUP® IF ERR 
34 005264 005272 BR * BRANCH 
35 005265 104627 000003 2s: MOV TRKGRP(R2) RO : GET TRACKS 
36 005267 104200 005512 005514 MOV #TRKS, TGS : PRINT *TRACK® Re ERROR 
37 005272 103207 177400 3S: BIC #HIBYTE RO : CLEAR UNUSED BITS | 
005 104202 004516 MOV #TGS,R2 : POINT TO TRACK/GROUP LIST 
39 005276 10422 4$: MOV (R2)+,R3 : SEE IF THIS WORD 1S END-OF-LIST 
0 005277 035276 BPL 4$ : IF NOT 
1 005 103203 177400 BIC #HIBYTE ,R3 > CLEAR EOL FL AG | 
42 005302 106037 CMP R3,RO : SEE IF oy rnin LIMITS 
43 005303 075333 I : IF SO, BRANCH | 
005 117407 DEC RO + ADJUST T/G MAX FOR O-N 
45 005305 DEVFTL 58,<#SER20.TG$.RO> : REPORT ERROR 
005305 104200 003722 001107 MOV #ERS8,HRO.04 
005310 104200 004052 001110 MOV Ars Tae WRO_0S 
005313 104300 005514 001111 MOV TG$,HRO.06 
005316 104070 oo1112 MOV RO, HRO.07 
005320 104202 04773 MOV #58! F TLDEV+4000. .R2 
005322 104020 001105 MOV R2,HRO.02 
005324 104200 005324 001104 MOV #. .HRO.01 
005327 104200 060014 001103 MOV #ERRMC ,HRO.RO 
46 005332 005512 BR 17$ : EXIT 





| K 5 | 
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CHKTG = CHECK THE TRACK/GROUPS FOR ERRORS, AND CONVERT TO BN’ 


1 
5 ; NOW COMPUTE THE NUMBER OF SECTORS FROM THE START OF THE CYLINDER/GROUP 
; 3 TO THE FIRST TRACK/GROUP TO TEST 
5 005333 104207 004516 S$: MOV #TGS,RO : RO POINTS TO TRACK/GROUP LIST 
6 005335 104203 000015 MOV #5. TGOF ,R3 : R3 WILL POINT Tu T/G INITIAL OFFSET 
005337 105013 ADD 1,R3 : R3 POINTS TO T/G INITIAL OFFSET 
8 005340 104172 MOV (RO) ,R2 : GET FIRST T/G 
9 005341 103202 177400 BIC #HIBYTE ,R2 : CLEAR UNUSED BITS 
10 005343 025515 CALL _COMPDP : COMPUTE SECTORS FROM CYL TO INIT I/G ! 
11 005344 105135 ADD (R3) RS : ADD TO INITIAL OFFSET 
12 005345 100235 MOV R5,(R3)¢ : MOVE BACK 
13 005346 045352 BCC : IF NO CARRY, BRANCH 
14 005347 104135 MOV (R3) RS + GET HI ORDER WORD 
15 005350 115405 INC : PROPOGATE CARRY 
16 005351 100135 MOV RS, (R3) : SAVE | 
17 005352 115405 6$ INC R3 : POINT TO NEXT AREA 
19 : NOW COMPUE HOW MANY SECTORS FROM THE LAST TRACK/GROUP TO TEST TO THE 
30 : NEXT TRACK/GROUP TO TEST | 
22 005353 104174 7$: MOV (RO) .R4 3 GET TRACK/GROUP 
23 005354 075413 BMI BS : IF EOL, CH 
24 005355 104672 000001 MOV 1(RO) ,R2 : GET NEXT TR 
25 005357 103202 177400 BIC #HIBYTE .R2 : CLEAR EOL FLAG, IF ANY | 
26 005361 107272 SUB (RO) +, R2 3 GET HOW MANY 1/G°S BETWEEN LAST/NEXT | 
27 005362 015364 BEQ 20$ : IF ZERO, ER | 
28 005363 035410 BPL 18$ : SHOULD BE AT LEAST 1 1/G BETWEEN 
59 005364 20$:  DEVFTL 59.<#SER20,16$> : REPORT ERROR | 
005364 104200 003753 001107 MOV #ERSI,HRO. 04 
005367 104200 004052 001110 MOV  #SER20, HRO.05 
005372 104300 005514 001111 MOV TG$,HRQ. 
005375 104202 047733 MOV #59!F TLDEV+4000. .R2 | 
005377 104020 001105 MOV R2,HRO.02 
005401 104200 005401 001104 MOV #..HRQ.01 
005404 104200 060014 001103 MOV #ERRMC ,HRO.RO 
30 005497 005512 BR 17$ : EXIT 
31 005410 025515 18$: CALL COMPDP : COMPUTE HOW MANY SECTORS TO NEXT T/G 
32 005411 100235 MOV RS, (R3)¢ : STORE THE OFFSET 
005412 005353 BR : LOOP | 
Py | 
35 : NOW COMPUTE HOW MANY SECTORS FROM THE LAST T/G TO TEST TO THE FIRST | 
37 005413 104115 és: MOV (R1) RS : GET SUBUNIT PARAMETERS | 
38 005614 ASSUME §$.PARM,O : ASSUME THAT S.PARM IS ZERO | 
39 005414 104612 000007 MOV S$. SCHR(R1) ,R2 : R2 POINTS TO SUBUNIT CHAR 
40 005416 102205 000020 BIT #TRACKS RS 3 SEE IF USING GROUPS OR TRACKS 
41 005420 055424 BNE : IF TRACKS, BRANCH | 
42 005421 104622 000002 MOV GRPCYL(R2) ,R2 + GET GROUPS/CYL 
43 005423 005426 BR : BRANCH 
44 005424 104622 000003 9$: MOV TRKGRP(R2) ,R2 + GET TRACKS/GROUP 
45 005426 105302 004516 10$: ADD TGS.R2 + ADD STARTING 1/G 
46 005430 103202 177400 BIC #HIBYTE ,R2 > CLEAR UNUSED BITS | 
47 005432 103204 177400 BIC #HIBYTE.R4 : CLEAR UNUSED BITS 
48 005434 10704 SUB R4,R2 : FIND HOW MANY T/G°S TO SKIP 
49 005435 02551 CALL  COMPDP 3 COMPUTE HOW MANY SECTORS 
50 005436 100235 MOV RS, (R3)¢ : STORE IN LIST 
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= CHECK THE TRACK/GROUPS FOR ERRURS, AND CONVERT TO BN’ 


51 005437 
26 005440 


512 
89 005513 
90 
91 005514 


114005 
100235 


RRSE 
PASM 


Basse 


r+ Ot, ee ee — od td 
PGLALSSR EE 
NOS ONO 


So 


end cod 
=2 
MUI 
RAN 


000013 
000002 


000003 


000004 


000004 


000001 


000001 


000001 


13$: 


14$: 


15$: 


11$: 


16$: 


17$: 


TG$: 


CLR R5 : SET UP_FOR MARKING EOL 
MOV R5,(R3)+ 3 STORE EOL 


NOW SEE HOW MANY TIMES THE SETUP ROUTINE CAN GO THROUGH THE LIST 
WITHOUT EXCEEDING THE MAXIMUM SECTOR NUMBER 


MOV #S.BESS,RO : RO WILL Point TO THE MAX SEC NUMBER 
ADD ; RO POINTS TO THE MAX SECTOR NUMBER 
MOV S.TGOF=S.BESS(RO).R4  : R4 HAS LO ORDER INITIAL OFFSET 
MOY S. TGOF-S. “BESS#1(RO),RS : Rs SHAS HI ORDER INITIAL OFFSET 

MOV R1,<(SP) 
CLR R2 CLEAR LO ORDER MAX COUNT 
CLR R3 CLEAR HI ORDER hax COUNT 
MOV #5. 1GSS-S.BESS,R1 Ri WILL POINT 0 SECTOR OFFSET AREA 
ADD RO,R1 R1 POINTS TO SECTOR OFFSET AREA 
MOV R4.=(SP) SAVE LO ORDER TOTAL ON STACK 
MOV (R1)+,R4 GET LO ORDER SECTOR OFFSET 
BNE 14$ IF NOT EOL, BRANCH 
MOV 0.R R1 WILL POINT TO START OF OFFSET LIST 


Ri POINTS TO START OF OFFSET LIST 

GET NEW OFFSET 

ADD TO LOW ORDER SECTOR TOTAL 
—_— 


RO,R1 
ADD #S.TGSS-S.BESS,R1 
MOV (R1)+,R4 
ADD (SP)+,R4 

15$ 


BCC IF NO CARRY, 
INC RS PROPOGATE CAR 
CMP 1(RO) RS SEE IF MAX EXCEEDED 
BCS 16$ IF SO, BRANCH 
Bcc +2 
BR 16$ 
BNE 11$ : IF YOUR SURE IT'S OK, BRANCH 
CMP (RO) RG : SEE IF MAX EXCEEDED 
BCS 16$ : IF SO, BRANCH 
BCC +2 
BR 16$ 
ADD #1,R2 : ADD 1 TO COUNT 
BCC 138 : IF NO CARRY, BRANCH 
INC R3 : PROPOGATE CARRY 
BR 13$ : BRANCH 
POP R1 : RESTORE R1 
MOV (SP)+,R1 


MOV R2, (RO) 
MOV R3. 21(RO) 


R5 


STORE LOW ORDER MAXIMUM COUNT 
nd a MAXIMUM COUNT 


RESTORE 


MOV (SP)+,R5 











ee oe ee - - ~y 






SEQ 478 
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COMPDP = CALCULATE SECTORS/TRACKS OR SECTORS/GROUPS 






1 .SBTTL COMPDP = CALCULATE SECTORS/TRACKS OR SECTORS/GROUPS 

¢ 005515 COMPDP : 

i ; COMPUTE HOW MANY SECTORS ARE IN THE NUMBER OF TRACKS OR GROUPS 

2 ; PASSED IN R2 

? 005515 114005 CLR RS ; CLEAR RUNNING TOTAL 

8 005516 104114 MOV (R1) RG ; GET SUBUNIT PAR 

9 005517 ASSUME $.PARM,0 ; ASSUME THAT $.PARM IS ZERO | 
10 005517 005530 BR : SEE IF IMMIDATE EXIT | 
11 005520 102204 000020 1$: BIT —sBTRACKS,R4 ; SEE_IF USING GROUPS OR TRACKS 

12 005522 055526 BNE ; IF TRACKS, BR 

13 005523 105305 004514 ADD —-SECGRP, RS ; ADD SECTORS/GROUP TO RUNNING TOTAL | 
1% 005525 005530 BR ; BRANCH | 
15 005526 105305 004513 2$: ADD —-SECTRK,R5 ; ADD. SECTORS/TRACK TO RUNNING TOTAL 

16 005530 117402 38: DEC — sR ; DECREMENT COUNT 

17 005531 035520 BPL 1S ; IF INCOMPLETE, BRANCH 

18 005532 000000 RETURN ; RETURN TO CALLING PROGRAM 

19 IF LE ,MAXADR=. 
20 = | 
21 -ENDC | 
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00006 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 141 
teeeeeees® OVERLAY MODULE GETSER = GET THE HDA AND DRIVE SERIA 


-SBTTL 


aetnenenes +4 al MODULE GETSER = GET THE HDA AND DRIVE SERIAL NUMBER 


DMOVLY GS,AR 
dC 


sOUTPUT EDC FOR THIS OVERLAY 


PTTTTTITITITITILILILL LITT TTT LETT LETT TTT TTL LLL LLL 


11$: 


-SBTTL 
sREPSER 


1$: 


2s: 


GETSER 


SRERAEERAAAAARARAAAAARERERAERAERAAAAERAERAAAERERRAAERAERREREREREEREREREREREREEEERERE 
SRERARERARAERERAAAAAAAEEREREEREAERERERAAAAEEERARAAAEEEREAAAERREEEAREEEEREERREEEEKE 
SRAERRRRAAAERAEAAAAARERAEAAEERAAAAEAERAREARAARARAAAAARRARERAAAERAERAERAREREEAEEREERREEE 


= SCHAR1+1 
GET HDA AND DRIVE SERIAL NUMBER (IF POSSIBLE) AND RETURN TO HOST 
.ENABL LSB 
PUSH RG : SAVE SUBUNIT POINTER 
MOV R4,<(SP) 
MOV U.UNUM(R5) , SUNIT : SAVE UNIT NUMBER 
MOV U.UNUM(R5) .R1 : R1 HAS UNIT NUMBER 
ADD #3,R1 + R1 HAS LAST UNIT NUMBER 
MOV #U. SUBP RO + RO WILL POINT TO SUBUNIT POINTERS 
ADD . : RO POINTS TO SUBUNIT POINTERS 
MOV (RO) +,R4 + RG POINTS TO SUBUNIT 
BMI 128 : IF NO SUBUNIT, BRANCH 
MOV 000. .R3 3 INITILIZE SEEK COUNTER 
MOV 4 ® SEEK (RA) : SAVE SEEK COUNTER 
PUSH  <RO,R : SAVE POINTER AND COUNT 


MOV RO,-(SP) 
MOV R1,-(SP) 


REPSER = FIND AND REPORT DRIVE AND HDA SERIAL NUMBER 


FIND AND REPORT DRIVE AND HDA SERIAL NUMBER. IF ERROR OCCURRS, 
REPORT SERIAL NUMBER AS ZERO. NO ERROR IS RETURNED FROM THIS ROUTINE 


CALL BULDUM 

MOV S.SCHR(R4) ,R1 

MOV LBNCYL(R1) ,STACYL 
MOV Tea Sah STACYL+1 


MOV RO, K 

CLR RBNFL 

MOV U.COPY(RS) .RO 
ADD 0, 

MOV RO, SERRTY 

CLR R 


MOV RO,U.CCOP(RS) 
MOV S.SCHR(R4) RI 
CURBN 


CLR  — CURBN¢1 

MOV - #CALCSC.RO = 
MOV —- §. SCHR(R4) RI 

KFC T 


CV 
CALL RECOVR 


BUILD DUMMY SDI BLOCK 
R1 POINTS TO anges CHARACTERISTICS 
MOVE LO STARTING CYL 


CLEAR UNUSED BITS 

MOVE TO SECTORS PER TRACK 
NO_RBN F 

GET NUMBER OF XBN COPIES 


DOUBL 
RETRY 2 TIMES THE NUMBER OF COPIES 
al UP COPIES AND SETUP CALC 


GET tye TO poy CHARACTERISTICS 
BN IN CURBN 
XBN_IN Cyanet 


; POINT TO CALCULATI 


ON AREA 
vs th SUBUNIT CHARACTERISTICS 
CLEAR ALL POSSIBLE ERRORS 


\ 
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UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49: ee PAGE 141-1 
REPSER = FIND AND REPORT DRIVE AND HDA SERIAL NUMBER 


54 005004 115002 TST R2 : SEE IF ERROR OCCURRED 

55 005005 055207 BNE ag : IF SO 

6 005006 04208 001655 MOV #CR.INR,R3 : SET FOR RE CALIBRATE 

57 005010 02117 CALL _—s*iTALK t RECALIGRATE DRIVE 

58 005011 115002 TST * SEE IF ERROR OCCURRED 

59 005012 035¢07 BNE aS : IF $0, BRANCH 
60 005013 104300 002201 001673 MOV CYL,LOCYL : MOVE LO CYL TO SEEK COMMAND 
61 005016 104300 002202 001674 MOV CYL#1,LOCYL+1 : MOVE TO SEEK COMMAND 
62 005021 104300 002205 001675 MOV GROUP, LOCYL+2 : MOVE GROUP TO SEEK COMMAND 

3 005024 104203 001636 MOV #CR.SEK,R3 : POINT TO SEEK COMMAND 

005026 021173 CALL _—*iTALK : SEND SEEK 
65 005027 115002 TST R2 : SEE IF ERROR OCCURRED 
005030 055207 BNE aS : IF $0, 

67 005031 104651 000011 MOV U.MSTOC(RS) ,R1 : GET MASTER SEEK TIMEOUT 
68 005033 100651 000005 MOV R1,U. TIMH(R5) : SA 
69 005035 114001 CLR 1 : FOR LOW ORDER TIMEOUT 

70 005036 100651 000006 MOV R1,U. TIML(RS) 

71 005040 104201 000310 3$: MOV #200. ,R1 : INNER LOOP TIMEOUT 

72 005042 117401 4$: DEC R1 : DECREMENT INNER COUNTER 

73 005043 055042 BNE 4$ : IF UNEXPIRED, BRANCH 

74 005044 020775 CALL = RTDSL > GET REAL TIME DRIVE STATE 
75 005045 11500 TST R2 : SEE IF ERROR OCCURRED 

76 005046 055207 BNE aE : IF SO, BR 

77 005047 115001 TST R1 : SEE If READ/WRITE READY IS ASSERTED 
78 005050 ASSUME RWRDY, 100000 

79 005050 075070 BMI 5$ : IF SO, BRANCH 
80 005051 104651 000006 MOV U. TIML(RS) ,R1 : GET TIMEOUT 
81 005053 107201 000001 SUB #1,R1 : DECREMENT TIMEOUT 
82 005055 100651 000006 MOV R1.U. TIML(RS) : SAVE 
83 005057 045040 BCC : LOOP IF INCOMPLETE 

84 005060 104651 000005 MOV U. TIMH(RS) ,R1 : GET HJ ORDER TIMEOUT 

85 005062 107201 000001 SUB ‘ : DECREMENT TIMEOUT 
86 005064 100651 000005 MOV R1.U. TIMH(RS) : SAV 
87 005066 045040 BCC 3$ > IF TIMOUT UNEXPIRED, BRANCH 
88 005067 005207 BR aS : ERROR 
89 005070 104200 100000 005337 5$: MOV #RSTOP, SERCHN+RW. STAT 3; MOVE vy! CHAIN FLAG TO CHAIN 
90 005073 104300 002175 005341 MOV CURBN SERCHN+RW. LOW : MOVE TO OUTPUT 

91 005076 104641 000007 MOV §.SCHR(R4) RI ; R1 POINTS TO SUBUNIT CHARACTERISTICS 
92 005100 104611 000002 MOV HIXBN(R1) RI : GET HI XBN BITS 

93 005102 110601 ROR R1 : ROTATE TO CORRECT POSITION 
94 005103 110601 ROR R1 : ROTATE TO CORRECT POSITION 
95 005104 110601 ROR R1 : ROTATE TO CORRECT POSITION 
96 005105 110601 ROR 1 : ROTATE TO CORRECT POSITION 
97 005106 103201 170377 BIC #HBLONB,R1 : CLEAR UNUSED BITS 

98 005110 101201 120000 BIS #HD.XBN.R1 : MAKE A XBN 

99 005112 105301 00217 ADD CURBN+1, : SET IN HI XBN BITS 
100 005114 104010 00534 MOV R1, SERCHN+RW.HI : SAV 
101 005116 104300 002204 005343 MOV TRACK, SERCHN¢RW. CMD : MOVE TRACK TO CHAIN 
102 005121 101200 013400 005343 BIS WRREAL,SERCHN¢RW.CMD : SET IN REAL TIME COMMAND 
103 005124 104200 002207 005344 MOV #DUMSDL gSERCHNORU. SDI : POINT TO DUMMY SDI BLOCK 
104 005127 104652 000025 MOV U.MA »R2 : R2 HAS UDA PORT MASK 
105 005131 104207 005337 MOV Perr yet ye : RO POINTS TO CHAI 
106 005133 060012 XFC WAITSI 3 WAIT FOR SECTOR OR INDEX 
107 005134 115001 TST : SEE IF ERROR OCCURRED 
108 005135 055207 BNE 8$ : IF SO, BRANCH 
109 005136 060002 XFC XREAD : READ THE SECTOR 
110 005137 106201 000004 CMP #4,R1 + SEE IF XBN HEADFR COMPARE FAILURE 








SEQ 481 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49: 22 PAGE 141-2 
REPSER = FIND AND REPORT DRIVE AND HDA SERIAL NUMBER 
111 005141 015166 BEQ 7$ : IF SO, TRY NEXT COPY 
Me 005148 115001 TST R1 : SEE IF AN ERROR OCCURRED 
113 00514 035207 BNE 8$ : IF BRANC 
114 005144 102200 010000 005337 BIT WECCFLG,SERCHN¢RW.STAT : SEF “It BUFFER HAS AN ECC ERROR 
115 005147 015160 BEQ : BRANCH 
116 005150 104207 005337 MOV #SERCHN,RO : POINT. CHA 
117 00515¢ 060015 KFC ECC : CORRECT THE BUFFER 
118 005153 115001 TST R1 : SEE RROR 
119 005154 055166 BNE 7$ : IF SO, BRANCH 
120 005155 106657 000032 CMP U.ECCT(RS) RO : SEE IF CORRECTIONS EXCEED THRESHULD 
128 ; NOTE: I ALLOW 1 ERROR MORE THAN SPEC'D ECC THRESHOLD 
124 005157 075166 BMI 7$ 3 IF SO, BRANCH 
125 005160 104207 005345 6$: MOV #SERSEC,RO : RO POINTS TO BUFFER 
126 005162 021146 CALL ; TE EDC OVER BUFFER 
127 005163 106020 005745 CMP R2, SERSEC*BF .EDC : SEE IF EDC'S MATCH 
128 005165 015223 BEQ 3s IF SO, YOU'VE GO IT!!!tiirttrees 
129 005166 104651 000060 7$: MOV U.CCOP(RS) ,R1 : GET CURRENT COPY NUMBER 
130 005170 115401 INC Ri ; INCREMENT C COUNT 
131 005171 100651 000060 MOV R1,U.CCOP(RS) : SAVE 
132 005173 106651 000057 CMP U. COPY(RS), R1 ; SEE IF ALL = TRIED 
133 005175 015207 BEQ ah : IF 
134 005176 104647 000007 MOV S$. SCHR(R4) ,RO 3; R1 POINTS "oO" ee CHARACTERISTICS 
135 005200 105670 000010 002175 ADD FCTSI2Z(RO) .CURBN : ADD TO CURRENT 
136 005203 044776 BCC 2$ : CALCULATE AND TRY NEXT SECTOR 
137 005204 115400 002176 INC CURBN+1 : PROPOGATE CAR 
138 005206 004776 BR : BRANCH 
139 005207 117400 005336 8$: DEC SERRTY : DECREMENT RETRY COUNT 
140 005211 054765 BNE 1$ 3 IF UNEXHAUSTED, BRANCH 
142 : COULDN'T GET THE SERIAL NUMBER == REPORT 0°S AND 512 uRIVE 


— 

& 

wi 
° 


re 005212 005347 CLR | ZERO HDA SFR # 


114000 : 

145 005214 114000 005350 CLR SERSEC+ : ZERO HDA SER # 

146 005216 114000 005351 CLR SERSEC+4 : ZERO HDA SER 4 

147 005220 114000 005352 CLR SERSEC+5 3 oe ae re ie 

148 005222 005264 BR 1 : 513 Dal 

149 005223 106200 126736 005345 9$: CMP #M0D512, SERSEC : See ut 51 BYTE E RODE DRIVE 

150 005226 015264 BEQ 10$ : IF SO, BR 

151 005227 104147 MOV (R4),RO 3; GET UNIT PARAMETERS 

152 005230 ASSUME §$.PARM,O 

153 005230 102207 020000 BIT #DCYLS.RO : SEE IF USING THE DIAGNOSTIC AREA 

154 005232 055264 BNE 1 : IF SO, OK TO TEST, BRANCH 

155 005233 DEVFTL 21,SERSEC ; SET UP REPORT 
005233 104200 002111 001107 MOV #ER21 , HR. 04 
005236 104300 005345 001110 MOV $ RSEC ,HRO.0S 
005241 104202 047665 MOV 331 FTLDEVs2000. .R2 
005243 104020 001105 MOV -HRO.02 
005245 104200 005245 001104 MOV é.. 
005250 104200 060014 001103 MOV #ERRMC.HR 

156 005253 104300 005335 001106 MOV SUNIT,HRG.03 : MOVE UNIT NUMBER TO heSsice 

157 005256 104307 001103 HRQ.ROQ,RO : GET REQUEST NUMB NUMBER 

158 005260 021053 CALL HOSTRQ : REPORT TO HOST 

159 005261 101200 000002 002223 BIS #DIE,.M.PARM ; DO NOT Wi 

160 005264 104300 005335 001104 10$: MOV SUNIT,HRQ.01 + MOVE IN R 

161 005267 104300 004525 001105 MOV DSERNM, HRQ.02 : MOVE DRIVE CRA NUMBER TO BUFFER 





D 6 





SEQ 482 
UDATS DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 141-3 
REPSER = FIND AND REPORT DRIVE AND HDA SERIAL NUMBER 


162 005272 104300 004526 001106 MOV DSERNM+1,HRQ.03 : MOVE DRIVE SERIAL NUMBER TO BUFFER 
163 005275 104300 004527 001107 MOV DSERNM+2,HRQ. 04 : MOVE DRIVE SERIAL NUMBER TO BUFFER 
164 005300 104300 005347 001110 MOV SERSEC+2,HRO.05 ; MOVE HDA SERIAL NUMBER TO BUFFER 
165 005303 104300 005350 001111 MOV SERSEC+3,HRO.06 : MOVE HDA SERIAL NUMBER TO BUFFER 
166 005306 104300 005351 001112 MOV SERSEC+4,HRQ.07 : MOVE HDA SERIAL NUMBER TO BUFFER 
167 005311 104300 005352 001113 MOV SERSEC+5, HRO.08 : MOVE HDA SERIAL NUMBER TO BUFFER 
168 005314 104207 060004 MOV UPRM,R : MOVE IN REQUEST 
169 005316 021053 CALL §HOSTRQ + REPORT 
170 005317 POP <R1,R0> : RESTORE POINTER AND COUNT 
005317 104261 MOV (SP)+,R1 
905320 104267 MOV (SP)+.RO 
171 005321 115400 005335 12$: INC SUNIT : INCREMENT ACTIVE SUBUNIT 
172 005323 106010 005335 CMP R1,SUNIT : SEE IF ALL SUBUNITS REPORTED 
173 005325 044723 BCC 11§ ; IF NOT, BRANCH 
174 005326 POP RG : RESTORE SUBUNIT POINTER 
005326 104264 MOV (SP)+,R4 
175 005327 114002 CLR R2 : NO ERRORS 
176 005330 114001 CLR R1 + IMMIDATE CALL 
177 005331 104207 000036 MOV #INITD,RO : INITD NEXT ROUTINE 
178 005333 024212 CALL  DSABLE : DISABLE ERROR RECOVERY 
179 005334 003231 BR JMPRET + RETURN TO R 
180 .DSABL LSB 





—— 





UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE 142 
ASSOCIATED VARIABLES FOR GETTING THE 4DA SERIAL NUMBER 


ASSOCIATED VARIABLES FOR GETTING THE HDA ire on NUMBER 
WORD 0 ; THE ACTI ae 


SS333838338 
REESE SAG 


Ssss 


MAXADR=<. +269.> 
69. 


WN O0ONOUNSwr— 


— os 





; THE CHAIN FOR READING SECTOR 0 (RCT) 
; POINTER TO THE SECTOR 


269 WORD BUFFER FOR READ 


SEQ 483 


SEQ 484 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 143 
eeeneeeeee OVERLAY MODULE INITD = INITILIZE THE DRIVE PARAMET 


1 .SBTTL teeeeenene OVERLAY MODULE INITD = INITILIZE THE DRIVE PARAMETERS FOR TESTING 
2 005345 DMOVL Y 1D, AREAI 
005345 000105 WREDC :OUTPUT EDC FOR THIS OVERLAY 

3 ITT TITI TTI TLI TLL LL ITIL TTT TTT ITT TELL E LTT LETT TET TTT 

4 SRAAAAAAAARAAAARAAAEAEARERERERRAEARAEREREREEREREREEAERERAREREREEEERERERREREEEEE 

5 FRAAAAAARARAAARAREAARAEEEEEEERERARAERERRAARARERERERREREREREEREREEREEREEEEEEREEEEEE 

6 SRAAAAAERAAAEREEAAREEREREERERRAEREERARRRERERERERRERARAREERERERERAERERREREEEEEEREE 

7 : 
5 | 
10 000036 INITD = GETSER+1 | 
12 : BRING DRIVE ONLINE, CLEAR ALL ERRORS (IF ANY) AND CHANGE THE 
13 : MODE TO THE REQUIRED VALUES 
15 .ENABL LSB 
16 004710 104207 000004 MOV #4,R0 : MAXIMUM OF 4 SUBUNIT s 

17 004712 104201 000001 MOV #U.SUBP,R1 : R1 WILL POINT TO SUBUNIT POINTERS 

18 004714 105051 ADD R5.R1 : R1 POINTS TO suBUNTT POINTERS 
19 004715 104212 1$: MOV (R1)+,R2 : GET POINTER TO SUBUNIT IN 
20 004716 074734 BMI 2$ : IF UNIT NOT TESTED, BRANCH 
21 004717 104123 MOV (R2),R3 : GET IT P | 
22 004720 ASSUME S.PARM,O > ASSUME THAT S.PARM IS ZERO | 
23 004720 102203 000100 BIT # : SEE 
24 004722 054726 BNE 7$ 3 IF SO, BRANCH 
25 004723 114000 002217 CLR SCR1 : FLAG AS RANDOM LBNS 
26 004725 004731 BR as : BRAN ANCH 
27 004726 104200 177777 002217 78: MOV #-1,SCR1 : FLAG AS LENS 
28 004731 102203 040000 8$: BIT #INITW,R3 : SEE IF SUBUNIT vite BE INITALLY WRITTEN | 
29 004733 054737 BNE 3$ : IF SO, BRANCH 
30 004734 117407 2s: DEC RO : DECREMENT COUN 
31 004735 054715 BNE 1$ : IF NOT ALL SUBUNITS CHECKED, BRANCH 

32 004736 750 BR 4$ : BRANCH 
33 004737 104657 000046 3$: MOV U.PARM(RS).RO : GET UNIT PARAMETERS 
34 004741 101207 040000 BIS #INITW,RO : FLAG UNIT AS SUBUNITS GET INITIALLY WRITTEN 
35 004743 100657 000046 MOV RO. U.PARM(RS) : SAVE 
36 004745 101200 100000 002223 BIS MIWIPRG.M.PARM : FLAG MASTER PARAMETERS AS INITIAL WRITE TO BE DONE | 
37 004750 104207 000004 4$: MOV #4, : MAXIMUM OF FOUR SUBUNITS 
38 004752 104201 000005 MOV #U.SUBP+4,R1  : R1 WILL POINT TO AFTERS SUBUNIT POINTERS 
39 004754 105051 ADD R5,R1 : R1 POINTS TO AFTERS SUBUNIT POINTERS 
40 004755 114003 CLR : INITILIZE SUBUNIT PROTECTION FLAGS 
41 004756 110203 5$: ROL R3 : ROTAT 
42 006757 103203 000001 BIC #1,R3 : CLEAR LO BIT 
43 004761 104412 MOV =(R1) ,R2 : GET SUBUNIT POINTER 
44 004762 075031 I : IF NO SUBUNIT, BR 
45 004763 104122 MOV R2) ,R2 : GET SUBUNIT STATUS 
46 0047 ASSUME S.PARM, > ASSUME THAT S.PARM IS ZERO 
47 004764 102202 000100 BIT : SEE IF AL SEEKS 

8 004766 05477 BNE 9$ 3 If SO, BRANCH 
49 004767 115 002217 TST SCR1 : SEE IF ALL SUBUNITS RANDOM SEEKS 

50 004771 054776 BNE 10$ 3 IF NOT, BRANCH 

51 004772 005024 BR 11$ ; BR 

52 004773 115 002217 9$: TST SCRI : SEE IF ALL SUBUNITS AL SEEKS 

53 004775 055024 BNE 11$ : IF S BRA ANCH 

54 004776 10$:  DEVFTL 56,#SER20 : REPORT ER 

0047 00 003607 001107 MOV #ERS6,HRO.04 


2 
200 004052 001110 MOV #SER26,HRO.05 


S 
Sx 
22 
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MAXADR 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 143-1 
weeeeeeeee OVERLAY MODULE INITD = INITILIZE THE DRIVE PARAMET 


ENDERR 0 

BIS #D0IE,M.PARM 
BR DRVEXT 

BIT #RONLY ,R2 
BEQ 6$ 

BIS #1,R3 

DEC RO 

BNE 5$ 

ROL R3 

ROL R3 

ROL R3 

ROL R3 

BIC #LBHINB ,R3 
MOV R3,U.WPRT(RS) 
MOV #SETUP RO 
MOV ° 

CLR R2 

BR JMPRET 
-DSABL LSB 

IF ee 
-ENDC 


SEQ 485 
MOV «#56! FILDEV+4000. ,R2 
MOV —-R2, HRO.02 
MOV = #. ,HRO.01 
MOV —- #ERRMC,HRO.RO | 
CLR RPOS : CLEAR THE POSITION 


ER 
; cum INITIALIZATION ERROR 
; SEE IF READ ONLY DRIVE 
IF READ 


NOT 
SET READ ONLY 
; Re C 


ONLY, BRANCH 
BIT 


T 
XPIRED, 


BRANCH 


ROTATE MASK TO somes POSITION 
; chem UNUSED BIT 


peat’ at NEXT ROUTINE CALLE 


1 NON-ZERO (DEFERRED CALL) 


NO ERRORS 
RETURN TO 


OUTPUT EDC FOR THIS OVERLAY 


SEQ 486 
E 
AFTOP 004641 LPO 004557 d$ 524 ER44 003132 GETSUB= 000210 
FTWRT= 000011 COPLP1 004564 D.LIMT= 000001 ER4S 003165 GETU 004764 
ALLOCM 004703 COPLP2 004574 D.SCHR= 000002 ER47 Hee GMPA 004710 
AREAI = 004710 TD 005064 ECC = 000015 ER48 003 $6 GOINIT 00424 
AREAO = 004422 CPYBEX 006004 ECCCHK= 010000 ER49 00327 GONE 003202 
AREA] = 004611 CR.CLR 001624 ECCFLG= 010000 ERS Hi GORCLB 004235 
AREA2 = 005052 CR.DIS 0016 9 ECCRSH= 000002 ERSO 003320 GORTRY 004221 
N = 2 -ERR 00164 ‘ECHO = 000010 ERS1 003365 GOSEEK 
AVAIL = 000100 CR.GCR 004462 ECHOC = 000350 ERS 003410 GOT 005103 
005750 CR.GST 001617 EDCLOP 001155 ERS 003470 GOTOFS 5106 
BEEXT 005260 - INR 1655 ENABLE 004203 ERS4 003505 GO4IT 003214 
BESDWN 005143 R.MOD 001631 EOC = 100000 ERSS 003555 2203 
BESUP 005257 CR.ONL 1612 ERCOV = 000016 ERS6 003607 GRPCYL= 
BEUSED= 000040 CR.RUN 474 ERECOV= 00000 ERS? 003647 GRPOFF= 0000 
BF .DAT= 000000 CR.SCR 467 ERE 00451 ERS8 003722 GR 005516 
F.ECC= 000401 CR.SEK 001636 ERHARD= 100000 ERS9 003753 GST 001670 
BF .EDC= 000400 CSCEXT 4517 ERLEV = 000002 ER6 000562 HBHINB= 007777 
BLOBB. 005555 CURBN 002175 ERMASK= 100000 ER6 003770 HBLONB= 170377 
BLOUNT 005374 CvT = 000020 ERMODE 002226 ER6 004120 HDORPRE= 
BLKCHK 001725 CYL peer ERR 001676 ER64 004150 HD.BAD= 110000 
BREAK = 000000 Y 5346 ERRLEV 001677 ER68 004200 HD.DBN= 140000 
BSUSEX 006015 CYLSCR 005604 ERRMC = 0600 ER69 004223 HD.LBN= 
BUF ARA= 005237 C2DFTL= 100000 ERRMES= 06001 ER 000615 HD.PRV= 050000 
BUFFLG= 04 C2HARD= 040000 RRPOS 0022 ER70 004264 HD.RBN= 060000 
BUFSIZ= 000043 DATCMP= 00000 ERSOFT= 140000 ER71 004300 HD.REV= 030000 
BUILDP= 00000 DATPRE= 000005 R1 0000 ER72 004315 HD.XBN= 1 
BULDUM 001777 DBNCYL= 22 ER10 000770 ER73 345 172 
CALC 002027 DCEXT 004752 ER1000 005071 ER74 004371 HIBYTE= 177400 
CALCSC 002173 DCLOCK= 000004 ER11 001044 ER75 004416 HICYL = 000001 
CBB2 004632 DCLR 001667 ER1 001116 ER76 004447 HIDBN = 000003 
CHAINS 002232 DCMPAL= 000001 ER1 001411 ER77 ooeees HILBN = 2 
CHGMOD= 000201 DCMPYS 004746 ER14 001440 ER78 00456 HIMEM = 007774 
005 DCREAD 004740 ER15 001506 ER8 000631 2 3 
CHKBES 005420 DCYLS = 020000 ER16 001556 ERY 000745 HISEED 002225 
CHKCYL 005243 = ER17 001607 T = 00002 os $ 
0041 = ER17A 001637 FB.DAT= 000000 HOSTRA 00105 
CHKECC= 000015 DINIT = 00001 ER18 001705 B.EDC= 000400 HRDREV= 3 
CHKEDC= 000014 DIREC = 010000 ER19 001757 FCTSIZ= 000010 HRO.RQ 001103 
CHKTG 005232 DIS 001662 ER2 000117 FIRSTU= 00770 HRQ.01 (001104 
DISCON= 000204 ER20 2061 FIXPAT 00470 —-e 001105 
00 DONE - 060016 ER21 002111 oette ° got ge 
CHRRES= 0001 DOWNG 005351 ER23 00216, FNDLOP 005305 HRQ.04 00110 
CLCLBN 005153 DOWNT 005207 ER24 00 ¢/ FNDRER 004650 HRQ.05 001110 
CLCMAX 005746 DRC 1666 ER25S 002342 = 000001 HRQ. 001111 
C = DRINIT= 040000 ER26 002371 FSTOP = 100000 HRQ.07 001112 
CMPEDC 001146 OP = 100000 ER28 002420 FTIME = 001000 HRO.08 0011135 
004524 DRPALL= 000026 ER 008198 FTLDEV= 040000 HRQ. 001114 
CMP2 001765 DRTYPE= 000007 ER33 00245 FTLSYS= 000000 HRQ.10 001115 
CMXEX 004716 DRVCLR= 000005 ER34 oos3he FT.BUF= 000000 Q.11 A 
CNTLOP 005056 DRVEXT 005047 ER3S 002566 FT.HI = 000001 HRQ.12 00111 
COMCHR= 000030 DRVID = 000004 ER36 $0612 FT.L Bosees HRQ.1 ooiss 
COMPAR= 000006 DRVONL= 000213 ER37 002637 FWRD 0045 HRQ.14 001121 
COMPDP 005515 DRVRUN= 000014 ER38 002663 GCR eat HRQ.15 oot 1s§ 
COMPLT= 000176 DSABLE ooeeis ER4 gy GETCHR= 2 HRQ.16 0011 
COMPSC 005717 DSERNM 00452 ER4O 002710 GETMEM 004625 HRQ.1 Oot iSe 
COPBB 7 DUMSDI 002207 ER41 003000 GETSER= 000055 HRQ.18 001125 
COPFIN 004577 DUPPKT= 060000 ER42 603071 GETSTA= 000011 HROQ.19 001126 





=a 


SEQ 487 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 143-3 
SYMBOL TABLE 
HRQ.20 001127 MASK 005034 ONLYCL= 000200 OVL.SC= 000615 PATI3 002476 
HRQ.27 0011 MAXADR= 006033 OTABLE eet ey OVL.Sk= 000323 PAT14 002520 
WRO.2@ 001131 MAXDBN 11 OUTO =: 00531 OVL.SO= 00022 PATIS 002525 
HRQ.2 001132 MAXMSK= 177776 OVE .AW= 004422 OVL.SP= 00002 PAT 002303 
HRQ.24 00113 OVE .BP= 004422 OVL.ST= 000471 PAT 002306 
HRQ.25 001134 MAXSEC 002235 OVE.CC= 004710 OVL.SU= 000167 PATS 2311 
HRQ.26 001135 = 001750 OVE.CD= 0044 g OVL.SO= 001101 PATS 002333 
HRQ.27 001136 SUB= 0 OVE.CK= 0044 OVL.S1= 000624 PAT6 002355 
HRQ.28 001137 MEDTYP= 000006 OVE .DA= 0044 OVL.TS= 000371 PAT? © 002377 
HRQ.29 001140 27 VE.EC= 0044 OVL.W = 4 PATS 002402 
HRQ.30 001141 SSAG= 060015 OVE.ED= 0044 OVL... PAT 2424 
HRQ. 31 Oortsg MICREV= 000003 -GS= 004710 OVSTRT= 007774 PHYSA = 034200 
HRQ.32 00114 INADR= 32 OVE.ID= 004710 OVS. AW= 070628 PLOAD 003211 
HRQ.33 001144 MKLOOP 004651 OVE.IN= 004710 OVS.BP= 067032 PNUM = 002221 
HRQ.34 001145 1 OVE.LM= 004422 OVS.CC= 103650 PREVBE 0053 
ID 005565 MODS12= 126736 -MN= 000714 OvS.CD= 077210 PTABLE 004254 
INDEX 002206 MODS76= 074161 OVE.MS= 000000 OVS.CK= 075420 RANDOM 004773 
INITD = 000036 E 7 OVE.NL= 004422 OVS.DA= 103456 RBLOCK 004546 
INITW = 040000 MOVDBN 002123 OVE. 4611 OVS.EC= 07645 = 
001671 MOVOUT 002164 OVE.R = 00442 -ED= 07444 RBNFLG 002200 
INS 00 v2 005427 VE.RB= 0050 OVS.GS= 110552 TRK= 
INSEEK= 000012 000016 VE.RC= 005237 OVS.ID= 111646 RONTXT 005475 
ET = 00002 MSSG$ = 000000 OVE.RT= 00505 OVS.IN= 103604 FLN= 000415 
INTEDC= 000105 MS1 005532 OVE .RV= 00442 OVS.LM= 100012 RCBREQ= 002000 
TINP= MS2 005550 OVE.SB= 00505 OVS.MN= 034240 RCONT = 
IRECLB= 000216 MS3 (005621 OVE.SC= 004422 OVS.MS= 046476 RCTCPS= 000001 
ISUEXT MS4 005704 OVE.Sk= 005237 OVS.NL= 076646 RCTCSZ= 000014 
ISUSEK 005502 OVE.SO= 004710 OVS.NO= 062760 RCTL$ 005526 
IPRG= 1 M.PARM 002223 OVE.SP= 00471 OVS.R = 072234 = 
T 003231 WON 433 OVE.ST= 00505 Ovs RCVERR= 000400 
LASTU 004 NEWEXT 004600 OVE.SU= 00442 OVS.RC= 103316 RCVRDY= 000001 
LBHINB= 177417 NEWLEV= 000017 OVE.SO= 004710 OVS.RT= 065320 RDSTAi 001007 
LBLONB= 1 NEWOP = 2 OVE.S1= 004710 S.RV= 1001 READ = 000012 
LBNCYL= 000000 NEWSUB= 004000 OVE.TS= 005237 ECALB= 000025 
LBNHST= 000012 NEWUPT 005405 OVE.W = 004422 VS.SC= 073010 RECOVR 003720 
LONTRK= 000011 NEXTBE 005370 OVL.AW= 000604 OVS. Sk= 101566 EDWRT= 0001 
LEVNZR 004540 NLBEXT 005144 OVL.BP= 000271 ~SO= 1042 RETRY = 001000 
LEVUSD= 020000 NLEV 004502 OVL.CC= 000143 -SP= 104156 RETS = 000001 
006002 OVL.CD= 000301 -ST= 065650 REVCT = 000022 
LNCONT 002107 005120 OVL.CK= 000417 ~SU= 062402 REVEC = 000400 
LNCYL 002101 NOEXTR 005765 OVL.DA= 000053 OVS.SO= 104700 REVS = 000007 
003175 NOSEEK 005426 OVL.EC= 000074 OVS.S1= 107102 REVSOK 004534 
LOBYTE= 000377 SUB 003715 OVL .ED= 300767 VS.TS= 102334 RM = 000004 
LOCYL 001673 NOSUN 006013 OVL.GS= 0004 OVS.W = 067614 R = 
LONG = 001654 NOU _ 005465 OVL.1D= 000141 V... = 045064 RNDTG = 000005 
LONGT 1 NOUNIT 002560 OVL.IN= 000022 PARTI 004264 RNDO = 004676 
LOSEED 002224 NUMBB 004510 OVL.LM= 000056 PARTO 004254 Y = 004 
LRDTRK 002177 NUML2S= 000010 OVL.MN= 005117 PART? 004256 T = 00253 
LSTMOD= 000021 NUMOVL= 000037 OVL.MS= 005742 PART 004260 ROOTLP 002535 
LSTOVL 002222 TR= 000006 OVL.NL= 000161 ART 62 RREAL = 01 
LSTTRK 005520 NXTLEV= 010000 VL.NO= 000241 PATEXT 0% RSTOP = 1 
005522 NXTRCT 005003 OVL.R = 00026 PATPTR 002236 RTDS 000746 
L2.E0F= 000004 NXTTRK 003642 OVL.RB= 00016 TO 56 TOSL. 000775 
L2.ERS= 000003 OCNTS = 00003 OVL.RC= 000060 PATI 8 00 RTRIES= 001000 
-OPC= 000000 ONEPAT 004573 OVL.RT= 000154 PATIO 00 og! RUN = 004501 
L2.RLN= 000002 ONEPAX 004510 OVL.RV= 000550 PATI] 002451 RVFAIL 005134 
L2.SLN= 000001 ONL 001700 OVL.SB= 000537 PATI2 002454 RWRDY = 100000 





J 6 


SEQ 488 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE 143-4 
SYMBOL TABLE 
ANG= 000006 SER17 005361 START 004530 TGS 005514 U.MLEV= 000031 
RW.BUF= 000001 SER18 005413 STATUS= 000007 THREBE 005100 U.MSEC= 000022 
-CMD= 000004 SER18A 005435 STOP 573 TLEN.U= 000072 U.MSTO= 000011 
RW.HI = 900003 88 005431 STSERR 005426 TLKHST 001031 U.NEXT= 000000 
-LOW= 000002 SER18C 005425 STSEXT 005626 TMEMPL 004710 U.NFUN= 000 
RW.SDI= 000005 SER18D 005421 STSRES= 000366 T 00504 U.NSEC= 000021 
. 000000 SER18E 005350 ST.C = 02 TRAC 00220 oP. 
SBCRES= 000167 SER18F 004470 ST.CON= 000002 TRACKS= 000020 U.PAT = 00001 
000033 SER19 000470 ST.DB = 000 TRAV 005165 U.PCTG= 000017 
SCHAR1= 000034 2 004670 ST.DE = 000200 TRKGRP= 000003 U.RBN = 000055 
SCHRCP 005217 SER20 004052 ST.DF = 000020 TRK 005512 -RCOV= 
004503 SER21 0 ST.DR = 000040 TROOT 004647 U.RRTY= 000010 
SCR1 002217 SER22 000051 ST.EL = 000010 TRYAGN Oose ge U.RTRY= 000030 
002220 SER24 1 ST.ERR= 000002 TSTNEC 0054 U.RVER= 000062 
SCTWRD= 000377 SER25 001357 ST.FO = 002000 TIMSIZ= 060000 U.RWER= 000061 
SDIVER= 000000 SER26 003040 ST.MOD= 000001 T2CMD = 060002 U.RWTO= 000012 
SDIS = 000003 SERS 004712 ST.MSK= 000000 T2DLL = 060001 U.SDIL= 0000 
SEARCH 004644 SER32 54 ST.OA = 000200 4881 = 06000 U.SDIS= 000033 | 
SECCHK= 000013 SER36 04245 ST.PE = 000040 T4882 = 060006 -SDI2= 000035 
SECCYL 004515 SER39 002502 ST.PS = 000002 = «SRTY= 000007 
SECGRP 004514 SER4 004731 ST.RE = 000100 T4MXFR= 060011 U.SUBP= 000001 
SECMAX 002233 SER4O 005440 ST.REQ= 000001 T4SEEK= 060010 U.SUBU= 000050 
SECPTR 004711 SER41 00546 ST.RR = 000100 T4SOF T= 060007 U.TIMH= 000005 
002205 SER4 00220 ST.RTY= 000003 TIML= sa 
SECTRK 004513 SER4 002217 ST.RU = 000001 UCURSR 004505 U.TSEC= 00002 
K = 23 SER44 002234 ST.SR = 000020 UDADM4= 034200 G 
SEKCNT SER45 002246 ST.S7_ = 000400 UL 0054 -WPRT= 
SEKEXT 005432 SERS 004752 ST.UNT= 000000 UMASK 004507 U.WRIT= 000026 
SEKINP= 002000 SER6 004773 ST.WE = 000010 UNITS 005354 VALOIT= hale 
SEKOUT 005431 SER? 005013 SUBTRV 005176 UNSSUC= 4 VALID = 100000 
SEKREQ= 004000 SERS 005032 SUBUNT 004504 UP 005163 WAITSI= 000012 
SEKTST= 000024 SER 005053 SUNIT 005335 UPG 00871 WBLOCK 004646 
SEND = 000004 SETSEC 005507 SUSETL 005505 UPT 005130 WBUFLN= 000401 
SETUP = 1 SWAPBE EAD = 000013 UCHECK= 000010 
2601 SHRTTO= 000000 $.BADP= 00001 UTOTST= 060012 WCHKAL= 000004 
002577 SLOP 005516 $.BESS= 00001 UWRITE= 000014 WCONT = 040000 
1 SMASKL 004721 S.LETR= 000005 U.CBN = 000053 Y= 
SMASKX 004725 S.MCNT= 000013 U.CCNT= 000015 WREAL = 122400 
SERCHN 005337 SNDAGN 001060 ° 01 -CCOP= 000060 WRITBT 001665 
SERRTY 5336 SNDEX 004601 S.MEGW= 000011 -CCYL= 000064 WRITE = 000010 
005345 = Borges ° 000 U.CGRP= 000066 WSTOP = 140000 
SE 33 SORT = 00003 S.PAT = 0 U.COPY= 000057 XBNCYL= 000021 
SER1 SORTBB 005 SCHR= 00000 -CSEC= 000024 XFERRT= 
SER10 005210 SORTBE 00474 $.SDCL= 000002 U.CTRK= a4 00447 
SER11 005223 SORTTG 005103 SEEK= 00000 -ECCT= 0000 XOPLP1 004476 
SER12 005241 SP INUP= $.TGOF= 000015 -ELEV= 000027 XOPLP2 004511 
SER13 005253 Ss = -TGSS= 000017 -LCYL= XR = 
SER14 o03666 ST oes S.TRKL= 00000: U.LGRP= 000071 XWRITE= 00000 
SER15 005314 STACK 00074 TALK 00117 U.MASK= 000025 ZEREDC 001165 
SER16 005336 STACYL 002173 TGS 004516 U.MBN = 000051 
- ABS. 112150 


000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 6098 WORDS ( 24 PAGES) 
DYNAMIC MEMORY AVAILABLE “ 71 PAGES 
-B:UDAT4/C=SDMACRO,B:UDAT 








SEQ 489 
UDAT4 DISK EXERCISER DMACR X04.01 T3-APR~62 15:49:22 PAGE S-1 | 
CROSS REFERENCE TABLE (CREF V04.00 ) 
AF TOP 63-28 72-68 73-128 83-17 84-48 
AFTWRT 44-39 97-112 “104 100-10 | 
ALLOCM Seni 94-1 94-28 95-21 96-24 | 
AREAO 44-9 ae 61-2 61-2 93-2 93-2 97-2 97-2 99-2 99-2 100-2 100-2 103-2 103-2 
104-2 94-3 105-2 = 105-2 106-2 106-2 = 107-2 107-2 «= 108-2 108-2 «2S 109-2 1092S 110-2 110-2_——, 
AREAT 44-11 61-1074 62-2 62-2 | 
AREA2 44-13 70-174 71-2 71=2 73-2 73-2 80-2 80-2 84-2 84-2 
AREAL aie-l? 13-37" 121-2 21-2 122-2 122-2 1235-2 123-2 12h=2— 12h=2 129-2, 129-2, 136-2 136-2 
ATTN 8-234 18-18 34-46 36-18 36-25 36-27 38-87 39-11 52-14 118-72 
AVAIL 8-26# 18-18 4-46 - 36-23 38-51 51-34 118-65 119-39 
OP 58-864 58-100 | 
BEEXT 73-69 73-121 73-1234 
BESDWN 73-36 -594 | 
BESUP 73-102 73-1224 
BEUSED 10-524 - 58-14 58-25 62-19 62-25 124-25 129-80 133-17 133-43 133-61 136-42 | 
BF.DAT 5=62# 
BF.ECC 5-644 
BF.EDC 5-634 97-97% 104-56 104-83 105-47 105-73 141-127« | 
BLOBB 56-13 57-24 
BLDUNT 46-3 55-20 
BLKCHK 25-24 99-61 103-30 104-31 108-76 
BREAK 6-34 
BSUSEX 58-110 58-1124 
BUFARA 44-15 44-107 «44-115 46-15 = 96-12 9B=46 = 99-155 102-26 103-142 104-106 105-101 106-52 107-69 108-111 | 
09-46 113-49 «115-2. 115+ 118-2 118-2 -119-2,s«*119=2 
BUFFLG 5-47# 99-37 102-13 103-28 
BUFSIZ 20-15 20-20 21-414 
BUILDP 44-37 93-10# 97-10 106-41 107-64 115-69 118-58 
BUL 27-24 «=: 97-43 Ss :'100-51 = 141-32 
C2DFTL 8-654 23-96 122-21 123-22 129-134 
C2) 8-644 104-94 105-82 
CALC 28-24 79-17 79-2 93-28 113-25 116-16 
CALCSC 28 29-34 141-50 
CBB2 48-24 §=127-12 §=—- 133-13) =: 133-28 «=: 133-39 Ss «133-57 137-14 =: 137-26 ~3=-: 137-40 | 
CHAINS 29-374 93-27e 94-7 94-18" 97-62 98-7 99-32 101-6 = 102-9 = 103-25 104-24 104-75 105-22 108-23 
108-79 109-20 109-26" 112-6 
CHGMOD 8-344 24-22 
CHKBB 136-37 137-24 
CHKBES 7 133-24 | 
CHKCYL 131-24 
CHKON 33-121 33-125 41-24 
CHKECC 44-43 Oo~4e 105-10# 106-10 
CHKEDC 44-42 103-137 104-104 105-10 
CHKTG 136-44 138-24 
CHKUP 33-79 33-118 33-128 42-24 
C 394 46-298 -86 61-88 
CHRRES 8-45# 44-74 
CLCLBN 72-27 72-334 
CLCMAX 129-77 135-24 
CMP2 25-15 26-24 = 73-35) 713 
CMPDAT 44-46 104-73 104-98 105-95 107-43 108-10# 109-10 
CMPEDC 22-2# 97- 104-54 105-46 141-126 
CMPERR 108-56 108-65 108-734 
CMXEX 108-71 108-78 108-1084 





L 6 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE S-2 
CROSS REFERENCE TABLE (CREF V04.00 ) 


CNTLOP 71-208 71-24 
HR "Tae 121-23 9122-104 123-10 
COMPDP a i* 139-31 139-49 140-24 
8-4 4-6 24-9 24-10 24-11 24-12 24-13 24-15 44-76 
COMPSC 129-76 134-24 


6 
CR.GST 24-84 38-54 40-15 51-40 
CR.INR 24-15# 119-22 119-41 141-56 
MOD 40-62 


7-9 141-63 


29-54 79-13* 79-15% 79-57 79-59 79-72% 79-74% 79-768 79-78% 93-20" 93-218 
10- 11-17 112-14 


95-33 95-54" 95-56" 110-56" 110-60" 111-17 1 

113-41) -116-10* =116-11% 116-13 116-14" 141-48* 141-492 141-90 141-99 

CvT 6-19% 28-62 141-52 
79-1 79-31 


CYL sits 9 93-29% 93-31% 113-274 113-30" 115-43 115-43 
CYLON 131-11 131-24 132-24 
CYLSCR 79-18 79-30 79-824 
59-2864 129-65 133-65 133-66 
D.LIMT 27-15* 


DATCMP S7# 8658-14 63-14 67-6 67-17 104-69 104-96 105-93 107-41 


DCEXT 67-7 67-11 67-16 67-194 


DCYLS 10-448 27-8 28-17 58-14 58-20 95-38 99-94 103-60 129-63 

DEBUG 31-3 34-52 35-6 44-95 47-9 59-291 61-18 
104-18 §=6105-15 9107-15 §3=—6 108-15. 110-12) 115-19 9118-17 119-15 

DIE 10-104 18-6 122-23 123-24 129-104 129-136 136-51 141-159 143-56 


ag 10-174 S7- ihe 33-116 941-23 42-35 73-16 79-54 79-70 84-18 


DOWNG 88-24 
DOWNT 84-22 86-24 88-23 


112-16" 112-51 112-51 


141-135* 141-137* 
116-17 =117=6 


131-35 133-36 
61-30 97-15 


93-23* 
113-22 


117-7 


117-24 


93-24* 
113-23* 


SEQ 490 


95-31 
113-41 


141-60 


103-18 


cm 








DRC 
DRINIT 
DROP 


24-9 


ais 


UDATS DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE S=3 
CROSS REFERENCE TABLE (CREF V04.00 ) 


122-27 


43-43 
103-133 


33-83 33-109 33-132 
136-72 
107-30 115-67. 118-79 
141-161 141-162 141-163 
29-30 95-27 141-103 
8-7 - 8-9 
61-98 106-15 111-30 
109-24 





38-6 38-8 39-7 39-35 
141-178 

8-10 8-11 8-12 8-13 
113-44 118-30 


39-43 


8-14 


41-17 


8-15 


SEQ 491, 


42-17 


8-16 


SEQ 492 
UDATS DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE S#é | 
CROSS REFERENCE TABLE (CREF V04.00 ) | 


ER42 59-1524 98-15 101-11 
# 117 


i 
ERS2 59-1694 133-38 133-69 
ERS4 59-174# 137-36 137-42 


ER? 59-414 104-44 


ERMASK 10-314 33-44 34-42 36-12 39-10 43-8 43-17 
ERMODE 29-254  36-7% 36-23* 36-27% 38-6 38-87" 39-11% 39-33"  40-65* 


ERB = 59-43" = 105- 

ERO 59-50" 105-35 | 

ERCOV 44-44 104-92 105-85 106-10# 107-10 | 

ERECOV  8=33# 24-32 | 

EREXT 106~% | 

ERHARD | 8-62" = 8-66 B64 25-75 97-33 99101 99-138 100-36 103-68 103-116 107-31 108-80 111-10 112-46 
| 


8-164 18-11 23-75 34-23 36-20 40-25 46-8 54-38 
101-17 = 1035-68 103-116 104-95 105-83 107-31 108-80 111-10 
132-22 133-21 133-23 133-30 133-53 9133-67 9133-69 39: 136-23 


97 

11 

13 
ERRMES 8-158 23-24 23-40 23-56 23-60 23-64 23-68 3 623-720 2 
99-131 99-136 103-52 103-86 103-90 103-95 103-100 103-164 10 
3 

19 

11 

2 


33 98-15 98-36 99-101 99-138 100- 
44 113-34 115-4 122-22 123-23 129- 
“18 137-36 137-4 138-45 159-29 1 
~82 36-28 99-86 99-117 99-122 99- 
“109 105-114 104-44 104-78 105-29 105-35 
105-68 118-54 118-75 118-91 
ERRPOS 18-12* 235-738 23-77% 23-84% 23-87%  29-27H 36-21% 36-29% 7? 
9B-37* —99-107# 99-139" 99-147" 100-38 101-12* 103-74 103-117 103-1 
105-74* 107-34* 108-107* 111-18* 112-52% 115-44% 118-57" 118-778 9 
ERSOFT 8-634 8-64 8-64 8-65 8-65 23-24 23-40 23-56 6 


38-45« 
5* ’ Piece 104-84" 105-42" 105-67* 105-73 
0 23-64 23-68 23-72 23-82 36-28 


112- 
? 
3- 
3- 
.- 40-35" 40-36" 97-35" 98-16% 
3 
3 








99-122 


99-126 


104-78 105-29 105-35 
31-54 


45-16 
74-28 


33-14 
8-65 
133-21 


115-43 
138-32 


8 
28-33 


49-7 


if 
133-23 


117-8 


8 
28-58 


95-43 


UDAT4 DISK 
CROSS REFERENCE TABLE (CREF V04.00 ) 
86 99-117 
04-44 
EXIT 6-208 
FB.DAT 5-22 
FB-EDC 5=234 
FCTSIZ 9 2=35# 141-135 
FIRSTU 9- 31-24 
FIXPAT 65-11 65-15 
NDBES 73-33 73-101 
FNDLOP 74-118 74-15 
FNDRER 101-17 102-28 
6-48 
FSTOP © 5=424 
FT.BUF 5-154 
“HI 5~16# 
“LOW 5=178 
ME 10-208 33-11 
FTILDEV 8-614 8-65 
15-42. 132-22 
141-155 143-54 
FILSYS 8-60" 
FWRD 108-43 108-728 
GCR  44=74 == B58 
GETCHR 8-384 44-85 
GETMEM 47-28 55-23 
GETSER 44-64 129-131 
GETSTA 8-40" 24-26 
GETSUB 8-394 44-86 
GETU 46-2 51-28 
GMPARM 46-1 50-24 
GO4IT 33-142 34-408 
GOINIT 23-23 23-55 
GONE 34-334 34-37 
GORCL8 40-40 43-39" 
GORTRY 23-35 23-88 
GOSEEK 33-13 40-50 
GOTOBE 71-30 71-33 
GOTOFS 71-26 71-398 
GROUP 29-94 -33« 
PS 59-2824 138-33 
GRPCYL 7=24# 136-1 
GRPOFF 7-378 
GST 26-8  24=26" 
HBHINB 7-498 26-11 
94-23 99-43 
HBLONB 7-50# 28-29 
HD.BAD 5=55# 
HD-DBN 5-584 95-40 
HD-LBN 5-524 95=44 
HD-PRV 5-56 
HD-REN 5-538 95-42 
HD-REV 5=54# 
HD.XBN 5-574 141-98 
HDRPRE 7-334 
HIBN 28-34% 28-59 
HIBYTE 7=47# 27-12 


29-28 
28-11 


28-13 


EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE S=5 


99-131 99-136 103-52 
105-68 118-54 118-75 
49-24 55-49 55-52 


42-33 49-10 49-20 
34-23 36-20 38-3 
133-30 133-53 133-67 

143-10 

99-127 99-132 103-53 
115-48 

119-37 

61-101 98-17 98-38 
141-62 

48-7 48-9 52-10 
109-25 110-47 = 112-13 
97-60 141-97 

28-20 28-44 38-91 


103-86 
118-91 


58-120 


38-4 
133-69 


103-105 


99-148 


40-46 


129-44 


40-25 
136-23 


103-110 


101-13 


58-119 
132-20 


82-12 


SEQ 493 


103-95 103-100 103-104 103-109 103-114 | 


129-46 
46-8 54-38 
137-18 137-36 


103-126 118-94 


73-51 73-79 
138-22 


84-42 91-8 


98-15 
137-42 


76-26 


98-11 


98-36 
138-45 


77-27 


122-36 


78-11 


122-40 


SEQ 494 

UDAT4 DISK EXERCISER DMACR X04.01 _—o 15:49:22 PAGE S-6 
CROSS REFERENCE TABLE (CREF V04.00 ) 
126-18 

1 


127-27 128-14 «129-67 129-73 134-9 = «134-16 = 135+12 -135=19 += 138=37 138-41 «139-9 = s«1139=25 9: 139-46 
7 141-37 141-39 

HICYL 7-238 28-37 28-49 113-27 

HIMEM 5-98 9-79 29-26 44-105 

HISEED 29-248 69-9 69-19 69-25" 72-23 80-23 


HOSTRQ 19-7 20-24 €2-106 31-53 33-77 34-26 37-6 39-4 39-13 46-11 50-25 53-5 54-40 56-8 
57-9 58-9 58-7 58-91 30-33 99-116 101-22) 103-94 104-63 105-62 105-65 115-51 118-46 118-53 
many le 120-40 135-103 136-30 136-50 141-158 141-169 


HRQ.01 18-10" 19-7% 21-64 23-24% 23-40" 23-56% 23-60" 23-64% 23-68% 23-728 23-75% 23-828 23-106" 33-778 | 
33-77 34-23* $950" sm 37=3* 37=4* 37-7* 39-5* 39-13 40-25% 46-8 50-26 53-6 54-38* 
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a 
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So 
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‘ 
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_ 
0 
_ 
_ 
2 
= 
So 
= 
4 
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N 
% 
= 
So 
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a 
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f 
oe 
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“21% 133-238 133-30" 133-53 133-67* 133-69% 136-232 136-30+ 
“60* 23-64% 23-68 e379" 23-75% + 23-96% 23-106"! 





HRQ.02 18-9 19-7 21-74 23-24" a 23-56% 


33-77* 34-23% 36-20*  36-28* fo 39-13 O-25* 46-8 54-38* 58-81 97-33* 97-106" 98-15* | 
98-36% 98-43% = 99-86" = 499=101% 99-116" 99-117" 99-122" 99-126" 99-131" 99-136" 99-138* 100-36" 101-11% 101-22¢ | 
103-52* 103-68* 103-86" 103-90* 103-94" 103-95" 103-100* 103-104* 103-109* 103-114 103-116* 104-442 104-632 104-78* 
104-94* 105-29* 105-35* 105-53* 105-56" 105-65* 105-68 105-82" 107-31* 108-80" 109-37 111-108 112-448 113-34 | 
115-42e 115-51* 118-53* 118-54" 118-74% 118-75% 118-91 120-20% 122-218 123-228 129-1348 132-228 133-212 133-23¢ | 
133-30" 133-53* 133-67* 133-69 136-23" 136-30" 137-18% 137-36" 137-42% 138-45" 139-298 141-155% 141-1618 143-54% | 
HRQ.03 19-7* 21-84 23-106" 34-24% 39-18 13* 46-98 54-5* 56-15 58-31 = 97-107* 98-43+ 


39-2* 39- 58-55 
99~-116* 101-22* 103-94 104-63* 105-49% 105-65* 109-38 115-51" 118-53" 118-74% 120-38 129-100 129-101* 136-47% 
HRQ.04 18-6* 18-8+ 19-7 21-94 23-24% 23-408 $7368 23-60" 23-64% 23-68% 23-72% tab 23-82" 23-106 
0 
0 


99-117« 99-126% 99-131% 99-136* 99-138* 100-36* 101-11% 101-228 103-52" 103-68" 103-86" 103-902 103-948 | 
103-95* 103-100 103-104" 103-109* 103-114% 103-116* 104-44% 104-63* 104-78% 105-29" 105-35" 105-65" 105-68" 107-31« 
108-80" 111-10" 112-448 1135-34% 115-42% 115-51% 118-53* 118-54" 118-74" 118-75" 118-91¢ 120-21 132-228 133-21¢ | 
133-23* 133-30" 135-53" 133-67* 133-69 136-23* 1357-18* 137-36" 137-428 138-45" 139-298 141-155* 141-163¢ 143-54e | 
HRQ.0S 21-10 34-23" 36-29% 40-13% 40-19" 40-28% 40-322 40-34% 40-56% 40-64% 46-88 - ~33* 98-158 | 
98-36% 99-102" 99-138% 99-1418 100-36 101-11% 103-69* 103-116" 103-119* 104-44 104-78 105-36 105-65" 105-68« 
107-31* 107-53" 108-B81% 108-84* 111-14% 111-16" 112-48% 112-50® 115-38% 113-40" 115-42 117-33* 118-54" 118-75 
118-91¢ 119-48* 122-208 1235-21% 129-133" 132-222 153-21% 133-238 133-30" 133-53" 133-67" 133-69" 137-18* 137-36s 
137-42¢ 138-45 139-292 141-1558 141-1648 145-548 
HRO.06 21-118 23-73 «23-76% 23-83% = 34-23% = 40-35% 97-33" «= 98-15" 9B=37# 99-102" 99-1382 99-142" 100-36" 101-11 | 
103-69* 103-116" 103-120 104-44* 104-78 105-36* 105-65" 105-68* 107-31% 108-85" 111-17* 112-51* 113-41% 115-42 
118-54 118-75" 118-91% 133-47¢ 133-535* 133-65* 133-69% 157-36" 137-428 138-45" 139-29% 141-165* | 
HRQ.07 21-124 23-77% 23-83% 56-12 58-51 97-33% ——9B=15* 99-102" 99-159" 99-142" 100-36" 101-11* 103-69* 103-1178) 
103-120" 104-44% 104-78* 105-36* 105-65" 105-68 107-31" 108-85* 111-17* 112-51* 113-41% 115-42e 118-542 118-75 | 
118-91 133-48* 133-53" 133-66% 133-69% 137-36% 137-42% 138-45" 141-166 
HRQ.08 21-13H = 23-83* = 97=34% = 9B=16* = 99-103* 99-142" 100-37 101-12% 103-70* 103-120 104-45" 104-79 105-37# 105-65" | 
105-692 107-32* 108-85* 111-17# 113-41% 115-43" 118-54* 118-75" 118-92 141-167* 
HRO.09 21-14% 97-34% = 99-103* 99-142 100-37" 1035-70" 105-120" 104-45" 104-79* 105-37* 105-65" 105-69" 107-32" 108-862 | 
111-17* =113-41* 115-43* 118-55* 118-75" 118-92 | 
HRQ.10 21-15# 97-34% 99-103 99-143* 100-37 103-70" 103-121 104-45% 104-79 105-37 105-65" 105-69 107-32 108-86 | 
115-43* 118-55* 118-76* 118-92* 
HRO.11 21-16% = 97-34% = 99-104" 99-143* 100-37* 103-71" 103-121" 104-46" 104-80" 105-38 105-70" 107-32 108-87" 115-43 | 


118-55* 118-77* 118-93« 





[ = SEQ 495 


UDAT4 DISK EXERCISER DMACR X04.01 — 15:49:22 PAGE S-7 

CROSS REFERENCE TABLE (CREF V04.00 ) 

Ry ae 99=104% 99-143" 103-71* 103-121" ib om 104-80" 105-38* 105-70* 107-32* Hs a 1 115-43 118-55 
HRQ.1 1-184 = 99=105* 99-144" 1035=72% 103-122 104-47% 104-81% 105-39* 105-71% 107=33* 108-87* 115-43" 118-55« 
HRQ.14 4 at bed 99=105* 99-1442 103-72 103-122% 104-47 104-81% 105-39" 105-71* 107-33« hy ae 115-43 118-55 
HRQ.15 21-208 =—99=105* 99-145" 103-728 103-125* 104-47% 104-B81% 105-39" 105-71% 108-88 118-56* 

HRQ.16 21-21% = =—99=105* 99-145" 105-722 103-1235* 104-48 104-82* 105-40* 105-72" 108-88+ 

HRQ.17 21-22% =—99=106* 999-145" 105-73" 103-1235* 104-48 104-82* 105-40" 105-72* 108-88 

HRQ.18 4 td 99-106" 99-145" 103-73 103-123" 104-48* 104-822 105-40" 105-72" 108-105* 

HRQ.19) 21-248 =99=106* 99-146" 103-73" 103-124% 104-49" 104-83" 105-41% 105-73" 108-105« 

HRQ.20 21-258 99=146% 103-124% 104-832 105-73* 108-105« 

HRQ.27 21-264 =99=146% 1035-124% 104-835* 105-73 108-105* 

HRQ.22 21-27# 99-147 103-125" 108-105* 

HRQ.25 21-284 108-105* 

HRQ.24 21-29% 108-105* 

HRQ. 21-304 108-105* 

HRQ. 21-314 108-105* 

HRQ.27 21-32" 108-105* 

HRQ.28 21-334 108-105* 

HRQ. 21-344 108-106* 

RQ. 21-354 108-106* 


08-106* 


HRQ.RQ 18-11% 20-13% 20-14 20-19 20-22 21-54 21-41 23-24% 23-40" 23-56% 23-60" 23-64% e2-46s 23-720 | 
23-75% 23-82% 34-23% 34-25 36-20* 36-28%  37-1% 37-5 38-11 39-3 Peak fH 46-8* 46-10 54-38 | 
* 97-109 98-15% 98-36% 99-86% 99-101% 99-117% 99-122" 99-126" 99-131% 99-136" 99-138" 100-36* | 
103=100* 103-104 103-109" 103-114« 103-116" 104-44* 104-78 104-95« 
105-29% 105-35" 105-68 105-83* 107-31* 108-80* 109-40" 111-10% 112-44" 113-34% 115-42" 118-54% 118-75 118-91« 
122-22* 123-23* 129-102 if ag Fy 132-22* 133-21* Fm So 133-30" 135-53* 133-67" 133-69% 136-23" 136-49 137-18 | 
yas se 138-45" 139-29" 141-155" 141-157 143-5 


95-46 
INITD 44-65 141-177 143-104 
INITW 10-16% 31-34 33-32 33-74 33-85 42-22 42-32 58-14 58-24 61-55 62-17 64-8 66-10 87-11 
136-25 136-27 143-28 143-34 
24-11 4-284 117-6* 117-7 117-8* 
INSET 44-58 49-12 121-10# 122-10 


9- 
INTINP y why 39-38 46-4 46-13 


IWIPRG 10-94 31-33 31-49 31-50 77-3) 33-73 42-21 42-31 75-9 79-11 84-36 143-36 | 
JMPRET 34-49 35-44 61-105 62-32 68-10 72-71 73-131 83-20 84-51 95-68 97-114 99-153 100-55 103-140 | 
104-1046 105-99 106-50 107-68 108-110 109-44 110-71 115-72 118-95 119-60 121-24 122-67 123-26 124-38 - 


129-140 136-83 141-179 143-72 

59-2844 114-18 129-69 133-47 133-48 
L2.EOF 8-564 23-90 23-101 119-41 
L2.ERS 8-554 8-56 23-80 23-83 
Ld. 8-52e 8-53 23-14 38-57 


SLN 34 
LASTU 45-164 55-24% 55-26%  55-50* 
LBHINB 9 7-51# 40-43 143-67 





SEO 496 
UDATG DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE S-8 

CROSS REFERENCE TABLE (CREF VO0%.G0 ) 
LBLONB 7-528 52-24 65-10 5-13 79-49 97-60 108-26 108-45 122-33 122-43 122-47 122-61 
LBNMST P-S84 110-6> idee 183087 134246 E4388 133450" 133+S28 133453 133653 137-25 

LBNTRK 7=368 28-13 28-19 28-43 129-72 141-38 


LEVUSD 10-334 61-99 61-102 107-59 118-60 
LINKLN 5-70# 46-18 46-24 46-26 94-16 


84 
LOCYL oe-sa" 141-60* 141-61* 141-62* 


LONGTO ~64 

LOSEED 29-234 69-8 69-16 69-24" 72-18 80-19 

LRDTRK 28-27% 28-31% 28-46%  29-6H 141-40« 

LSTMOD 44-47 103-135 104-36 104-71 104-100 105-97 107-45 108-108 109-104 110-10 


33-29% 33-71% 39-38% 42-19% 42-29% 46-4s 46-6* 46-13* 75-7« 79-9e 
84-34% 122=23* 123-24% 129-104" 129-136% 136-51% 141-159" 143-36" 143-56% 
72-22 80-22 80-29 83-10 


. 8 
MAXADR 44-93 58-123 70-18 72-73 79-86 83-22 92-19 96-15 98-49 99-158 102-29 103-145 104-110 105-104 
106-55 107-72 = 108-114 109-49 «=: 113-52 117-35 118-96 = 119-62, 120-53 = 121-26 )3=— 122-82 «123-28 )~= 128-26 )3=— 135-32 


MAXDBN ie he 131-47 = 133-56 = 133-69 §=—- 133-69 =: 135=28* 135-29" 137-39 137-42 137-42 


| 
| 
| 
| 
29-408 | 
MAXSND 9-814 23-12 38-53 51-39 
MAXSUB 44-1018 44-105 58-132 121-31 122-87 123-33 128-31 | 
| 


MEMPOL 29-26# 47-6 47-7 93-25 
MESSAG 8-17# 33-77 105-65 120-39 136-30 


7-128 
MINADR 44-105# 44-107 58-127 58-132 61-109 61-110 70-22 70-23 72-77 72-78 79-90 79-91 3-26 83-27 
92-23 92-24 96 96-20 9 98-54 99-162 99 103 
105-108 105-109 106-59 106-60 107-76 107-77 108-118 108-119 109-53 109-54 113-56 113-57 117-39 117-40 
118-100 118-101 119-66 119-67 120-57 120-58 121-30 121-31 122-86 122-87 123 
135-36 Ba 4 140-25 140-246 142-15 142-16 143-78 143-79 


2 
24-10 8 24-228 


32 123-33 128-30 128-31 


MORE 50-114 50-23 

move 76-18 77-18 78-24 
MO 28-18 28-4 

MOVOUT 28-7 28-40 28-604 
MRD g-i7e 20-1 

MS1 33-77 


MWR 20-21 
NEWONT 86-8 88-8 90-24 





SEQ 497 


82 15:49:22 PAGE $-9 
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CROSS REFERENCE TABLE (CREF V04.00 ) 





ee 
S Bl catumin 33.3 
LAvbGRuSTETRETEDEn BREE RAR RARE TNE! 
ROMORSSSEOSSSS SSS Se menenenenenene s$9 54-4 grr 
beh ce el el el ll el el ed ek ee oe ed ed 
2 ®& 
. ReFIvewe Sond 
US GRUSE EET ER EDU RUE RE AKER Ca US 
MORSE SLSSSSSSSS Sx menenenenenenen sg 5-454 Srwrinwn 
bt el el cl cll el el ol el el ol ed oe ed ee ee 
a be Qonunne ae 3 Saw 
: PPT TTT TALL LATE TPERTTTT TUTTLE EP PT TT 
= OOLSSSERSSSSSSSS Sdmenmeneneneneny-g $5 $5 Snr 
- bl ce cee et el ol col el ol el ed ek ek ok oe ek oe ek ee 
te & & = ® 
- BoFeo Im gRISSLS LIS BomeRaNruon BenInoe 
; TPP T TT TTT TTLLL LET TPESTETT TUTTLE EP PT TE 
2 MFCR EOSSSSSSSSrSSmeneneneneneneyen sg ¥F Fos 
be cel lh col cl cel el ee el cl el ol ek ek ee ek ek ee ee 
222 & 2 ® 
o SIMO 0M TASSONT IFS ON GONE NAAIAR OBO SO 
= LETTE TTT TALI TELE TENT TET TTT TTT EP ETT 
rs MOOFSSRS SSSSSS SSS SS menenenenmeneyens sss sin 
0 tl eee el cel el oe el el el el oe el oe oe eee 
2 22 eusinrt@Waee & soem 
2 FETT TTT TLLLL PELE RT EE TERT T TT ETE eed 
NS MOMFSSRE OSSSSSSS SSSA shenenenenenenens oF 2-9 Sw 
bl cel ch el cel co cl el el el ol ol ce el ek ek oe ek ek ed 
2 & 
: sFnmgRSeSSs ess on Som 2RaNeS Samo n Beno 
= Pee TTT TLL LILLL LE PEET TT ELT TTT TT PTET TT 
2 OM FORE OSSSSSSSSSS x mneyenenmyenenin-y $3 Fs SHV 
A ek eh oe cl el el ol eh el cl el ol el aoe oe ek ol ek oe 
x SBT nV sSIels p Pot mE RENE con P Ino 
7 Perret LIAL ILLES TER ER EEL ER TTT ETT ETT 
mn OM FOCLEOSSSSSSSSSS x shenehenmeneyeng so $53 SAWN 
0 ed ed sel el el ll el el ol el el el ek ek ek ek ek 
2 ® 
"i _ Smo Sanwa Ses Son BRT MENTS cok mows 
7 rf Tre TTP TTT I ALLL ERE PTR ERT ERTL TT EP e 
"3 $ OM FOS OE DESSSSSSSSS x meyeyeneeneyiy ey oo Fs SVs 
_- bt eee dh nl cl el el el ol ol ok oe el el ed oe oe oe 
eB a cd 
= = Smo ene eee ee on BS -BLONNSS cwok—moo® 
awh’ 5 PTTL PTTL ILL ALERT TELAT A TTT TT eee 
corn ES OM FOS OE OESSSSSSSSS x meeneneyeneniny vs Vnwnsn 
- Ce el el col el el el el el oe el el oe ek ed ek ek ed ek 
2 a2 
oe So ow eotSs wnS2SSS UU IS A. B-BSes ive ooo mots 
ere EE LEB Os trbis ire SEB Ere eR Dake RD REL oat 
Sorm HR - BS MYMSO OL SS SSs ggg ggdammmmmmnmnmsssssssnawn 
-- Sel coed eed coe ce el eel el ol ce el ool ol el ek ed ek ee 
we 
2b e BRR mnwoconusined meocny ee 2 22 
aaa FR GiaMaiseanindeeereeteunaeieeeaks bece nee 
Sms. ZX NEM OMMSCor Sos ss ggg gg da mmmnmmmmnmss esses 
-— Cc cel ool el el eel eel oe ee el oe ee oe ee ee 
FIRS RSI on SIO Rg Rama S one eee er Nes NAN SAL eR EN eS. 
Lenn bdhoAdaneL Loomnoson eer ga ga gag ecubuhehh tele eg facuh 
- - 
SSOMORRSARRC MAMAN NING SS OOS SSSSSSSSSssssSSSSSSs 
2 5 su 
~N oa & 2 Ram fat) ala) ej Ooty te Se 
onndonn. va) nwhncesd ene a SOSSRIVS Sy oe Su SrAANyane =—WVUOR.O 
RKTNRAEA KAKA Chivas cheTReOTEN TTT ETHIC deh corse AER eka 
ww maw ww 
SF SPOR RS RRREMARMS” FPANSSIORS SSSSSSSSSSSSSSSSSSSS 
>< uw ox mw —OVu> -— 
p7bestucggrece stat 
geegysssssssss 





SEQ 498 


o 
Coo 
o 
ws 
ts 
< 
a 
~N 
™N 
a 
. 
wn 
—_ 
~~ 
oo 
x 
a 
<= 
4 
~ 
— 
- 
So 

e 
=< 
a 
Z 
oa 
« 
tae 
” 
— 
vv 
= 
kad 
=< 
us 
ao 
” 
— 
a 
wT 
be 
S 


CROSS REFERENCE TABLE (CREF V04.00 ) 





= & noes » * a 
FA ACH HCCACic cc RCRCRC Ci Sc dc 
val al al al ala dp dad WWM Ooo Lal rr 
St ee cel el el coll el ce cel oe ee el el el cl el el el el ok el el el el ek eh oh ek ek ek ek od 

= & Wnoee a = ae a 
QRS VK My SHSSSTR cM FMM OVONn Mean 
LARA ee Sobboudiett tet 
ah al al al ale tp ia L-*] MWA WW GO 6D 6D 60 GO MMM 
SOSSSSO SOOO COOK RN RIA 
Dl ed cel ol cl el el el cel el oe cel el oe ol el el el el oe oe oe el el ol ok ee el eh ok ok ok oe ed 

a te Vala) & wn 
QRS VK OMS SOSSSwr — SMM Finn ouonin eon 
PIPETTES TTT TTT ee LT ttt 
WALA. RB. BR. 60 60 60 60 60 60 & == CUM WNW 6D 60 60 CO CO CU CUMMMER. KR Oe 
SOSCOSOSCSOSOSSOSOCO RK RK RK RK RRR RK KKK RK NMMMMMMMS 
A eee soe el cel el ee cel ee el el cel ee ee oe cel eel el ee el ol oe el oe ee el el eel el el ol ok oe ek 

& 

® bea val al al Rk wv 
QRSSur oy omSSOvn SSM sy nnr-Susmn Ssuin 
WOOK LMMM ohhh hehehe wenbiwed oY = 
teeoeeeeeseeeeeeee 8 Sb bddbdiduhes 8 G 
WALALALAWI.. B. R. 0.00 60 00 60 60 = = CUMIN WNW 60 60 60 00 6D CERATARIAR 
SOOO OCOCOCSCOCOCSO SSS 6 6 SSS EEE KE MMMMMNMM TS 
be ee el cel el ee el el cel el el ol ek ee el el ll nel le el eel ed ed ee eh ok ok ek eh 

i 

a val ala’ & Res Rcd a 
LRA eee ahhh biunn awe by 
PULAU Une fe ep -cushmrrnndodddddduhehen de b 
WAWIALALALA WIR. BR. 09 09 6D 00 69 69 &= = CUMIMTLA LN 6D 00 6D 00 CO OA CUMMIM OR. COON 
SSOSSOSCOSSSSOOSOC6 eK RK KK RK KK RR KKK RKEMMMMMMMM 
0 ed eel el ee el el nl el el el el el el ee el cel el ee ee el el ek el eh el el eh ek ol ol eh ek ed 

& 

Beh b 3 maw e 3 332 a 333 Re 
MWMBDOCUMUINM FT DDOOSOOR. COSC MM FNM DBMOMVOA ON 
LRARKKMOD OREO ED Baha eawed ohana we be 
AULA Unt fF DEmooods-dunmnnodsddddadrhermrene t] 
WALA TATA LAU. BR. 69 69 09 09 6D 00 69 = CUMIN UW GO 6D 60 60 6D PAMPER CO On 
SOSSOSOSSOSOSSOOOOOO RK RK KKK RK RK KKK RK RK NIMMMMMMmM 
be ed el cel el ee cee ek el el el el el el el eel el el ek el cl ce el el el ee ol el el ok ek ek el ek ol 

a 

=e i 8 ennns a ae 4 ae & 
OO-OR. P. R. PNPNN 0000 00 NMS FT TNR ATEMNOOMS CU 
PUA UR LnUn feos -cenmnnnedsdddadeshenenr_od 
WAALA WALA. R.. 09. 0D 6 6D 69 00 6 == CUM INDI I) GD 0D 60 6D CO A OO MMMM CO Or 
SOSSCOCOOSOSSOOOOO RK RK KK RK KR RK KK RK NIMMMMMMM 
be el eel ce el el eel el el el cl el el eel nel el el el el el el el el el ol el el el eh ek ok el el el 

—_ aS 

te pos Val al al x ~ 2 & 
nase auneunooo RSSeMMrNOnKemM most ONS 
LAREN MRR RAe RS 
UA AAU Un Pe PS 0000 00 00 00 0. ee CUP IU CD CO COCO COCO IMMER ee 
SOOCCCOCOCCOSCOSOSCSS8 Se SCC CSCC CCC EK NMMMMMMM 
Sh el ee ce el el cl el el ll ee ol ee le el ed el el ee el el el el ed ek el eh el eh lh eh 

te 

= © ee was te ze 2M = & 
SOO OR. B.. R..P1911 00.00 00 00 FET TUWAAR ADK AN OOM TCU 
PUA UU OOOO UPherrtnDooooodrennene.a 
WAIAWIAALAWIRA. I. 09 6D 6D 6D 60 6D 6D == CUMIMIWNL GD 0D GD 60 COCOA MMMMAN 
SOOO CCOSOCSCCOCSCSSCC8 SS SH KSEE SKC ECE EK NMMMMMMmMMm 
be ce ce ee eh cl el el lh el el el el oe el eh el le el el ed ek ed eh el ed ee ed 

i 
22 22 2 MmNnO e ca Ree & & 
QYVSI MINER SOSSR ODMH As NE SMS OND 
LARARRRER ARREARS 
WAIAWALALA WIR. B.. 09 09 69 6D 00 6D 6D = CUMIN LN LT GO 6D 6D 60 CO COMM MMM. KR Or 
SOoQqoooooQOOOOCOCCO SS SP SSC SC SSE SEFC SCE NMMMMMMmmMm 
tl ee eel el eel el el el lel el el oe cel el el el oe el el el el oe ee el el el el oe el ek ek el ol 
. 

2 22 val al = 2 te 22 ca 
MNOR AMA NOMA BOOS BOS HAMS AAI KH MOO 
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SEQ 499 


-SO 124-24 


OVE.SP 123-24 
-ST 84-24 
-SU 61-24 


UDATS DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE S-11 
OVE.TS 118-24 


CROSS REFERENCE TABLE (CREF V04.00 ) 


OVE.W 97-24 


OVL.LM 





> 







SEQ 500 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE S-12 


CROSS REFERENCE TABLE (CREF V04.00 ) 
OVL.MS 44-30 61-2 61-2 61-28 
OVL .NL 5 2 

OVL .NO 
OVL.R 


44-31 44-31 44-32 44-33 44-34 44-35 44-36 44-37 44-37 44-37 
44-40 44-40 44-41 44-4) 44-42 44-42 44-43 44-43 44-44 44-44 
44-47 44-47 44-48 i228 44-49 44-50 44-51 44-52 44-52 44-52 


a ell a i B.S: CL Se 1 ce oR AC as Ol 


UDATS DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE S$-13 
CROSS REFERENCE TABLE (CREF V04.00 ) 


SEQ 501 


4 44-3 
PART 44-128 44-3 44-34 44-35 


44-36 

PARTS § 44-148 = 44-31 44-37 44249 44-50 44-51 44-52 
PARTI 44-168 44-58) = 44-59 44-60 44-61 4462 h=63 h=64 44-65 
PATO 30-2 30-214 50-29 r. 
PATI 30-3 394 
PATIO 30-12 0-1264 
PATI1 30-13 «9-30-1444 
PATI2 30-14 © 30-1474 
PATI13) 30-15 30-1654 
PATI4 16 30-1834 | 
PATIS 30-17 30-1884 
PAT2 30-428 
PATS 30-5 =s- 30-45 
PATS 30-4 | 
PATS 30-7 3 
PAT6 8 30-848 
PAT? 30-9 30-1024 
PATS 30-10 30-105# 

30-12 


PATPTR 30-24 97-72 108-46 | 
Apts 2-39 2-39 2-39 2-39 2-394 


34-384 
29-208 108-28* 108-30* 108-44 108-105 


PTABLE 33-148 34-10 34-298 34-36% 34-39 «4-7 | 
RANDOM 65 66-14 67-14 69-24 71-27 72-16 = 7256 80-17 B2-22— 8311 | 


10-224 tg 28-22 37-36 61-76 63-14 93-18 95-34 97-37 99-56 99-96 99-108 100-40 103-64 


7a 
RBNTRK 7=30# 27-11 28-10 28-25 28-41 129-66 1 
RBNTXT 59-2784 97-34 99-103 99-143 100-37 103-70 1 


| 
| 
1 106-46 104-80 105-38 105-70 107-32 108-86.«115-43 
| 
LN 
RCBREQ 10-368 39-22 43-44 115-32 119-51 | 
ONT 5x4 | 
| 


RCV 4 23-45 38-68 51-60 
RCVRDY 8-22# 18-18 7-70 38-34 38-51 51-27 


REDWRT 10-234 61-65 61-80 er 64-15 65-6 66-6 67-8 94-9 95-7 95-61 


RET 
at 44-48 99-98 100-48 103-66 103 105-91 107-39 


10 
04-29 104-65 104-86 105-80 105-89 


“81 104-67 11 
10-214 33-14 63-14 94-11 95-9 95-63 100-34 100-46 10 
107-37 110-20 110-28 114-7 


RE 
REVSOK 110-6 111-24 





SEQ 502 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE S-14 
CROSS REFERENCE TABLE (CREF V04.00 ) 
RM 7-318 
RNDO 65-9 65-124 65-14 

44-33 oens1 71-108 73-10 
RNDTG 44-35 62-23 80-104 84-10 
RONLY 10-468 58-14 58-22 64-10 136-19 143-58 
ROOT 31-248 31-51 46-30 
ROOTLP 31-268 31-43 ~46 
RREAL 48 95-16 141-102 
RSTOP 95-18 102-17 109-23 141-89 
RTDS 18-24 23-32 -43 36-13 - 118-24 119-34 
RTOSL - 18-164 38-12 38-31 38-48 141-74 
RTRIES 58-14 97-31 100-31 104-90 105-77 


10-484 
RUN 44-76 44-844 
RVFAIL 111-19 8112-27) «6112-53 113-330: 114-24 
RW.ANG 5-348 95-30" 95-51% 99-104 99-144 103-71 103-122 104-47 104-81 105-39 105-65 105-71 108-87 
RW.BUF 5-298 95-26 97-63 104-53 104-77 105-45 108-24 112-7 
RW.CMD 5-324 = 95=12e = 95-17% = 99-105 99-145 103-72 103-123 104-48 104-82 105-40 105-65 105-72 108-88  141-101* 


RW.HI 5-318 = =—95-45* = 99-34% = 99-102 99-142 102-11" 103-69 103-120 104-45 104-79 105-37 105-65 105-69 108-85 
RW.LOW 5-30# 25-13 95-32* 99-33* 99-102 99-142 102-10* 103-69 103-120 104-45 104-79 105-37 105-65 105-69 


woh Ly 5-284 95-25 99-36 103-27 109-22 141-89% 141-114% 


S.BADP 9-64# 9-65 25-11 58-84"  58-105* 127-6 137-8 
S.BESS 9-654 9-70 44-105 56-14 58-29 58-53 71-18 71-39 73-20 73-72 74-7 125-6 125-8 131-8 
131-9 fp 9 13i-16* 131-17) = 131-20) = 131-308 =131-31% 131-39" 131-435% 131-46* 131-48* 133-9 133-11 139-57 


| 

| 

| 

| 

| 

| 

S.LETR 9-59# 9-60 97-33 99-102 99-142 100-36 103-69 103-120 104-45 104-79 105-37 105-65 105-69 107-31 | 
108-85 110-31* 114-19" 115-42 118-54 129-718 

S.MCNT 9-708 9-71 80-20 80-25 80-28 80-31 89-7 89-9 90-10 90-12 | 

S.MEGR 9-628 9-63 103-36 103-37# 103-130 103-132* 104-33 104-35" 106-22 106-23" 109-33 109-41* 129-418 | 

ME 3a 99-51 99-52% 129-428 | 

| 

} 

| 


Gu 9-6 9-64 
S:PARM 9-55@ 9-56 27-7 28-16 33-26 33-6 3-78 $3-106 39-42 39-45 41-15 42-16 58-28 58-61 
61-52 62-16 «64-7 B27 Bh=17_ B4=33 «95-37 «497-30 ©_-99-93 100-30: 103-59 104-39 104-89 105-76 
124-24 129-62 129-79 129-111 129-123 131-34. 133-16 133-35 133-42 133-60 136-18 +=: 136-29 136-41 —-136-58 
136-70, 157-21 138-28 139-38 140-9 141-152 143-22 143-46 


S.SCHR 9-618 9-62 27-10 27-16 8-9 28-61 58-107* 82-10 84-40 91-6 


98-9 110-34 111-22 113-11 
At « : & i a 130-18 a 137-24 138-29 139-39 = 141-33) 141-47) 141-51 141-91) 141-134 


9-564 
S.1TGOF 9-718 9-72 81- 89-11 89-13 90-8 90-9 138-21 138-23" 139-6 139-59 139-60 
S.1GSS 9-724 56-11 58-49 81-15 85-27 86-22 89-15 90-14 90-21 128-6 138-13 139-64 139-70 
S.TRKL 9-608 9-61 27-13 75-14 75-16 82-5 84-31 87-13 88-16 92-10 129-75 


SCHARO 44-62 124-37 129-10# 129-137 136-10 136-80 
44-63 129-98 136-10# 141-10 


scri 28-148 33-136* 61-60" 61-63" 73-18 73-70" 75-10" 85-8 86-6* 87-6* 88-6* 95-48 143-25* 
143-27 143-49 143-52* 
SCR2 7# 100-49 1035-82* 104-64* 104-76* 104-83 104-85" 105-24 105-64" 107-36" 108-82* 110-61 
764 - 108-58 108-67 


SCTWRD 9- 
SDIS 24-5#@ 24-6 24-6 24-64 «24-8 24-8 24-84 24-9 24-9 24-98 24-10 24-10 = 24-108 = 24-11 





34-23 
ea 2 107-33 
51- 5 


24-12 
44-75 


115-68 
115-46 


112-48 
119-30 


yor 12ee 


24-12 
44-75 


133-23 
105-36 
36-29 


113-38 
113-40 





24-128 
44-754 


109-27 
140-13 


111-33 
118-35 


43-44 
118-82 


62-17 


133-30 
105= 
40-35 


UDATS DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE S-15 
CROSS REFERENCE TABLE (CREF V04.00 ) 


24-13 
44-76 


113-47 
118-68 


116-19 
119-10 


143-23 


133-53 
59-144 


115-104 118-10 


99-147 101-12 103-117 103-125 118-77 


SEQ 504 
UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE S-16 
CROSS REFERENCE TABLE (CREF V04.00 ) 





SER41 54-16 59-2764 
SER4 40-28 59-1064 
SERS 40-32 59-1084 
SER44 40-34 59-1104 
SER45 51-19 59-1124 
SERS 2348 129-13 
SER6 2364 123-21 
SER7 2384 119-48 
SER8 59-2408 \ee-<0 
SERO 59-2624 117-33 
SERCHN 141-892 141-90 141-100* 141-101 141-102% 141-103* 141-105 141-1148 141-116 142-44 
SERRTY 141-442 re et 2 142- 
senece ya Wiaie"* ye 141-1458 141=146% 14121467 141-149 141-155 141-164 141-165 141-166 141-167 142-5 142-104 
SETUP 39-49 44-31 61-104 62-10 68-9 97-41 99-58 99-66 99-112 100-44 103-79 109-42 114-20 143-69 | 
SHRTT' 7-34 122-46 
SLOP 55-644 58-115 
SMASKL 129-294 129-32 
SMASKX 129-29 29-334 
SNDA 20-144 20-18 
SNDEX 107-54 107-684 
23-1 24-78 
SORT 44-6 '23-19 §=6124-108 129-10 
SORTBB 124-30 127-24 
SORTBE 124-29 125-24 
SORTTG 124-27 128-24 
_or <3 22 123-104 124-10 
ST 23-42 24-384 38-66 38-81 38-90 38-94% 40-22 40-41 40-45 51-°7 52-8 122-25 122-26 122-27 | 
122-28 122-35 122-38 122-42 122-46 122-59 129-43 129-66 129-72 129-90 129-91 129-93 130-31 131-37 
131-40 133-38 133-50" 133-52* 133-53 133-53 134-8 134-15 135-10 135 
ST.C 6-374 
ST.CON 6= 
T.DB 6-574 
ST.DE 6-514 0-48 
DF 6-544 
-DR 6-464 
-EL 6-484 38-94 
ST.ERR 6-354 38-90 40-45 
ST.FO 6-564 
ST. 6-344 40-41 
ST.MSK 6-324 
ST.OA 6-444 
ST.PE 6-5 
ST.PS 6-494 40-23 
ST.RE 6-524 
ST.REQ 6-3 38-94% 40-22 
ST.RR 6-454 40-38 
ST.RTY 6-384 
ST.RU 6-504 40-23 40-26 
ST.S7 6-584 
ST.SR 6-474 40-23 40-30 
ST. 6-314 
ST. 6-554 
STACK 17-8 17-144 
STACYL 28-36% 28-39% 28-48% 28-52% 29-4 141-348 141-35* 






UDAT4 DISK EXERCISER DMACR X04.01 13-APR=82 15:49:22 PAGE S-17 
CROSS REFERENCE TABLE (CREF V04.00 ) 


START 

















17-9 16-18 





STATUS _6-10# 8-32 

STOP 31-48 +2260 34-27 46-12 54-41 

STSERR 118-33 118-654 

STSEXT 118-29 118-64 118-71 118-78 118-86 118-90 118-95# 

STSRES  _8=47, 4-8 

SUBTRV 130-3 130-134 

T 44-874 129-34* 

SUNIT 141-16* 141-156 141-160 141-171* 141-172* 142-24 

SUSETL 55-53# 58-121 

SWAPBE 125-23 126-24 

TIMSIZ 8-44 

T2CMD 8-64 

T2D0LL 8-54 

T4881 8-94 57-8 58-78 

T4BB2 8-104 58-90 

T4 8-74 50-24 

TOMXFR §=8-13# = 37-1 97-108 109-39 

T4SEEK 8-124 118-45 

T4SOFT 8-114 19-7 23-106 39-13 98-43 99-116 101-22 103-94 104-63 105-61 115-51 

14 8-84 56-7 58-8 141-168 

TALK 23-24 31-41 40-10 40-16 40-53 40-63 107-50 117-10 119-23 122-17 123-16 

TGS 138-33* 138-36* 138-45 139-29 139-914 

TGS 45-234 138-12 138-38 139-5 139-45 

THREBE 71-31 71-344 

TLEN.U 9-7; 9-79 55-22 

TLKHST 19-24 23-50 93-15 

TMEMPL 93-25"  96-6* 96-7 96-104 

TO 22-44 122-48 122-694 

TRACK 29-10% 95-6 141-101 

TRACKS 10-53# 58-14 82-8 84-20 84-26 84-37 9138-30 §=139-40 140-11 

TRAV 9-48 1350-24 130-9 

TRKS 59-2804 138-36 

TRKGRP 7-278 82-11 84-41 91-7 134-8 138-35 139-44 

TROOT 46-5 9-24 

TRYAGN 71-278 71-35 

TSTNEC 115-52 116-24 

BN 9-41 9-42 61-42* 61-46* 61-68* 61-70%  68-2* 68-4* 93-23 
99- 99-78 100-36 100-36 102-7 102-8 103-39 

107-31 = 110-43" 110-48* 111-17 111-17 111-24 
113-41 =. 114-13" 8114-17" 115-42 115-42 116-13 
85-23" 86-10 86-12* 6-14 86-21* 89-8 
113-9 141-46* 141-129 141-131* 
98-15 99-105 99-105 99-145 99-145 101-11 
104-83 105-40 105-41 105-65 105-65 105-72 
118-56 9118-75 118-76 = 118-92. 118-92): 119-55 
99-145 101-11 103-72 103-123 104-48 104-82 
119-57 121-21* 
141-132 
61-39% 61-72% 61-74 68-6* 99-70 99-718 
88-14% 91-9 
104-78 105-36 103736 105-68 107-25 107-28 
99-1 103-73 103-7 103-124 103-124 117-17 


118-53 


129-37 


93-24 


105-40 


103-33 


118-74 
141-57 


97-33 
=42 


1 
105-65 


103-34* 


107-63* 
118-75 


a 


SEQ 505 


141-64 


igi~<° 
105-72 


106-19 


118-91 





UDATS DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE S-18 
CROSS REFERENCE TABLE (CREF V04.00 ) 


U.LGRP 
U.MASK 
MBN 


9-514 
9-278 
9-408 


55-94 


9-78 44-105 
9-28 18-16 
9-41 61-67 
79-12 79-14 
87-18 87-198 
90-31% 90-32 

9-32 61-90 

9-25 g1-8?" 

9-17 8-24 

9-11 31-27 

9-19 $6.30 

9-24 33-21 
99-111 100-43* 

114-10* 

9-38 25-8 
41-22 41-24% 
66-18" 67-18 
86-17 86-19* 

100-3 100-39 
105-88 107-32 
115-45 115-47« 
143-33 = 143-35* 

9-20 65-15 

9-22 85-24 

9-43 93-20 

103-122 104-47 
110-37* 112-18 
118-55 

9-39 33-45* 

43-36" 43-45« 
118-59 119-50 

9-16 61-96" 

9-31 106-35 

9-47 110-33* 

9-46 98-22 

9-18 61-93« 

9-36 24-6 

9-35 23-30 

9-34 23-27 

9-15 115-30« 

9-12 33-18 

136-52 136-65 

9-40 19-7 

42-24% 98-29 
129-101 129-107 

9-13 38-25* 

9-14 38-27+ 

9-26 33-22 

9-48 19-7 

105-58 105-65 

9-37 40-59 

9-29 40-44% 
55-62* 55-66 
55-48 


99-106 
23- 


40-58 
56-6 


4 Sb a tt: 
t 38-5 
+ e-60 82-29% 
87-23% 87-31 
92-13% 35-13 
105-54 122-37 
99-150* 103-128* 
122-58 141-67 
55-25 55-51 
49-13 
61-27 61-41 
103-35 103-38 
31-28 31-37 
42-36% 49-118 
73-123 = 76-13 
94-6 95-60 
103-57 103-76* 
108-86 109-30 
117-29 = 117=31* 
97-71 97-93 
86-24 86-33* 
97-34 97-34 
104-81 104-81 
112-21 112-23* 
36-10 38-15 
49-98 61-103" 
104-58 104-78 
112-45 113-35 
99-53 99-81 
97-25% 98-41 
24-9 24-10 
49-15% 122-492 
115-58 115-60* 
33-57 33-92 
143-17 143-38 
33-38 33-58 
116 1=22 
129-115 129-128% 
38-42 115-62* 
38-38 115-64% 
61-28 61-61 
33-77 37-3 
118-43 118-53 
98-28 143-68 
98-24 
57-7 58-7 


103-124 
43-52 


106-28* 
58-118 


61-95* 
103=46* 


112-37 


38-19 
106-45 


105-36 

101-16 
99-142 
24-11 


a 
41-6 


68-7* 
103-78« 


33-15* 


112-38* 
39-8 
106-47 
105-50 
103-47 


100-23 
24-12 


120-29 


58-89 


110-57 


97-40« 
106-18 


33-66* 


112-40 


39-18 
107-22 


105-68 

110-32 

100-25* 
24-13 


5-32* 
9-100 


MUN Ow 
w= 
if 
~ 
o 
E. 


1 


58-113* 


114-12 


99-50* 
106-21 


33-108 


118-67 


99-144 
105-71 
112-42 


39-21* 
107=55 


106-16 


101-20 
24-15 


55-60 
33-112* 


141-104 
i740 
85-36* 


88-17% 
114-14 


99-63 
106-24 


33-110* 


118-69* 


100-37 
107-32 
115-43 
43-7 
107-60* 
106-38* 


103-120 
33-48 


120-24 
33-115 
1 


99-65* 
106-26* 


115-43 


43-9« 
115-31 


107-66* 


106-40* 
44-74 


124-18 


37-4 
118-44 
136-75* 


79-65 
99-116 
141-16 


88-21* 


116-10 


43-16 
116-18 


110-51* 
44-75 

129-105 
39-2 

118-53 


83-16% 
101-22 
141-17 


121-15 


103-71 
108-87 
116-11 


43-18* 
118-37 


111-32 
44-76 
129-118 
39-13 

118-74 


84-478 
103-94 








E 
ZEREDC 


45-178 


6-64 
22-13 





—— eee 


55-7* 
53-7 
-85 


#5-7o0 


98-2 
22-154 


Cc 8 


UDAT4 DISK EXERCISER DMACR X04.01 13-APR-82 15:49:22 PAGE S-19 
CROSS REFERENCE TABLE (CREF V04.00 ) 


55-43 55-45* 
53-19 53-26 54-7 54-36 54-534 55-8 
87-39 


23-87 38-10 38-47 
101-8 141-106 


94-13 
++ af 61-49 61-65 63-14 66-8 66-17 
64-8 136-21 


97-104 99-10 
99-42 


141-109 


55-47 


67-10 


SEQ 507 





SEQ 508 


1 


01 13-APR-82 15:49:22 PAGE M- 


CROSS REFERENCE TABLE (CREF V04.00 ) 


rs 
=< 
4 
rw) 
= 
a 
[4 
w 
” 
— 
=) 
a 
uw 
=< 
w 
at 
” 
— 
o 
wT 
i 
<« 
Ss 
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